e语言-桌面壁纸更换工具例程

桌面壁纸更换工具例程.版本 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 ()