学用钩子函数
?牐犑褂霉匙雍⒉皇鞘裁锤呱畹募际酰茉缭贛icrosoft的Win32 SDK手册上就有记载。不过很可惜要看懂Microsoft的手册，可是不容易的事！而且它的例子是使用SDK写的，又不完整！这就让我们这些只会Delphi的程序员更看不懂了。
?牐犌岸问奔湮已芯苛艘幌鹿匙雍衷谖野盐壹钢艿难芯砍晒闯隼矗Ｍ源蠹矣兴镏?
?牐牴匙雍还灿?12种，分为全局钩子和线程钩子两种。线程钩子就只监视某个线程，全局钩子可以监视Windows的所有线程。具体的你可以看看Delphi 带的Win32 SDK（说实话有些钩子我也没有用过^＿^），全局钩子是必须用DLL加载，也就是说钩子函数必须包装为一个DLL文件，然后再在主程序中调用钩子DLL中函数才可以！而且有些钩子是必须使用DLL加载为全局钩子，其他的钩子就可以分为全局和进程两种。
?牐犜俳馐蜕柚霉匙拥腁pi函数：
?牐爁unction SetWindowsHookEx（idHook: Integer; lpfn: TFNHookProc; hmod: HINST; dwThreadId: DWORD）: HHOOK; stdcall;
?牐犉渲械谝桓霾问枪匙拥睦嘈停坏诙霾问枪匙雍牡刂罚坏谌霾问前匙雍哪？榫浔坏谒母霾问付?监视的线程；返回钩子句柄。如果指定了某个确定的线程就只监视那个线程，即是线程钩子；如果为空，即是监视所有线程的全局钩子。
?牐犎绻阒幌胧褂媒坦匙拥幕埃幸桓鱿殖傻目丶梢杂茫褪荝x的RxWindowHook控件。拖到窗体上，设置Active为True就可以了。然后它只有BeforeMessage（消息从消息队列取走前）和AfterMessage（消息从消息队列取走后）两个事件，响应它就可以了，怎么用就看你的了。
?牐犗旅嫖宜邓等止匙拥氖褂茫∥矣米罴虻サ氖蟊耆止匙咏步猓壹俣?你懂如何写DLL。来，看一个最简单的源程序：
#1?牐犚弧LL的工程文件
?牐爈ibrary hookprj;
?牐爑ses
?牐燬ysUtils，
?牐燙lasses，
?牐爃kprocunit in ＇hkprocunit.pas＇;
?牐爗$R *.RES}
?牐爀xports //只要把这两个函数输出就可以了，EnableMouseHook，DisableMouseHook;//不会不懂函数的意思吧^＿^
?牐燽egin
?牐爀nd.
#1?牐牰LL输出函数的实现单元
?牐爑nit hkprocunit;
?牐爄nterface
?牐爑ses
?牐燱indows，Messages;
?牐爒ar
?牐爃Hk: HHOOK;//钩子的句柄值。
?牐爁unction MouseHookProc（nCode: Integer;WParam: WPARAM;LParam: LPARAM）: LRESULT;stdcall;
?牐?//鼠标钩子的回调函数，即用它来处理得到消息后要干什么。这里我只是发送一个//WM＿PASTE消息。
?牐?//nCode参数是Hook的标志，一般只关心小于0时。看下面的详细说明
?牐?//WParam参数表示鼠标消息的类型
?牐?//LParam参数是一个指向 TMOUSEHOOKSTRUCT 结构的指针。结构包含了鼠标消息的状态，我只用了hwnd一个
?牐?//即鼠标消息要传递给的窗口句柄。
?牐?//返回值如果不是0的话Windows就把这个消息丢掉，其它的程序就不会再收到这个消息了。
?牐爁unction EnableMouseHook:Boolean; stdcall; export;
?牐爁unction DisableMouseHook:Boolean; stdcal; export;//两个函数都是Boolean类型，成功都是返回True
?牐爄mplementation
?牐爁unction MouseHookProc（nCode: Integer;WParam: WPARAM;LParam:LPARAM）: LRESULT;stdcall;
?牐爒ar
?牐燤ouseHookStruct: ^TMOUSEHOOKSTRUCT;//这个结构Delphi在Windows单元有定义，直接用就可以了。
?牐爊State: SHORT;//得到键盘状态的GetKeyState函数的返回值。这是一个16位的数。
?牐燽egin
?牐燫esult := 0; //最好首先给它一个返回值，不然会有警告的！记住这可不是C语言。
?牐?//当nCode小于0时表示还有其它的Hook必须把参数传给它。
?牐?//此时就要用Api函数CallNextHookEx让它调用下一个Hook!!!当然不用好像也可以。
?牐爄f nCode ＜ 0 then
?牐燫esult := CallNextHookEx（hHk，nCode，WParam，LParam）//参数是现成的，直接用就可以了。
?牐?//详细的说明可以参考Win32 SDK
?牐爀lse if wParam = WM＿LBUTTONDBLCLK then //判断是不是鼠标左键双击事件
?牐燽egin
?牐爊State := GetKeyState（VK＿CONTROL）;//这个函数只有一个参数，就是要得到的键的//键值，这里用Windows的虚拟键值表示ctrl键。
?牐爄f （nState and $80000000） = $80000000 then//如果按下了，那么返回值的最高位为1
?牐燽egin //即是16进制的80000000，如果没有按下就返回0
?牐燤ouseHookStruct := Pointer（LParam）;??//转换指针并付值给MouseHookStruct变量。
?牐燬endMessage（MouseHookStruct.hwnd，WM＿PASTE，0，0）;//如果条件都满足了就发送WM＿PASTE（粘贴）消息
?牐爀nd;
?牐爀nd;
?牐爀nd;
?牐爁unction EnableMouseHook:Boolean; stdcall; export;
?牐燽egin
?牐爄f hHk = 0 then //为了安全，必须判断一下再设置钩子。
?牐燘egin
?牐?//第三个参数的Hinstance 在Delphi中有定义，用就可以了。第四个参数必须为0
?牐爃Hk := SetWindowsHookEx（WH＿MOUSE，@MouseHookProc，Hinstance，0）;
?牐燫esult := True;
?牐爀nd
?牐爀lse
?牐燫esult := False;
?牐爀nd;
?牐爁unction DisableMouseHook:Boolean; stdcall; export;
?牐燽egin
?牐爄f hHk ＜＞ 0 then //如果有钩子就卸掉它。
?牐燽egin
?牐燯nHookWindowsHookEx（hHk）;
?牐爃Hk := 0;
?牐燫esult := True;
?牐爀nd
?牐爀lse
?牐燫esult := False;
?牐爀nd;
?牐爀nd.
#1?牐犎⑹褂霉匙拥挠τ贸绦虻墓こ涛募?
?牐爌rogram Project1;
?牐爑ses
?牐燜orms，
?牐燯nit1 in ＇Unit1.pas＇ {Form1};?牔?
?牐爗$R *.RES}
?牐?...
#1?牐犓摹⑹褂霉匙拥挠τ贸绦虼?
?牐爑nit Unit1;
?牐爄nterface
?牐爑ses
?牐燱indows， Messages， SysUtils， Classes， Graphics， Controls， Forms， Dialogs，StdCtrls， RxHook;
?牐爐ype
?牐燭Form1 = class（TForm）
?牐燘utton1: TButton;//放上两个Button和一个Edit控键用来试用我们的钩子函数。
?牐燘utton2: TButton;
?牐燛dit1: TEdit;
?牐爌rocedure Button1Click（Sender: TObject）;
?牐爌rocedure Button2Click（Sender: TObject）;
?牐爌rocedure FormClose（Sender: TObject; var Action: TCloseAction）;
?牐爌rivate
?牐爗 Private declarations }
?牐爌ublic
?牐爗 Public declarations }
?牐爀nd;
?牐爒ar
?牐燜orm1: TForm1;
?牐?//下面是调用hookprj.dll中的函数。
?牐爁unction EnableMouseHook:Boolean; stdcall; external ＇Hookprj.dll＇ name ＇EnableMouseHook＇;
?牐爁unction DisableMouseHook:Boolean; stdcall; external ＇Hookprj.dll＇ name ＇DisableMouseHook＇;
?牐爄mplementation
?牐爗$R *.DFM}
?牐爌rocedure TForm1.Button1Click（Sender: TObject）;
?牐燽egin
?牐爄f EnableMouseHook then
?牐燬howMessage（＇启动钩子成功＇）;??
?牐爀nd;??
?牐爌rocedure TForm1.Button2Click（Sender: TObject）;??
?牐燽egin
?牐爄f DisableMouseHook then
?牐燬howMessage（＇停止钩子成功＇）;
?牐爀nd;
?牐爌rocedure TForm1.FormClose（Sender: TObject; var Action: TCloseAction）;??
?牐燽egin
?牐?//这里调用是必需的，否则有可能没有卸载钩子就退出了，那就不好了。
?牐燚isableMouseHook;
?牐爀nd;
?牐爀nd.