.版本 2

.支持库 shell

.程序集 窗口程序集1

.子程序 _浏览CAB_被单击

.如果真 (通用对话框.打开 ())

    CAB.内容 ＝ 通用对话框.文件名

.如果真结束

.子程序 _浏览目录_被单击

.局部变量 目录, 文本型

目录 ＝ 浏览文件夹 (“选择要解压到的目录。”, )

.如果真 (目录 ≠ “”)

    文件夹.内容 ＝ 目录

.如果真结束

.子程序 _解压_被单击

运行 (“expand ” ＋ #引号 ＋ CAB.内容 ＋ #引号 ＋ “ -F:” ＋ #引号 ＋ 指定.内容 ＋ #引号 ＋ “ ” ＋ #引号 ＋ 文件夹.内容 ＋ #引号, 假, 1)

信息框 (“解压完成！”, 64, )