簡單實現[BCB5]：鍵盤全域性鉤子[Hook]，監視多程式鍵盤操作。 (轉)

簡單實現[BCB5]：鍵盤全域性鉤子[Hook]，監視多程式鍵盤操作。 (轉)[@more@]

 

閒來無事，在下用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 WIN 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=SetHookEx(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(T *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按鍵訊息！nn 【鍵虛擬碼】："+IntToStr(Msg.wParam));
}
 //

用 WH_JOURNALRECORD 型別HOOK可簡單實現.