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