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

Question

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;

Answer 1

其实要屏蔽别人退出程序的方法可以用以下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;

Answer 2

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