Delphi 中的消息钩子函数和Windows子类处理.docxVIP

首先我们先看一下安装HOOK的函数：HHOOK SetWindowsHookEx(int idHook,//要安装的HOOK的类型HOOKPROC lpfn, //HOOK的回调函数HINSTANCE hMod,//进程DWORD dwThreadId //程序的线程，如果为0则是全局HOOK);熟悉了SetWindowsHookEx函数，我们就能开始我们的工作，挂钩进程。首先打开Delphi，创建一个DLL工程(DLL Wizard)。然后创建一个新的单元(Unit1)。首先在单元的 interface 下面声明要用到的函数。varOldHook:HHOOK;Histance:HISTANCE;OldProc:FARPROC;我们的第一个函数是安装HOOK，让我们看一下代码：Function SetHook:Boolean;stdcall;beginOldHook:=SetWindowsHookEx(WH_KEYBOARD,@HookProc,Histance,0);if (OldHook=0) then exit else Result:=True;end;这样的话就安装一个全局的键盘HOOK，HOOK的方法还有很多，在此就不一一列举了。下面介绍一下回调函数：Function HookProc(nCode,wParam,lParam:Integer);Integer;stdca