Question

易语言取exe图标

提取资源文件图标 (, , , ) 提取出来的都是16*16的1.怎么才能提取32*32和48*48的图标2.怎么才能提取exe文件中图标的数量1提10分

Answer 1

.版本 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)
.计次循环尾 ()
_启动窗口.标题 ＝ “文件图标提取器”
信息框 (“图标提取完毕...”, #信息图标, “恭喜...”)

Answer 2

1 不要使用 提取资源文件图标 （） 使用 提取加入图片 （）命令提取图标2.取文件内图标数（） 这个命令能获取文件内图标数量这2个命令属于 扩展界面支持库二 中的命令。

Answer 3

需要一个图标转换器将原图片转换为图标文件…网上就有…找不到的话我也可以发给你…