系统命令消息就是这样屏蔽，哈哈。
procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND; procedure tform1.WMSysCommand(var Msg: TMessage); begin if Msg.wParam <> SC_CLOSE then inherited; end;
Delphi 如何屏蔽Alt F4,布布扣,bubuko.com
原文：http://www.cnblogs.com/findumars/p/3868691.html