API更改图标工具

语言API更改图标源码是易语言API应用例程。

文件名 ＝ 读环境变量 (“SystemRoot”) ＋ “\system32\SHELL32.dll”
.判断循环首 (我要死循环 ＝ 假)
ChangeIconDialog (0, 文件名, 索引)
' 输出调试文本 (索引)
.如果真 (索引 ＝ -1)
跳出循环 ()
.如果真结束
' 输出调试文本 (格式化文本 (“%s,%d”, 文件名, 索引))
.如果真 (通用对话框1.打开 ())
.如果 (提取资源文件图标 (文件名, 0, 通用对话框1.文件名, 索引 ＋ 1) ＝ 0)
信息框 (“提取失败”, #错误图标, “错误”)
.否则
.如果真 (信息框 (“提取成功，是否继续？”, #询问图标 ＋ #是否钮, “提示”) ＝ #否钮)
跳出循环 ()