Question

易语言制作图标提取器的源码，要源码不要易文件

易语言制作图标提取器的源码，不要易文件
要详细 直接写出源码，我用的是手机

Answer 1

.版本 2
.支持库 iext2
.支持库 eAPI
.支持库 xplib

.程序集 窗口程序集1
.程序集变量 图片组, 字节集
.程序集变量 图标索引, 整数型

.子程序 _保存_按钮_被单击

.如果真 (通用对话框1.打开 ())
编辑框2.内容 ＝ 通用对话框1.文件名 ＋ “.ico”
.如果真结束

.子程序 _打开__按钮_被单击

.如果真 (通用对话框2.打开 ())
输出调试文本 (通用对话框2.文件名)
编辑框1.内容 ＝ 通用对话框2.文件名
图片组 ＝ 建空图片组 (32, 32)
图标索引 ＝ 提取加入图片 (图片组, 编辑框1.内容, , )
图片框1.图片 ＝ 取图片组图片 (图片组, 图标索引, )
.如果真结束

.子程序 _按钮3_被单击

提取资源文件图标 (编辑框1.内容, 0, 编辑框2.内容, )
.如果真 (编辑框2.内容 ＝ “”)
信息框 (“您还没有选择您要保存的目录”, #错误图标, “警告”)
.如果真结束
.如果真 (编辑框2.内容 ≠ “”)
信息框 (“ 图标已保存到：” ＋ #换行符 ＋ 编辑框2.内容 ＋ #换行符，#信息图标, “提示”)
.如果真结束

.子程序 __启动窗口_创建完毕

XP风格 (3)