.版本 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_得到文件 .参数 接收到的文件路径, 文本型 路径 ＝ 接收到的文件路径 启动线程 (&拖放, , )