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

闲来无事，在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 TFor

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!