易语言ICO图标提取工具

直接把需要获取图标的软件拖进来即可。
.如果 (取文件内图标数 (文件名) ＝ 0)
路径 ＝ 文件名
路径 ＝ 取文本注册项 (1, 取文本注册项 (1, 取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “.”, , 假) ＋ 1) ＋ “\”, ) ＋ “\DefaultIcon\”, )
图片号 ＝ 到整数 (取文本右边 (路径, 取文本长度 (路径) － 倒找文本 (路径, “,”, , 假)))
.如果 (提取资源文件图标 (取文本左边 (路径, 倒找文本 (路径, “,”, , 假) － 1), 1, , 图片号) ＝ 0)
信息框 (“复制选中图标失败!”, #错误图标, “阿蒙提示：”)
.否则
信息框 (“已复制选中图标到剪切板 ( Ctrl + V )”, #信息图标, “阿蒙提示：”)
.如果结束

.否则
.如果 (提取资源文件图标 (文件名, 1, , 超级列表框1.取表项数值 (超级列表框1.现行选中项)) ＝ 0)
信息框 (“复制选中图标失败!”, #错误图标, “阿蒙提示：”)
.否则
信息框 (“已复制选中图标到剪切板 ( Ctrl + V )”, #信息图标, “阿蒙提示：”)