怎样禁止Alt+F4关闭窗口？

[MAX·WOODS]

如果知道的话，麻烦告知怎样得知窗口的关闭方式：

点击右上角关闭钮 or Alt+F4 or 通过代码调用关闭...

[chechy]

procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

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

[Hillside]

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

[qywjg]

来迟了，同意楼上意见!

[qywjg]

为什么不散分。!!!!!

[jearry_zhou]

调用API：SystemParametersInfo（SPI_SCREENSAVERRUNNING，0，nil,SPIF_SENDCHANGE)

[stardreamsx]

gz

[MAX·WOODS]

我的意思是不让Alt+F4关闭，但可以通过调用代码关闭！

[chechy]

是啊，难道我的代码不对吗？

[wljcr]

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

[Hillside]

我的意思是不让Alt+F4关闭，但可以通过调用代码关闭！
procedure Form1.CloseFormByCode;
begin
FCloseFlag:=True;
Close;
end;

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

哥们或姐们,再这样菜下去怎么好.这已经和Delphi无关了.

[chechy]

唉，Alt+f4触发的是WM_SYSCOMMAND的消息，而Close触发的是WM_CLOSE的消息。
所以在SYSCOMMAND中禁止alt+f4，并不会禁止Close。我不明白为什么要那么复杂？