.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 目录句柄, 整数型
.子程序 __启动窗口_创建完毕
.子程序 __启动窗口_将被销毁
_按钮2_被单击 ()
.子程序 _按钮2_被单击
.如果 (目录句柄 = 0)
.否则
关闭句柄 (目录句柄)
按钮1.禁止 = 假
按钮2.禁止 = 真
.如果结束
.子程序 _按钮1_被单击
.局部变量 PathDir, 文本型
PathDir = 编辑框1.内容
目录句柄 = CreateFile (PathDir, 1, 0, 0, 3, 33554432, 0)
.如果 (目录句柄 ≠ -1)
按钮1.禁止 = 真
按钮2.禁止 = 假
.否则
信息框 (“锁定失败!”, 0, “无法获取句柄”)
.如果结束
.子程序 _按钮3_被单击
编辑框1.内容 = 浏览文件夹 (“”, )