【文件属性】：
文件名称：e语言-桌面壁纸更换工具例程
文件大小：68KB
文件格式：RAR
更新时间：2022-09-12 06:20:30
易语言
桌面壁纸更换工具例程.版本 2
.支持库 iext
.子程序 __启动窗口_创建完毕
.局部变量 hz, 文本型
.局部变量 xtb, 整数型
.局部变量 ini, 文本型
.如果 (文件是否存在 (取运行目录 () ＋ “\Wallpaper.ini”))
ini ＝ 取空白文本 (100)
读配置文本 (“lujing”, “lj”, “”, ini, 100, 取运行目录 () ＋ “\Wallpaper.ini”)
编辑框2.内容 ＝ ini
打开 (ini, , , , , , )
到首记录 ()
.计次循环首 (取记录数 (), )
hz ＝ 取文本右边 (读 (1), 3)
.如果真 (hz ＝ “bmp”)
xtb ＝ 0
.如果真结束
.如果真 (hz ＝ “jpg”)
xtb ＝ 1
.如果真结束
.如果真 (hz ＝ “gif”)
xtb ＝ 2
.如果真结束
超级列表框1.插入表项 (, 读 (1), xtb, , , 到数值 (读 (2)))
跳过 ()
.计次循环尾 ()
.如果真 (超级列表框1.取表项数 () ≠ 0)
lj ＝ 超级列表框1.取标题 (0, )
.如果真结束
.判断开始 (超级列表框1.取表项数值 (0) ＝ 1)
单选框1.选中 ＝ 真
.判断 (超级列表框1.取表项数值 (0) ＝ 2)
单选框2.选中 ＝ 真
.判断 (超级列表框1.取表项数值 (0) ＝ 3)
单选框3.选中 ＝ 真
.默认
.判断结束
读取设置 ()
是否结束 ＝ 真
.否则
写配置文件 (“shezhi”, “genghuanshunxu”, “0”, 取运行目录 () ＋ “\Wallpaper.ini”)
写配置文件 (“shezhi”, “bizhisuoyin”, “0”, 取运行目录 () ＋ “\Wallpaper.ini”)
写配置文件 (“shezhi”, “genghuanfangshi”, “0”, 取运行目录 () ＋ “\Wallpaper.ini”)
写配置文件 (“shezhi”, “fenzhong”, “10”, 取运行目录 () ＋ “\Wallpaper.ini”)
写配置文件 (“shezhi”, “shifouyunxing”, “0”, 取运行目录 () ＋ “\Wallpaper.ini”)
子程序1 ()
【文件预览】：
桌面壁纸更换工具例程
----使用前请看.txt(558B)
----更多易语言源码和软件.url(139B)
----wallpaperelf(0123).e(125KB)
----Wallpaper.ini(135B)