HHook;function
KeyPingBi(Code:Integer;Wparam:WPARAM;Lparam:LPARAM):LRESULT;STDCALL;
//鉤子回調函數beginResult:=0;if
Code<0
then
CallNextHookEx(KHandle,Code,Wparam,Lparam)
else
begin
if
(Wparam
=
VK_F4)
and
(GetKeyState(18)
<0)
then
//
Alt+F4
Result:=1
end;
end;end;窗口創建寫入下面代碼:KHandle:=SetWindowsHookEx(WH_KEYBOARD,@KeyPingBi,HInstance,GetCurrentThreadID());這樣可以了。