怎样屏蔽一个窗口的ALT+F4?

Question

怎样屏蔽一个窗口的ALT+F4?
我把一个窗口的关闭按钮禁止了，但我还可以按alt+f4关闭该窗口，请问譔如何屏蔽掉？

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=115) and  (ssAlt  in shift) then
  key:=0;
end;

Answer 2

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType <> SC_CLOSE then
    inherited
end;

Answer 3

将窗体的KeyPreview设置为True,然后在OnKeyDown中加入以下代码:
if (ssAlt in shift) and (Key = 115) then Key := 0;