请问各位高手，我如何能把系统的ALT+F4键禁用？

Question

屏蔽：ALT+F4，你只要在Form的CloseQuery中写到CanClose:=False;

Answer 1

用一菜单其快捷键位Alt+F4,内容为空即可.

Answer 2

ALT+F4屏的话，你只要在Form的CloseQuery中写到CanClose:=False;

Answer 3

自己的程序中注册一个系统热键，把alt+f4屏蔽掉

Answer 4

可是当我在运行我的程序的同时，切换到别的程序的时候，还是可以用ALT+F4关闭啊！

Answer 5

哦，更改一下，我的做法是错误的，这样只能热键来关闭程序。
使用了窗体的OnKeyDown事件来检测击键：
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if (ssAlt in shift)and(key=115) then key:=0;
end;

Answer 6

如果我不想在我的程序关闭后，释放ALT+F4，那我应该如何实现呢
上面的老兄说的canclose:=false;只能不关闭我的应用程序，别的程序仍然可以关闭的，我的意思是，我不能用ALT+F4关闭所有的已经打开的程序！

Answer 7

首先把From，KeyPreview属性设置为True

Answer 8

你的问题是：
在系统中如何屏蔽ALT+F4等系统键？是吗？这里有源代码下载：http://www.cfan.net.cn/qikan/cxg/0204zwi.zip

Answer 9

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

Answer 10

registerhotkey()函数，设置要捕获的系统按键组合。
自定义消息函数；
注册热键
registerhotkey(form1.handle,id,mod_alt,vk_f4);
解除热键
unregisterhotkey(form1.handle,id);
procedure a(var msg:twmhotkey);message wm_hotkey;const
 id=102；
procedure tform1.a(var msg:twmhotkey);
begin
  //消息处理；
end;