.版本 2 .程序集 窗口程序集1 .程序集变量 输入的密码, 文本型 .程序集变量 设置的密码, 文本型 .程序集变量 第一次运行, 逻辑型 .子程序 __启动窗口_创建完毕 锁键 (97, 1, 0, 0) 设置的密码 ＝ 取文本注册表项 (“SYSTEMSET”, “SET”, “PMM”, “”) 是否隐藏窗口 ＝ 取数值注册表项 (“SYSTEMSET”, “SET”, “DESK”, 1) 是否用底图 ＝ 取数值注册表项 (“SYSTEMSET”, “SET”, “PIC”, 0) 底图文件名 ＝ 取文本注册表项 (“SYSTEMSET”, “SET”, “PICFILE”, “”) .如果 (设置的密码 ＝ “”) 第一次运行 ＝ 真 总在最前 ＝ 假 解锁按钮.禁止 ＝ 真 退出按钮.禁止 ＝ 假 设置按钮.禁止 ＝ 假 设置按钮.获取焦点 () 信息框 (“本程序还未进行设置，请按下设置钮对本程序进行初始设置！”, #信息图标, “信息：”) .否则 .如果真 (是否隐藏窗口 ＝ 1) 位置 ＝ 3 .如果真结束 设置鼠标位置 () .如果结束 .如果真 (是否用底图 ＝ 1) _启动窗口.底图 ＝ 读入文件 (底图文件名) .如果真结束 .子程序 _密码框_内容被改变 输入的密码 ＝ 密码框.内容 .子程序 _解锁按钮_被单击 .如果 (输入的密码 ＝ 设置的密码) 退出按钮.禁止 ＝ 假 设置按钮.禁止 ＝ 假 总在最前 ＝ 假 锁键 (97, 0, 0, 0) 取消鼠标限制 (0) 解锁按钮.类型 ＝ 0 退出按钮.类型 ＝ 1 .否则 密码框.获取焦点 () .如果结束 .子程序 _设置按钮_被单击 载入 (设置窗口, _启动窗口, 真) .子程序 _退出按钮_被单击 结束 () .子程序 设置鼠标位置 .局部变量 RECT, 矩形区域 RECT.Left ＝ _启动窗口.左边 RECT.Top ＝ _启动窗口.顶边 ＋ 30 RECT.Right ＝ _启动窗口.左边 ＋ 135 RECT.Bottom ＝ _启动窗口.顶边 ＋ 128 限制鼠标 (RECT)