ICO图标提取器

.如果 (文件_取扩展名 (编辑框1.内容) ＝ “.lnk”)
取快捷方式目标 (编辑框1.内容, , , , , , , )
编辑框1.内容 ＝ 取快捷方式目标 (编辑框1.内容, , , , , , , )
.否则

.如果结束
.如果 (文本_取右边 (编辑框1.内容, “.exe”, 1, 真) ≠ “”)
文本_取左边 (编辑框1.内容, “.exe”, 1, 真)
编辑框1.内容 ＝ 文本_取左边 (编辑框1.内容, “.exe”, 1, 真) ＋ “.exe”
.否则

.如果结束
图片框1.图片 ＝ 文件_取图标 (_启动窗口.取窗口句柄 (), 编辑框1.内容, 32, 32, #白色)