易语言提取ICO图标源码

易语言提取ICO图标源码

@lyfm

.版本 2
.支持库 edroptarget
.支持库 shell
.支持库 iext2
.支持库 iext
.支持库 eAPI
.支持库 EThread

.程序集 窗口程序集1
.程序集变量 路径, 文本型

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

拖放对象1.注册拖放控件 (超级列表框1.取窗口句柄 ())
组合框1.现行选中项 ＝ 1
_启动窗口.图标 ＝ #ico图标

.子程序 读取
.局部变量 ico, 字节集
.局部变量 图片数, 整数型
.局部变量 i, 整数型

通用对话框1.标题 ＝ “选择文件”
通用对话框1.过滤器 ＝ “*.exe|*.exe|*.dll|*.dll|*.ico|*.ico”
通用对话框1.初始目录 ＝ 取特定目录 (3)
通用对话框1.打开 ()
路径 ＝ 通用对话框1.文件名
图片数 ＝ 取文件内图标数 (路径)
' 提取文件内的图标数
.如果真 (图片数 ＜ 1)
    信息框 (“没有资源图标”, #错误图标, “错误”)
    返回 ()
.如果真结束
超级列表框1.全部删除 ()
.如果真 (组合框1.现行选中项 ＝ -1)
    信息框 (“请选择需要的图标大小”, #信息图标, “提示”)
    返回 ()
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 0)
    ico ＝ 建空图片组 (16, 16)
    ' 如果组合框的选中项等于选中项，存储图片的变量等于建立空的图片组数据
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 1)
    ico ＝ 建空图片组 (32, 32)
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 2)
    ico ＝ 建空图片组 (48, 48)
.如果真结束
.计次循环首 (图片数, i)
    提取加入图片 (ico, 路径, i － 1, )
.计次循环尾 ()
超级列表框1.图片组 ＝ ico
.计次循环首 (图片数, i)
    超级列表框1.插入表项 (, 到文本 (i), i － 1, , , )
.计次循环尾 ()

.子程序 保存

通用对话框2.类型 ＝ 1
通用对话框2.标题 ＝ “选择要保存图标的目录”
通用对话框2.过滤器 ＝ “*.ico|*.ico”
通用对话框2.默认文件后缀 ＝ 通用对话框2.过滤器
通用对话框2.初始目录 ＝ 取特定目录 (3)
.如果真 (通用对话框2.打开 ())
    提取资源文件图标 (路径, 0, 通用对话框2.文件名, 超级列表框1.现行选中项 ＋ 1)
.如果真结束


.子程序 批量保存
.局部变量 图片数, 整数型
.局部变量 i, 整数型
.局部变量 目录名, 文本型
.局部变量 文件名, 文本型

图片数 ＝ 超级列表框1.取表项数 ()
.如果真 (图片数 ＜ 1)
    信息框 (“没有资源图标”, #错误图标, “错误”)
    返回 ()
.如果真结束
.如果 (信息框 (“[是] [否]保存在程序的根目录”, #是否钮, ) ＝ #是钮)
    创建目录 (取当前目录 () ＋ “ico图标”)
    .计次循环首 (图片数, i)
        处理事件 ()
        目录名 ＝ 取当前目录 () ＋ “ico图标\”
        文件名 ＝ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ 到文本 (i) ＋ “.ico”
        提取资源文件图标 (路径, 0, 目录名 ＋ “” ＋ 文件名, i)
    .计次循环尾 ()
.否则
    目录名 ＝ 浏览文件夹 (“请选择要保存的路径”, )
.如果结束
.如果真 (目录名 ＝ “”)
    返回 ()
.如果真结束
.计次循环首 (图片数, i)
    处理事件 ()
    文件名 ＝ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ())) ＋ 到文本 (取小时 (取现行时间 ())) ＋ 到文本 (取分钟 (取现行时间 ())) ＋ 到文本 (i) ＋ “.ico”
    提取资源文件图标 (路径, 0, 目录名 ＋ “” ＋ 文件名, i)
.计次循环尾 ()


.子程序 拖放
.局部变量 图片数, 整数型
.局部变量 i, 整数型
.局部变量 ico, 字节集

图片数 ＝ 取文件内图标数 (路径)
.如果真 (图片数 ＜ 1)
    信息框 (“没有资源图标”, #错误图标, “错误”)
    返回 ()
.如果真结束
超级列表框1.全部删除 ()
.如果真 (组合框1.现行选中项 ＝ -1)
    信息框 (“请选择需要的图标大小”, #信息图标, “提示”)
    返回 ()
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 0)
    ico ＝ 建空图片组 (16, 16)
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 1)
    ico ＝ 建空图片组 (32, 32)
.如果真结束
.如果真 (组合框1.现行选中项 ＝ 2)
    ico ＝ 建空图片组 (48, 48)
.如果真结束
.计次循环首 (图片数, i)
    提取加入图片 (ico, 路径, i － 1, )
.计次循环尾 ()
超级列表框1.图片组 ＝ ico
.计次循环首 (图片数, i)
    超级列表框1.插入表项 (, 到文本 (i), i － 1, , , )
.计次循环尾 ()


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

启动线程 (&读取, , )

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

启动线程 (&保存, , )

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

启动线程 (&批量保存, , )

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

路径 ＝ 接收到的文件路径
启动线程 (&拖放, , )