在delphi中怎样给程序屏蔽alt+f4

Question

当你不需要让用户按Alt+Enter、Ctrl+Alt+Del、Ctrl+Esc等功能键的时候加入以下代码： 
Var 
temp:integer; 
begin 
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0); 
end; 
当你要恢复功能键时用以下代码： 
Var 
Temp:integer; 
begin 
SystemParametersInfo(spi_screensaverrunning,0,@temp,0); 
end; 以上代码在win9X下有效。

Answer 1

简单的方法是，把Form的KeyPreview属性打开,在onKeyDown事件中:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssAlt]) and (Key = vk_F4) then
    Key := 0;
end;

Answer 2

用不着这么深奥。
只要再窗体的ONCLOSEQUERY事件中判断就是了，如果你不想它关。
就canclose:=false;  否则canclose:=true;