.版本 2

.局部变量 hwndMenu, 整数型
.局部变量 c, 整数型

hwndMenu ＝ GetSystemMenu (取窗口句柄 (), 0)  ' 取得系统菜单句柄
c ＝ GetMenuItemCount (hwndMenu)  ' 取得菜单项数
DeleteMenu (hwndMenu, c － 1, #MF_BYPOSITION)  ' 删除关闭菜单项并使窗口关闭按钮失效
DeleteMenu (hwndMenu, c － 2, #MF_BYPOSITION)  ' 删除关闭菜单项上面的分割条，可删可不删
默认窗口 ＝ SetWindowLongA (取窗口句柄 (), -4, &处理)  ' 子类化窗口

.子程序 处理, 整数型, , 不要修改该子程序的返回值及参数的类型！
.参数 句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型
.局部变量 idx
.局部变量 bb

.如果真 (消息 ＝ 274 且 参数1 ＝ 61536 且 参数2 ＝ 0)  ' 截获Alt＋F4关闭窗口消息
    返回 (1)  ' 过滤截获的消息
.如果真结束
返回 (CallWindowProcA (默认窗口, 句柄, 消息, 参数1, 参数2))