用键盘全局钩子Hook监督多历程键盘操纵
当前位置:以往代写 > C/C++ 教程 >用键盘全局钩子Hook监督多历程键盘操纵
2019-06-13

用键盘全局钩子Hook监督多历程键盘操纵

用键盘全局钩子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 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));
}
//----------------------------------------------------------------------------------------------------

用 WH_JOURNALRECORD 范例HOOK可简朴实现.

    关键字:

在线提交作业