全局钩子delphi 键盘全局钩子

易语言全局钩子怎么设置？

一个代码解决，你先双击窗口，然后输入下面的代码

如果真（键代码=#C键）

运行“dbasdnawfusanfwuagndfhuqn”

OK就这样

辅助软件都会在其他软件里“加载全局钩子”?

2楼说的已经非常清楚了 没必要过多解释补充几句废话：加载全局钩子提供方便的同时 也可以给你造成信息隐私泄露 可以窃密、偷听，以及注入其它进程，木马常用伎俩，也是很多“国产合法木马软件”最爱用的手法。

delphi 键盘全局钩子

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

示例代码： //全局键盘钩子消息处理函数 function KeyHookProc(nCode:Integer; wP:WPARAM; lP:LPARAM):LRESULT; stdcall; 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);