置文件夹自定义图标和背景

置文件夹自定义图标和背景

.版本 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”, #隐藏)
    信息框 (“置文件夹图标成功！”, #信息图标, “恭喜：”)
    返回 ()
.如果真结束
信息框 (“请输入相关信息！”, #错误图标, “错误信息：”)

@易语言学习论坛