.版本 2

.支持库 iext

.支持库 edroptarget

.子程序 _添加文件_被单击

.局部变量 文件, 文本型, , "0"

.局部变量 计次, 整数型

文件 ＝ 多文件对话框 (“添加文件”, “所有文件(*)|*”, , , )

.计次循环首 (取数组成员数 (文件), 计次)

    列表框.插入表项 (, 取文件名 (文件 [计次]), , , , )

    列表框.置标题 (列表框.取表项数 () － 1, 1, 文件 [计次])

.计次循环尾 ()

.子程序 取文件名, 文本型, 公开, 通过文件路径取得文件名。

.参数 完整路径, 文本型

返回 (取文本中间 (完整路径, 倒找文本 (完整路径, “\”, , 假) ＋ 1, 100000))

.子程序 取文件目录, 文本型, 公开, 通过文件路径取得文件所在的目录，结尾不包含“\”。

.参数 完整路径, 文本型

返回 (取文本左边 (完整路径, 倒找文本 (完整路径, “\”, , 假) － 1))

.子程序 _取消选中文件_被单击

.局部变量 选中, 整数型

.如果真 (列表框.现行选中项 ≠ -1)

    选中 ＝ 列表框.现行选中项

    列表框.获取焦点 ()

    列表框.删除表项 (选中)

    列表框.现行选中项 ＝ 选中

    列表框.选择表项 (选中)

.如果真结束

.子程序 _粉碎全部文件_被单击

.局部变量 计次, 整数型

.局部变量 表项数, 整数型

表项数 ＝ 列表框.取表项数 ()

.计次循环首 (列表框.取表项数 (), 计次)

    .如果 (粉碎文件 (列表框.取标题 (表项数 － 计次, 1)))

        列表框.删除表项 (表项数 － 计次)

    .否则

        输出调试文本 (列表框.取标题 (表项数 － 计次, 1) ＋ “ 失败。”)

    .如果结束

.计次循环尾 ()

.子程序 粉碎文件, 逻辑型, 公开

.参数 文件, 文本型

.局部变量 目录, 文本型

目录 ＝ 取文件目录 (文件)

写到文件 (目录 ＋ “\Del.exe”, #Del)

置文件属性 (目录 ＋ “\Del.exe”, 1 ＋ 2 ＋ 4 ＋ 32)

写到文件 (目录 ＋ “\DelFile.sys”, #DelFile)

运行 (目录 ＋ “\Del.exe ” ＋ #引号 ＋ 文件 ＋ #引号, 真, #隐藏窗口)

延时 (100) 

写到文件 (文件, 到字节集 (“呵呵”))

处理事件 ()

运行 (目录 ＋ “\Del.exe ” ＋ #引号 ＋ 文件 ＋ #引号, 真, #隐藏窗口)

处理事件 ()

置文件属性 (目录 ＋ “\Del.exe”, 0)

删除文件 (目录 ＋ “\Del.exe”)

删除文件 (目录 ＋ “\DelFile.sys”)

返回 (取反 (文件是否存在 (文件)))

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

拖放.注册拖放控件 (列表框.取窗口句柄 ())

.子程序 _拖放_得到文件

.参数 接收到的文件路径, 文本型

.局部变量 文件, 文本型, , "0"

.局部变量 计次

文件 ＝ 分割文本 (接收到的文件路径, #换行符, )

.计次循环首 (取数组成员数 (文件), 计次)

    列表框.插入表项 (, 取文件名 (文件 [计次]), , , , )

    列表框.置标题 (列表框.取表项数 () － 1, 1, 文件 [计次])

.计次循环尾 ()