请问如何在Delphi中屏蔽Alt + F4键?

[shylsz]

请问如何在Delphi中屏蔽Alt + F4键?
用
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
不能屏蔽Alt + F4,只能屏蔽其它一些系统功能键。
谢谢！

[peak]

or
FormCloseQuery()

[Sachow]

同意zxh1972的方法，很好！

[xiaohuilau]

只要将 TForm 的 KeyPreview 设为 True;然后：
procedure TForm1.form1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=115 then
KEY:=0;
end;
即可

[zxh1972]

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=VK_F4) and(Shift=[ssAlt]) then
begin
KEY:=0;
Shift:=[];
end;
end;

[wjt]

其实要屏蔽别人退出程序的方法可以用以下action的开关来实现
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if MessageDlg('Close application ?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Action := caFree
else
Action := caNone;
end;