.版本 2 .程序集 窗口程序集_启动窗口 .程序集变量 窗口信息, 整数型 .子程序 _按钮1_被单击 销毁 () .子程序 _按钮2_被单击 结束 () .子程序 _按钮3_被单击 发送信息 (16, 0, 0) .子程序 _按钮5_被单击 PostMessageA (取窗口句柄 (), 16, 0, 0) .子程序 _按钮4_被单击 SendMessageA (取窗口句柄 (), 16, 0, 0) .子程序 __启动窗口_将被销毁 .如果真 (窗口信息 ≠ 0) SetWindowLongA (取窗口句柄 (), -4, 窗口信息) .如果真结束 .子程序 _选择框1_被单击 .判断开始 (选择框1.选中) 窗口信息 ＝ SetWindowLongA (取窗口句柄 (), -4, 到整数 (&消息处理)) ' 获取窗口消息 .默认 SetWindowLongA (取窗口句柄 (), -4, 窗口信息) .判断结束 .子程序 消息处理, 整数型 .参数 句柄 .参数 消息 .参数 参数1 .参数 参数2 .如果真 (消息 ＝ 16) ' 如果消息值是关闭,返回0 不执行 返回 (0) .如果真结束 返回 (CallWindowProcA (窗口信息, 句柄, 消息, 参数1, 参数2)) ' 否则把消息返回