一键提取电脑中所有ICO图标软件

一键提取电脑中所有ICO图标软件例子。
.如果真 (提取资源文件图标 (资源路径, 0, lslj, x － 1) ＝ 0)
返回 ()
.如果真结束
icosj ＝ 读入文件 (lslj)
sjzy ＝ 取数据摘要 (icosj)
.如果真 (是否已创建 (_启动窗口.画板1) ＝ 假)
结束 ()
.如果真结束
.如果真 (SendMessage (_启动窗口.组合框1.取窗口句柄 (), 332, -1, sjzy) ≠ -1)
处理事件 ()
到循环尾 ()
.如果真结束
_启动窗口.组合框1.加入项目 (sjzy, )
复制文件 (lslj, 保存目录 ＋ “\” ＋ sjzy ＋ “.ico”)
_启动窗口.画板1.底图 ＝ icosj
_启动窗口.标题 ＝ 到文本 (x) ＋ “/” ＋ 到文本 (tbs) ＋ “-----” ＋ 资源路径