简单实现[BCB5]:键盘全局钩子[Hook],监视多进程键盘操作。 (转)

简单实现[BCB5]:键盘全局钩子[Hook],监视多进程键盘操作。 (转)[@more@]

 

闲来无事,在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按键消息!nn 【键虚拟码】:"+IntToStr(Msg.wParam));
}
 //----------------------------------------------------------------------------------------------------

用 WH_JOURNALRECORD 类型HOOK可简单实现.


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10752043/viewspace-990825/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-990825/

TApplication.OnIdle   当应用程序变为空闲时,OnIdle事件发生。   使用OnIdle事件,可以写一个应用程序空闲时执行特定处理的事件处理程序。当应用程序不处理代码时,称为应用程序空闲。例如,当应用程序等待来自用户的输入时,应用程序为空闲。   TIdleEvent类型是OnIdle事件的类型,它指向一个应用程序空闲时运行的方法。TIdleEvent类型有一个布尔型参数Done,默认时该参数为True。若参数Done为True,当OnIdle事件返回时,调用Windows API WaitMessage函数。只有在应用程序消息队列中出现一个新消息时,WaitMessage函数才放弃对其他应用程序的控制。参数Done为False时,即使应用程序不忙,也不放弃对其他应用程序的控制。   当应用程序移到空闲状态时,只调用一次OnIdle事件。除非参数Done设置为False,否则不连续调用OnIdle事件。将参数Done设置为False的应用程序,将消耗过多的CPU时间,从而影响整个系统性能。 在delphi中, 当在一个窗口上放置一个ApplicationEvents控件时,Application将会把所有的事件都寄到ApplicationEvents; 也就是说,ApplicationEvents可以拦截到应用程序的全部事件,包括OnActivate\OnHelp\OnIdle\OnRestore\OnShortCut等等, 甚至可能通过OnMessage事件,在其中截取所有post到应用程序中所有窗口的消息,如WM_PAINT,WM_KEYDOWN, WM_KEYUP等常见的windows消息; 所以当有消息到来的时候就会触发它的OnMessage事件,在OnMessage中监视消息就可以了。 Action的事件有OnExecute和OnUpdate,OnExecute事件在控制被触发时响应,比如说按钮被按下,菜单被按下,而OnUpdate事件是在应用程序空闲时被调用, APPLICATIONEVENTS是用来捕获程序级事件的 ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean); {通过 Perform 向窗体发送 消息; OnMessage 收不到} {通过 SendMessage 向窗体发送 消息; OnMessage 收不到} {通过 PostMessage 向窗体发送  消息; OnMessage 可以收到}
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值