如何屏蔽Alt+F4

需要捕捉WM_SYSCOMMAND消息，然后作出判断。

procedure WMSysCommand(var Msg: TMessage);
begin
 if Msg.wParam <> SC_CLOSE then
   inherited;
end;