枚举图片设置桌面背景源码

枚举图片设置桌面背景，双击可查看图片，可以重命名。

.版本 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.全部删除 ()
_按钮_选择_被单击 ()

.子程序 __启动窗口_创建完毕

@特殊符号