易语言提取ICO图标源码
.版本 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_得到文件
.参数 接收到的文件路径, 文本型
路径 = 接收到的文件路径
启动线程 (&拖放, , )
提取图标易语言源码
易语言 提取资源文件图标
易语言ico图标提取源码
易语言提取ico图片源码
易语言提取微信公众号图片地址