易语言安装文件图标

『壹』 鏄撹瑷缂栬瘧瀹夎呯▼搴廍XE 閭ｄ釜鑳戒笉鑳藉姞鍥炬爣

璁剧疆鍥炬爣鐨勬椂鍊欎綘鍙浠ユ彁鍓嶅湪鑿滃崟鎷︾殑锛堢▼搴忥級锛堥厤缃锛夐噷闈㈣剧疆

鐪嬩笅鍥剧墖鍚э細

鎵撳紑閰嶇疆绐楀彛鍚庯紝涓嬮潰鏈変釜璁剧疆鍥炬爣銆

璁颁綇锛屽浘鏍囨牸寮忎竴瀹氳両CO鏍煎紡鐨勶紝浣犲埆鎼炴垚JPG鍥剧墖鏍煎紡浜嗐

『贰』 易语言取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文件的图标，，lnk文件是怎么获取文件图标的

用到这个命令, 系统_取桌面快捷方式,

取得一个快捷方式所在的EXE文件名, 然后用拖放对象,注册拖放控件,

注意,拖放控制这个命令有点,怪, 一定将属性中的得到文件设为真才有效, 是得到文件,不是得到文本哦, 不然就错了,

先取得这个EXE文件所在目录下的图标数量, 提取资源图标,

再用计次循环计次,

那个要提取的数量序号,这里就用计次代替, 一定要填写,