易语言禁止外部消息关闭窗口

.版本 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))  ' 否则把消息返回

@福仔