拦截Alt＋F4关闭窗口消息

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