《BCB Hook按键资料》.pdfVIP

用键盘全局钩子[Hook]监视多进程键盘操作 // 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 _