.版本 2 .支持库 shell .程序集 窗口程序集1 .子程序 _按钮1_被单击 编辑框1.内容 ＝ 浏览文件夹 (“请选择要自定义图标的文件夹：”, ) .子程序 __启动窗口_创建完毕 .子程序 _按钮2_被单击 .局部变量 a, 整数型 时钟1.时钟周期 ＝ 100 SHChangeIconDialog (取窗口句柄 (), { 0, 0 }, 0, a) 编辑框4.内容 ＝ 到文本 (a) 时钟1.时钟周期 ＝ 0 .子程序 _时钟1_周期事件 .局部变量 hwnd, 整数型 .局部变量 标题文本, 文本型 hwnd ＝ FindWindow (“#32770”, “更改图标”) hwnd ＝ FindWindowEx (hwnd, 0, “Edit”, 0) 标题文本 ＝ 取空白文本 (255) SendMessage (hwnd, 13, 255, 标题文本) .如果真 (编辑框1.内容 ≠ 标题文本) 编辑框2.内容 ＝ 标题文本 .如果真结束 .子程序 _按钮3_被单击 .如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框4.内容 ≠ “”) 写到文件 (编辑框1.内容 ＋ “\desktop.ini”, 到字节集 (“[.ShellClassInfo]” ＋ #换行符 ＋ “InfoTip=” ＋ 编辑框3.内容 ＋ #换行符 ＋ “IconFile=” ＋ 编辑框2.内容 ＋ #换行符 ＋ “IconIndex=” ＋ 编辑框4.内容)) 置文件属性 (编辑框1.内容, #系统文件) 信息框 (“置文件夹图标成功！”, #信息图标, “恭喜：”) 返回 () .如果真结束 信息框 (“请输入相关信息！”, #错误图标, “错误信息：”) .子程序 _按钮4_被单击 结束 ()