.版本 2 .支持库 iext .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 集_图片路径, 文本型 .子程序 _按钮_选择_被单击 .局部变量 局_图片名称数组, 文本型, , "0" .局部变量 局_计次, 整数型 .局部变量 局_索引, 整数型 子程序_图片枚举 (编辑框_图片目录.内容, 局_图片名称数组) .计次循环首 (取数组成员数 (局_图片名称数组), 局_计次) 局_索引 ＝ 超级列表框1.插入表项 (, 到文本 (局_计次), , , , ) 超级列表框1.置标题 (局_索引, 1, 局_图片名称数组 [局_计次]) .计次循环尾 () .子程序 子程序_图片枚举 .参数 参_路径, 文本型 .参数 参_图片数组, 文本型, 数组, 存放的是图片名称 .局部变量 局_文件名, 文本型 集_图片路径 ＝ 参_路径 .如果真 (取文本右边 (集_图片路径, 1) ≠ “\”) 集_图片路径 ＝ 集_图片路径 ＋ “\” .如果真结束 局_文件名 ＝ 寻找文件 (集_图片路径 ＋ “*.png”, 1 ＋ 2 ＋ 4 ＋ 32) .判断循环首 (局_文件名 ≠ “”) 加入成员 (参_图片数组, 局_文件名) 局_文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 32) .判断循环尾 () 局_文件名 ＝ 寻找文件 (集_图片路径 ＋ “*.jpg”, 1 ＋ 2 ＋ 4 ＋ 32) .判断循环首 (局_文件名 ≠ “”) 加入成员 (参_图片数组, 局_文件名) 局_文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 32) .判断循环尾 () .子程序 _超级列表框1_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 图片框1.图片 ＝ 读入文件 (集_图片路径 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)) .子程序 _超级列表框1_右键单击表项 .如果真 (超级列表框1.现行选中项 ≠ -1) 弹出菜单 (操作菜单, , ) .如果真结束 .子程序 _设置背景_被选择 设置桌面墙纸 (集_图片路径 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1), #接口常量.拉伸) .子程序 _重命名_被选择 .局部变量 txt, 文本型 .局部变量 图片后缀, 文本型 输入框 (, “信息:”, , txt, #输入文本, _启动窗口) 图片后缀 ＝ 取文本右边 (超级列表框1.取标题 (超级列表框1.现行选中项, 1), 3) .如果真 (txt ≠ “”) 文件更名 (集_图片路径 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1), 集_图片路径 ＋ txt ＋ “.” ＋ 图片后缀) .如果真结束 超级列表框1.全部删除 () _按钮_选择_被单击 () .子程序 __启动窗口_创建完毕