请问如何屏蔽ALT+F4热键！！！！ 请指教！谢谢！(100分)

请问如何屏蔽ALT+F4热键！！！！ 请指教！谢谢！

用hook或许你用下面的registerhotkey的方法<br><br>public<br>procedure WMHotKey(var Message: TWMHOTKEY); &nbsp;message WM_HOTKEY;<br>....<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br>&nbsp;RegisterHotKey(Handle, GlobalAddAtom('hotkey'), mod_alt, vk_F4);<br>end;<br>...<br>procedure TForm1.WMHotKey(var Message: TWMHOTKEY);<br>begin<br>//定义热键事件<br>end;<br>...<br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br>UnregisterHotKey(Handle, GlobalAddAtom('hotkey'));<br>end;<br><br>

加上一个MenuItem，HotKey属性是Alt+F4，OnClick事件什么都不写，就屏蔽了Alt+F4了。

Adnil正确

用API函数简单！<br>SystemParametersInfo

给你个最简单的方法<br>CANCLOSE:=FALSE 窗体就关不住了<br>如想用自己的按钮关<br>先申明个窗体级的BOOLEAN变量<br>如 CLOSEFG:BOOLEAN<br>初始设置为FALSE;<br>则在点按钮的事件里<br>CLOSEFG:=TRUE;<br>CLOSE<br>再在即将关闭窗体事件CLOSEQUERY<br>写入CANCLOSE:=CLOSEFG;<br>就行了

多人接受答案了。