❶ 易语言取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)
.计次循环尾 ()
_启动窗口.标题 ＝ “文件图标提取器”
信息框 (“图标提取完毕...”, #信息图标, “恭喜...”)
❷ 易语言怎么取外部 程序编辑框里面的内容了
1.寻找窗口句柄。
2枚举子窗口，当然，前提是这个外部程序里的编辑框不是自绘的，如果是自绘编辑框，那就得不到内容。
3.在枚举到子窗口后，编辑框1.内容=枚举子窗口[X]
❸ 易语言怎么把编辑框里的文字直接保存到EXE程序里 不需要另存为 编辑框旁边有个目录
用写到文件就可以了，文件名加上路径就能保存到对应路径对应文件名的TXT 文件了 要加后缀
给你个源码 自己看一下
.版本 2
.支持库 shell
.程序集 窗口程序集1
.子程序 _按钮3_被单击
写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (编辑框1.内容))
.子程序 _按钮2_被单击
执行 (4, 取运行目录 () ＋ “\1.txt”, , , )