一个简单问题

Question

如何屏蔽掉Alt+F4，让窗口不被Alt+F4关闭。谢谢。

Answer 1

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

Answer 2

去掉:Alt+F4键
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;
正常关闭可以定义个全局变量来控制！

Answer 3

http://search.csdn.net/Expert/topic/761/761981.xml?temp=7.898211E-04