桌面壁纸更换工具例程

桌面壁纸更换工具例程

.版本 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 ()

@易语言学习论坛