桌面精灵工具箱，快捷软件

.如果真 (选择夹.现行子夹 ＝ 0)
.如果真 (通用对话框1.打开 ())
图片框0.可视 ＝ 真
编辑框路径.内容 ＝ 通用对话框1.文件名
文件名_ ＝ 取文本右边 (编辑框路径.内容, 取文本长度 (编辑框路径.内容) － 倒找文本 (编辑框路径.内容, “\”, , 假))
编辑框软件名.内容 ＝ 取文本左边 (文件名_, 倒找文本 (文件名_, “.”, , 假) － 1)
编辑框软件名.获取焦点 ()
编辑框软件名.发送信息 (177, 0, -1)
.如果真结束

.如果真结束
.如果真 (选择夹.现行子夹 ＝ 1)

超级列表框1.全部删除 ()
图片组 ＝ 建空图片组 (32, 32)
打开 (取运行目录 () ＋ “\Database\工具数据库.edb”, , , , , , )
.计次循环首 (取记录数 (), n)
图标1 ＝ 读 (“图标”)
加入图片 (图片组, 图标1, )
超级列表框1.图片组 ＝ 图片组
超级列表框1.插入表项 (, 读 (“名称”), n － 1, , , )
跳过 ()
.计次循环尾 ()