置文件夹自定义图标和背景
.版本 2 .支持库 iext .子程序 _按钮3_被单击 .局部变量 文本, 文本型 .局部变量 文件号, 整数型 .如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框4.内容 ≠ “”) .如果 (选择框1.选中 且 编辑框5.内容 ≠ “”) 文本 = “[.ShellClassInfo]” + #换行符 + “InfoTip=” + 编辑框3.内容 + #换行符 + “IconFile=” + 编辑框2.内容 + #换行符 + “IconIndex=” + 编辑框4.内容 + #换行符 文本 = 文本 + “[ExtShellFolderViews]” + #换行符 + “[{BE098140-A513-11D0-A3A4-00C04FD706EC}]” + #换行符 + “IconArea_Image=” + 编辑框5.内容 .否则 文本 = “[.ShellClassInfo]” + #换行符 + “InfoTip=” + 编辑框3.内容 + #换行符 + “IconFile=” + 编辑框2.内容 + #换行符 + “IconIndex=” + 编辑框4.内容 .如果结束 文件号 = 打开文件 (编辑框1.内容 + “\desktop.ini”, #重写, ) 写出文本 (文件号, 文本) 关闭文件 (文件号) 置文件属性 (编辑框1.内容, #系统文件) 置文件属性 (编辑框1.内容 + “\desktop.ini”, #隐藏) 信息框 (“置文件夹图标成功!”, #信息图标, “恭喜:”) 返回 () .如果真结束 信息框 (“请输入相关信息!”, #错误图标, “错误信息:”)