如何禁止ALT＋F4来关闭程序？

[reanna]

用一个API，SystemParametersInfo：ALT＋F4的参数名是什么？

[saien]

procedure WMSysCommand(var Msg: TMessage);

begin

if Msg.wParam <> SC_CLOSE then

inherited;

end;

　

[saien]

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

[gossan]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('真的要退出吗？', '提示', MB_YESNO+MB_ICONQUESTION) = ID_no then
CanClose:=false
else
CanClose:=true;
if CanClose then Application.terminate;
end;

[cxreal]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
SystemParametersInfo(Spi_screensaverrunning,1,0,0);
if (Key=VK_F4) and (ssAlt in shift) then
Key :=0;
end;

[cxreal]

用if (Key=VK_F4) and (ssAlt in shift) then Key :=0;
即可

[hottey]

楼上说的对,用
用if (Key=VK_F4) and (ssAlt in shift) then Key :=0;
即可
就达到了屏蔽ALT＋F4按建.

[hottey]

#9 好像是TAB键.

[liyangyao970]

哎，大家都讲掉了哦
我就来接楼主的分了，呵呵

[g58521547]

studying

[郝人（好人）]

太简单了：在 onclose 中 abort；

[lzhlu]

var
CloseFlag: Boolean = Flase;

procedure TForm1.Button1Click(Sender: TObject);
begin
CloseFlag := True;
Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := CloseFlag;
end;

[prettysky]

哈哈 9494 让程序吃掉F4就行了

[pchaos]

对啊，只是需要屏蔽F4而已

[太空11]

用if (Key=VK_F4) and (ssAlt in shift) then Key :=0;
即可
#13是回车
谁知道#9是什么意思

[Devlopered]

up