使用钩子函数[3] - 建立一个全局的鼠标钩子

分两步:
一、建立 DLL, 并在 DLL 实现钩子的设置、释放和钩子函数;
二、再建一个工程调用测试.

---

第一步: 做 DLL



先建立一个 DLL 工程, 自动初始的代码如下(去掉注释了):

---

library Project1;



uses

  SysUtils,

  Classes;



{$R *.res}



begin

end.


 
   




//把工程保存为 MyHook.dpr, 并实现如下:



library MyHook;



uses

  SysUtils,

  Windows,  {钩子函数都来自 Windows 单元}

  Messages, {消息 WM_LBUTTONDOWN 定义在 Messages 单元}

  Classes;



{$R *.res}



var

  hook: HHOOK; {钩子变量}



{钩子函数, 鼠标消息太多(譬如鼠标移动), 必须要有选择, 这里选择了鼠标左键按下}

function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

begin

  if wParam = WM_LBUTTONDOWN then

  begin

    MessageBeep(0);

  end;

  Result := CallNextHookEx(hook, nCode, wParam, lParam);

end;



{建立钩子}

function SetHook: Boolean; stdcall;

begin

  hook := SetWindowsHookEx(WH_MOUSE, @MouseHook, HInstance, 0);

  Result := hook <> 0;

end;



{释放钩子}

function DelHook: Boolean; stdcall;

begin

  Result := UnhookWindowsHookEx(hook);

end;



{按 DLL 的要求输出函数}

exports

  SetHook name 'SetHook',

  DelHook name 'DelHook',

  MouseHook name 'MouseHook';



//SetHook, DelHook, MouseHook; {如果不需要改名, 可以直接这样 exports}



begin

end.


 
   

注意: SetWindowsHookEx 的第一个参数 WH_MOUSE 说明这是个鼠标钩子; 第四个参数 0 说明是全局的.
鼠标钩子回调函数的格式在 这里

然后按 Ctrl+F9 编译, 在工程目录下会生成一个和工程同名的文件, 这里是: MyHook.dll.

---

第二步: 调用

新建工程后, 保存, 并把刚才制作的 MyHook.dll 复制到这个工程目录下;
然后添加两个按钮, 实现如下:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  end;



  {DLL 中的函数声明}

  function SetHook: Boolean; stdcall;

  function DelHook: Boolean; stdcall;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{DLL 中的函数实现, 也就是说明来自那里, 原来叫什么名}

function SetHook; external 'MyHook.dll' name 'SetHook';

function DelHook; external 'MyHook.dll' name 'DelHook';



{建立钩子}

procedure TForm1.Button1Click(Sender: TObject);

begin

  SetHook;

end;



{销毁钩子}

procedure TForm1.Button2Click(Sender: TObject);

begin

  DelHook;

end;



end.


 
   

测试: 点击第一个按钮后, 钩子就启动了; 这是不管鼠标在哪点一下鼠标左键都会 "呯" 的一下; 点击第二个按钮可以收回钩子.

---

下面是动态调用的方法, 功能和上面完全一直:

---

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



{要先要定义和 DLL 中同样参数和返回值的的函数类型}

type

  TDLLFun = function: Boolean; stdcall;

  {现在需要的 DLL 中的函数的格式都是这样, 定义一个就够了}



var

 h: HWND;                   {声明一个 DLL 句柄}

 SetHook, DelHook: TDLLFun; {声明两个 TDLLFun 变量}





{载入 DLL 并调用其函数}

procedure TForm1.Button1Click(Sender: TObject);

begin

  h := LoadLibrary('MyHook.dll'); {载入 DLL 并获取句柄}

  if h<>0 then

  begin

    SetHook := GetProcAddress(h, 'SetHook'); {让 SetHook 指向 DLL 中相应的函数}

    DelHook := GetProcAddress(h, 'DelHook'); {让 DelHook 指向 DLL 中相应的函数}

  end else ShowMessage('Err');



  SetHook; {执行钩子建立函数, 这里的 SetHook 和它指向的函数是同名的, 也可以不同名}

end;



{销毁钩子, 并释放 DLL}

procedure TForm1.Button2Click(Sender: TObject);

begin

  DelHook;        {执行钩子释放函数}

  FreeLibrary(h); {释放 DLL 资源}

end;



end.


 
   

为什么全局钩子非要在 DLL 中呢?
因为每个 EXE 都是一个独立而封闭的进程; 而 DLL 则是面向系统的公用资源.
如果一个钩子不是面向系统的, 恐怕意义不大; 所以在实用中, 钩子是离不开 DLL 的.

请教大家: 全局钩子可以做在 "包" 里吗? 我还没试过.

---