易语言取exe图标

.版本 2

.支持库 eSkin

.支持库 xplib

.支持库 shell

.支持库 eAPI.程序集 窗口程序集1

.程序集变量 实名, 文本型

.程序集变量 图标数, 整数型.子程序 __启动窗口_创建完毕写到文件 (取运行目录 () ＋ “skn”, #皮肤)

易皮肤_载入皮肤 (取运行目录 () ＋ “skn”, )

XP风格 (3)

编辑框1.内容 ＝ 取特定目录 (3).子程序 _打开_被单击

.局部变量 文件名, 文本型

.局部变量 n, 整数型图片框1.图片 ＝ { }

通用对话框1.过滤器 ＝ “资源文件(*.dll*.exe)|*.dll*.exe”

.如果真 (通用对话框1.打开 ())

文件名 ＝ 通用对话框1.文件名

实名 ＝ 取短文件名 (文件名) ＋ “.ico”

n ＝ 提取资源文件图标 (文件名, 0, 取特定目录 (#临时文件目录) ＋ 实名, )

.如果 (n ＝ 0)

信息框 (“该文件没有图标”, 0, )

.否则

图片框1.图片 ＝ 读入文件 (取特定目录 (#临时旅茄昌文件目录) ＋ 实名).如果结束.如果真结束

图标数 ＝ 0

编辑框2.内容 ＝ 通用对话框1.文件名

图标数 ＝ 提取资源文件图标 (编辑框2.内容, 1, , )

.如果 (图标数 ＞ 0)

信息框 (“该文件内一共有 ” ＋ 到文本 (图标数) ＋ “ 个图标...”, #信息图标, “恭喜...”)

.否则

信息框 (“该文件内无图标哦...”, #警告图标, “提示信息”)

.如果结束 .子程序 取短文件名, 文本型

.参数 文件名, 文本型

.局部变量 m, 文本型

.局部变量 短文件名, 文本型m ＝ 取文本右边 (文件名, 取纳高文本长度 (文件名) － 倒找文本 (文件名, “\”, , 假))

短文件名 ＝ 取文本左边 (m, 倒找文本 (m, “.”, , 假) － 1)

返回 (短文件名).子程序 _保存_被单击

.局部变量 序号, 整数型

浏览文件夹 (“选择要保存到的文件夹”, )

.计次循拆扒环首 (图标数, 序号)

提取资源文件图标 (编辑框2.内容, 0, 编辑框1.内容 ＋ “图标” ＋ 到文本 (序号) ＋ “.ico”, 序号)

_启动窗口.标题 ＝ “正在提取: ” ＋ 编辑框1.内容 ＋ “图标” ＋ 到文本 (序号) ＋ “.ico”

延时 (20)

.计次循环尾 ()

_启动窗口.标题 ＝ “文件图标提取器”

信息框 (“图标提取完毕...”, #信息图标, “恭喜...”)

提取资源文件图标()在一个exe文件里面可能包含很多歌图标的，所以你提取的时候你不中漏规定提取那个图标他就提取第孝虚一个，第一个图标有时候也不是巧培燃你想要的那个 你想要的那个可能在后面

---