请问如何屏蔽掉Alt+F4

Question

使用窗体的OnKeyDown事件来检测击键：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if (ssAlt in shift)and(key=115) then key:=0;
end;

Answer 1

屏蔽掉Alt+F4如cg1120(代码最优化－§思念是种果实，甜中带酸§) 的說法，已試過沒問題。
我也來說兩個：
procedure TForm1.FormCreate(Sender: TObject); 　 var tmp,Flag :integer;begin　 tmp := 0;Flag := 1;　 //屏蔽 Alt-Tab　 SystemParametersInfo( SPI_SETFASTTA-SKSWITCH, Flag, @tmp, 0);　 //屏蔽 Ctrl-Alt-Del　 SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0); 　end;　　

Answer 2

上面的很通用,cg1120(代码最优化－§思念是种果实，甜中带酸§) 的也不错,用SENDMESSAGE试试

Answer 3

　 //屏蔽 Ctrl-Alt-Del　 SystemParametersInfo( SPI_SCREENSAVERRU-NNING,Flag, @tmp, 0); 　这个只能在WIN 9.X下面用吧,2000屏蔽不了

Answer 4

我的程序是在一开始屏蔽掉了系统键win键alt+ctrl+del等
但是就是去不掉alt+f4 .cg1120(代码最优化－§思念是种果实，甜中带酸§) 的方法也用过了,不起作用,还请大家帮忙,谢谢了!