提取电脑中所有程序的ICO图标

易语言 2020-08-04 18:21:29

提取电脑中所有程序的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) + “-----” + 资源路径
处理事件 ()