易语言修改桌面背景,qiu代码？

.版本 2
.支持库 eImgConverter
.支持库 eAPI
.支持库 shellEx
.支持库 shell.程序集 窗口程序集6.子程序 _列表框1_列表项被选择
.局部变量 壁纸句柄, 整数型图片框1.图片 ＝ 读入文件 (列表框1.取项目文本 (列表框1.取焦点项目 ()))
壁纸句柄 ＝ 载入图片 (图片框1.图片)
标签5.标题 ＝ “宽:” ＋ 到文本 (画板1.取图片宽度 (壁纸句柄))
标签6.标题 ＝ “高:” ＋ 到文本 (画板1.取图片高度 (壁纸句柄))
卸载图片 (壁纸句柄).子程序 _列表框1_双击选择
.局部变量 壁纸文件名, 文本型当前壁纸 ＝ 列表框1.取焦点项目 ()
壁纸文件名 ＝ 列表框1.取项目文本 (当前壁纸)
.如果真 (到大写 (取文本右边 (壁纸文件名, 4)) ≠ “.BMP”)
.如果真 (转换到BMP (壁纸文件名, 程序目录 ＋ “WALLPAPER.BMP”) ＝ 1)
壁纸文件名 ＝ 程序目录 ＋ “WALLPAPER.BMP”
.如果真结束.如果真结束
.判断开始 (单选框1.选中)
设置桌面墙纸 (壁纸文件名, 1)
.判断 (单选框2.选中)
设置桌面墙纸 (壁纸文件名, 2)
.默认
设置桌面墙纸 (壁纸文件名, 0)
.判断结束
.子程序 _选择框4_被单击.如果 (选择框4.选中 ＝ 真)
_启动窗口.时钟2.时钟周期 ＝ 到数值 (编辑框2.内容) × 60000
编辑框2.禁止 ＝ 假
.否则
编辑框2.禁止 ＝ 真
_启动窗口.时钟2.时钟周期 ＝ 0
.如果结束
.子程序 _壁纸管理_将被销毁
.局部变量 保存壁纸文件, 整数型
.局部变量 壁纸循环, 整数型保存壁纸文件 ＝ 打开文件 (程序目录 ＋ “WALLAB.INI”, 4, )
清除数组 (壁纸列表)
.如果真 (保存壁纸文件 ≠ 0)
.计次循环首 (列表框1.取项目数 (), 壁纸循环)
写文本行 (保存壁纸文件, 列表框1.取项目文本 (壁纸循环 － 1))
加入成员 (壁纸列表, 列表框1.取项目文本 (壁纸循环 － 1))
.计次循环尾 ()
关闭文件 (保存壁纸文件)
.如果真结束
.如果 (选择框4.选中)
_启动窗口.时钟2.时钟周期 ＝ 到数值 (编辑框2.内容) × 60000
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “间隔时间”, 编辑框2.内容)
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “自动更换”, “Y”)
.否则
_启动窗口.时钟2.时钟周期 ＝ 0
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “自动更换”, “N”)
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “间隔时间”, “”)
.如果结束
.判断开始 (单选框2.选中)
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “显示方式”, “2”)
.判断 (单选框1.选中)
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “显示方式”, “1”)
.默认
写配置项 (程序目录 ＋ “clock.ini”, “更换壁纸”, “显示方式”, “0”)
.判断结束
.子程序 _壁纸管理_创建完毕
.局部变量 取壁纸循环值, 整数型.如果真 (取数组成员数 (壁纸列表) ＞ 0)
.计次循环首 (取数组成员数 (壁纸列表), 取壁纸循环值)
.如果真 (文件是否存在 (壁纸列表 [取壁纸循环值]))
列表框1.加入项目 (壁纸列表 [取壁纸循环值], )
.如果真结束 .计次循环尾 ()
.如果真结束
.如果真 (_启动窗口.时钟2.时钟周期 ＞ 0)
编辑框2.内容 ＝ 到文本 (_启动窗口.时钟2.时钟周期 ÷ 60000)
选择框4.选中 ＝ 真
.如果真结束
列表框1.选择项目 (当前壁纸, )
_列表框1_列表项被选择 ()
添加提示 (图片框1.取窗口句柄 (), “双击鼠标清除壁纸”, 假, 假)
.如果真 (窗体能否透明)
设置窗口透明度 (取窗口句柄 (), 230)
.如果真结束
.子程序 _编辑框2_内容被改变.如果真 (选择框4.选中)
_启动窗口.时钟2.时钟周期 ＝ 到数值 (编辑框2.内容) × 60000
.如果真结束
.子程序 _壁纸管理_可否被关闭, 逻辑型返回 (真).子程序 _图片框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型设置桌面墙纸 (“”, )
.子程序 _超级按钮1_被单击
.局部变量 取打开文件名, 文本型
.局部变量 保存文件名, 文本型, , "0"
.局部变量 循环取值, 整数型取打开文件名 ＝ 打开多文件对话框 (壁纸管理.取窗口句柄 (), “请选择要加入的壁纸”, “JPG,BMP,ICO|*.JPG;*.BMP;*.ICO”, )
.如果真 (取打开文件名 ≠ “”)
保存文件名 ＝ 分割文本 (取打开文件名, “;”, )
.计次循环首 (取数组成员数 (保存文件名), 循环取值)
列表框1.加入项目 (保存文件名 [循环取值], )
加入成员 (壁纸列表, 保存文件名 [循环取值])
.计次循环尾 ()
.如果真结束
.子程序 _超级按钮2_被单击
.局部变量 壁纸目录, 文本型
.局部变量 取文件名, 整数型
.局部变量 壁纸类型, 文本型, , "4"
.局部变量 保存壁纸文件名, 文本型壁纸类型 ＝ { “*.JPG”, “*.BMP”, “*.ICO” }
壁纸目录 ＝ 浏览文件夹 (“请选择要搜索壁纸的目录”, 真)
.如果真 (壁纸目录 ≠ “”)
.如果真 (取文本右边 (壁纸目录, 1) ≠ “\”)
壁纸目录 ＝ 壁纸目录 ＋ “\”
.如果真结束
.计次循环首 (4, 取文件名)
保存壁纸文件名 ＝ 寻找文件 (壁纸目录 ＋ 壁纸类型 [取文件名], )
.判断循环首 (保存壁纸文件名 ≠ “”)
列表框1.加入项目 (壁纸目录 ＋ 保存壁纸文件名, )
加入成员 (壁纸列表, 壁纸目录 ＋ 保存壁纸文件名)
保存壁纸文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
.计次循环尾 ()
.如果真结束
.子程序 _超级按钮3_被单击
.局部变量 循环取文件, 整数型.如果真 (列表框1.取项目数 () ＞ 0)
.计次循环首 (列表框1.取项目数 (), 循环取文件)
列表框1.选择项目 (循环取文件 － 1, )
.计次循环尾 ()
.如果真结束
.子程序 _超级按钮4_被单击
.局部变量 保存文件名数组, 文本型, , "0"
.局部变量 循环取名, 整数型清除数组 (保存文件名数组)
.如果真 (列表框1.取已选择项目数 () ＞ 0)
.计次循环首 (列表框1.取项目数 (), 循环取名)
.如果真 (列表框1.是否被选择 (循环取名 － 1) ＝ 假)
加入成员 (保存文件名数组, 列表框1.取项目文本 (循环取名 － 1))
.如果真结束 .计次循环尾 ()
列表框1.清空 ()
清除数组 (壁纸列表)
.计次循环首 (取数组成员数 (保存文件名数组), 循环取名)
列表框1.加入项目 (保存文件名数组 [循环取名], )
加入成员 (壁纸列表, 保存文件名数组 [循环取名])
.计次循环尾 ()
.如果真结束