系统图标提取器可以提取整个文件夹里面的所有图标

.计次循环首 (到数值 (超级列表框1.取标题 (超级列表框1.现行选中项, 1)), A)
提取加入图片 (B, 编辑框1.内容 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0), A － 1, )
超级列表框2.图片组 ＝ B
超级列表框2.插入表项 (, 到文本 (A), A, , , )
_启动窗口.标题 ＝ “正在提取_” ＋ 到文本 (A)
.计次循环尾 ()
_启动窗口.标题 ＝ “系统图标提取器”

A ＝ 浏览文件夹 (“请选择一文件夹:”, )
.如果真 (取文本长度 (A) ＞ 1)
.如果真 (取文本右边 (A, 1) ≠ “\”)
A ＝ A ＋ “\”
.如果真结束
B ＝ 编辑框1.内容 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
.计次循环首 (取文件内图标数 (B), C)
提取资源文件图标 (B, 0, A ＋ 到文本 (C) ＋ “.ico”, C)
_启动窗口.标题 ＝ “正在提取_” ＋ 到文本 (C) ＋ “.ico”
处理事件 ()
.计次循环尾 ()
.如果真结束
_启动窗口.标题 ＝ “系统图标提取器”