置文件夹自定义图标&文件夹背景图1

置文件夹自定义图标&文件夹背景图1

.版本 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_被单击

结束 ()

@易语言学习论坛-近在眼前