用键盘全局钩子[Hook]监视多进程键盘操作

来源：作者：出处：巧巧读书 2007-10-09 进入讨论组

关键词：
windows
bcb
进程

　　闲来无事，在WIN2K下用BCB5做了个键盘挂钩小程序，监视全局按键情况。Hook安放和回调函数放在一个单独DLL中，DLL原码如下：

　　//---------------------------------------------------------------------------------------------------- extern "C" __declspec(dllexport) void __stdcall SetHook(HWND,bool); LRESULT CALLBACK HookProc(int nCode,WPARAM wParam,LPARAM lParam) //---------------------------------------------------------------------------------------------------- static HINSTANCE hInstance;　　// 应用实例句柄 static HWND hWndMain;　　　　　 // MainForm句柄 static HHOOK hKeyHook;　　　　// HOOK句柄 static const myMessage=2000;　 // 自定义消息号 static const SecondPar=1;　　　　　// 自定义消息第2参数 //---------------------------------------------------------------------------------------------------- int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved) {　hInstance=hinst; return 1; } //---------------------------------------------------------------------------------------------------- void __stdcall SetHook(HWND hMainWin,bool nCode) {　　 if(nCode)　// 安放HOOK 　 { 　　 hWndMain=hMainWin; 　　 hKeyHook=SetWindowsHookEx(WH_JOURNALRECORD,(HOOKPROC)HookProc,hInstance,0); 　 } else　　　　 // 卸下HOOK 　　 UnhookWindowsHookEx(hKeyHook); } //---------------------------------------------------------------------------------------------------- LRESULT CALLBACK HookProc(int nCode,WPARAM wParam,LPARAM lParam) {　　　　　　　　　　 EVENTMSG *keyMSG=(EVENTMSG *)lParam; if((nCode==HC_ACTION)&&(keyMSG->message==WM_KEYUP)) 　　 PostMessage(hWndMain,myMessage,(char)(keyMSG->paramL),SecondPar); 　　 // 向调用窗体发消息myMessage和虚拟键码(char)(keyMSG->paramL) return((int)CallNextHookEx(hKeyHook,nCode,wParam,lParam)); } //---------------------------------------------------------------------------------------------------- 应用代码如下：（调DLL） //---------------------------------------------------------------------------------------------------- static HINSTANCE hDLL;　// DLL句柄 typedef void __stdcall (*DLLFUN)(HWND,bool); DLLFUN DLLSetHook; static const myMessage=2000; static const SecondPar=1; //---------------------------------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner) {} //---------------------------------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { hDLL=LoadLibrary((LPCTSTR)"Project1.dll"); // DLL文件名：Project1.dll if(hDLL==NULL) 　 { ShowMessage("DLL: 不能加载！程序退出。"); exit(1); } DLLSetHook =(DLLFUN)GetProcAddress(hDLL,"SetHook"); if(DLLSetHook==NULL) 　 { ShowMessage("DLL: 函数没找到！程序退出。"); FreeLibrary(hDLL); exit(1); } DLLSetHook(this->Handle,true); } //---------------------------------------------------------------------------------------------------- void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action) { DLLSetHook(NULL,false);　// 卸下HOOK FreeLibrary(hDLL);　　　　　　　// 卸下DLL } //---------------------------------------------------------------------------------------------------- void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,bool &Handled) {　　　　　　　　　　　　　　　　　　　　 // BCB5.0 的ApplicationEvents元件 if((Msg.message==myMessage)&&(Msg.lParam==SecondPar)) 　　 ShowMessage("　收到HOOK按键消息！\n\n 【键虚拟码】："+IntToStr(Msg.wParam)); } //----------------------------------------------------------------------------------------------------