delphi 键盘全局钩子

WH_KEYBOARD 对于全局的效果不好用， 换用 WH_KEYBOARD_LL 钩子吧。

示例代码：

//全局键盘钩子消息处理函数

function KeyHookProc(nCode:IntegerwP:WPARAMlP:LPARAM):LRESULTstdcall

var

pEvt: TEventMsg

vKey: Cardinal

begin

if (nCode = HC_ACTION) then begin

vKey := 0

case wP of

WM_SYSKEYDOWN, WM_KEYDOWN:

begin

pEvt := PEventMsg(LP)^

vKey := LOBYTE(pEvt.message)

case vKey of

......

end

end

end

WM_SYSKEYUP, WM_KEYUP:

end

end

result := CallNextHookEx(hKeyHook, nCode, wP, lP)

end

安装钩子：

hKeyHook := SetWindowsHookEx(WH_KEYBOARD_LL, @KeyHookProc, hInstance, 0)

(Delphi中带了)有点类似于DOS下的中断法度榜样，钩子函数可以监控体系某一类的事宜，像键盘和鼠标。在钩子函数里可以填写本身的代码。可以用以下几个函数来安装、卸载钩子：SetWindowsHookEx、CallNextHookEx、UnhookWindowsHookEx

。具体的可看Win32赞助。

---