?????????????????????? 用Delphi實現(xiàn)Windows的鼠標(biāo)鉤子函數(shù)

??? Delphi是基于PASCAL語言的Windows編程工具，功能十分強大。然而在Delphi的幫助
文件中，對Windows API函數(shù)的說明沿襲了 VC 的格式，和VC一樣，對很多API函數(shù)的用法
沒有舉例子詳細說明，對一些深入系統(tǒng)內(nèi)部的API函數(shù)更是語焉不詳，給編程者帶來不便。
筆者僅就在Windows編程中鼠標(biāo)鉤子函數(shù)（ＨＯＯＫ）的實現(xiàn)，舉例作一說明。
?? 鼠標(biāo)鉤子函數(shù)也可叫做鼠標(biāo)消息過濾器，是一種回調(diào)（ＣＡＬＬＢＡＣＫ）函數(shù)，歸
系統(tǒng)調(diào)用。如果用SetWindowsHook或SetWindowsHookEx安裝了鼠標(biāo)鉤子函數(shù)的地址， 每
當(dāng)在屏幕上移動鼠標(biāo)時，系統(tǒng)便將控制權(quán)交給鼠標(biāo)鉤子函數(shù)，這樣便使我們能夠有機會在
鼠標(biāo)鉤子函數(shù)內(nèi)部截獲各種鼠標(biāo)消息，在這些消息還沒有送達應(yīng)用程序隊列之前，顯示它
們，改變它們或直接傳給下一個缺省鼠標(biāo)鉤子函數(shù)。注意，鼠標(biāo)鉤子函數(shù)截獲的是系統(tǒng)級
消息，而不是單個應(yīng)用程序隊列內(nèi)的窗口消息；系統(tǒng)發(fā)給每個應(yīng)用程序隊列的鼠標(biāo)消息都
可以用鼠標(biāo)鉤子函數(shù)來截獲。
??? ＶＣ的Spy和Ｄelphi的WinSpy均安裝了鉤子函數(shù)用來截獲各種系統(tǒng)級的消息，其中就
包括鼠標(biāo)鉤子函數(shù)，鍵盤鉤子函數(shù)，窗口鉤子函數(shù)等。我們可以通過安裝鼠標(biāo)鉤子函數(shù)來
仿制一個自己的ＳＰＹ，當(dāng)鼠標(biāo)移動時，我們立即獲得系統(tǒng)（包括非搶先的Windows3.1和
搶先Windows95）的控制權(quán)，在鼠標(biāo)鉤子函數(shù)內(nèi)部實時地截獲鼠標(biāo)消息，顯示鼠標(biāo)的位置
和狀態(tài)以及鼠標(biāo)下窗口的局柄，標(biāo)題欄，窗口類，窗口過程地址等。當(dāng)然也可象“英漢通”
和“金山詞霸”一樣在鼠標(biāo)鉤子函數(shù)內(nèi)調(diào)用InvalidateRect()，InvalidateRgn()來獲得屏
幕上鼠標(biāo)下的單詞。（屏幕抓字的詳情請見筆者的《深入Windows內(nèi)部探險》中國計算機報
1998年第81期 ）。
? 　
??? 主程序ＳＰＹ及其動態(tài)連接庫ＭＯＵＳＥＤＬＬ的原代碼和詳細注釋如下：
{*****************************************************
?FILE?? :? MOUSEDLL.DPR?? mafeitao@371.net 1998/11/18
?〉DLL? :? MOUSEDLL.DLL
?EXPORT: sethook????? 用來安裝鼠標(biāo)鉤子函數(shù) mouseproc
???????? unhook?????? 解除對鼠標(biāo)鉤子函數(shù) mouseproc的安裝
???????? mouseproc??? 鼠標(biāo)鉤子函數(shù)本身
?*****************************************************}
library Mousedll;

uses
? Mousep in 'MOUSEP.PAS' {Form1};
exports
sethook,
unhook,
mouseproc;
{$R *.RES}
begin
end.

{*************************************************************
?file:Mousep.pas????????????????????? mafeitao@371.net
?實現(xiàn) setHook? unHook mouseProc ３個輸出函數(shù)
?*************************************************************}
unit Mousep;

interface

uses
? SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
? Forms, Dialogs, StdCtrls;

{在ＤＬＬ中也可有ＦＯＲＭ型的變量}
type
? TForm1 = class(TForm)
??? Label1: TLabel;? {顯示wParam}
??? Label2: TLabel;? {顯示lParam}
??? Label3: TLabel;? {顯示x,y}
??? Label4: TLabel;? {顯示hwnd}
??? Label5: TLabel;? {顯示window text}
??? Label6: TLabel;
??? Label7: TLabel;? {顯示window class}
? private
??? { Private declarations }
? public
??? { Public declarations }
? end;

function sethook:bool;export;
function unhook:bool;export;
function mouseProc(code:integer;w:integer;l:longint):bool;export;

var
? Form1: TForm1;
? idhook:longint;
? formok:bool;
implementation
?{*********************************************************************
?聲明安裝函數(shù)setWindowsHookEx()，
?在Ｄelphi中如果用函數(shù)setWindowsHook()則不需聲明。
?微軟說函數(shù)setWindowsHook已在Windows3.1中廢棄，為與Windows3.0兼容仍保留。
?實際上該函數(shù)setWindowsHook在Windows3.1和Windows95中仍可使用。
?{*********************************************************************}
?function setwindowsHookEx(id:integer;proc:tfarproc;hinst,htask:thandle):
???????? longint;far;external 'user';
{$R *.DFM}

{安裝鼠標(biāo)鉤子函數(shù)mouseProc}
function sethook:bool;
var
hinst:thandle;??? {該動態(tài)連接庫自己的模塊局柄}
proc:tfarproc;??? {鼠標(biāo)鉤子函數(shù)mouseProc的地址}
begin
{在動態(tài)連接庫中創(chuàng)建form1}
if formok=false then form1:=tform1.create(application) else exit;
formok:=true;{安裝form1 后,設(shè)置formok,不許再安裝form1}
{動態(tài)連接庫的application指：調(diào)用動態(tài)連接庫的主程序}
form1.show;

{不讓用系統(tǒng)菜單來雙擊關(guān)閉Form1}
form1.BorderIcons:=form1.BorderIcons-[biSystemMenu];

hinst:=getModuleHandle('mousedll');
{得到mousedll.dll的模塊局柄，即該動態(tài)連接庫自己的模塊局柄}

proc:=getProcAddress(hinst,'mouseProc');
idhook:=setWindowsHookEx(WH_MOUSE,proc,hinst,0);
{用WH_MOUSE參數(shù)安裝鼠標(biāo)鉤子后，移動鼠標(biāo)時，系統(tǒng)自動調(diào)用mouseProc鉤子}
if idhook =0 then sethook:=false else sethook:=true;
end;

{解除鼠標(biāo)鉤子函數(shù)mouseProc的安裝}
function unhook:bool;
begin
if formok=true then form1.free else exit; {檢查form1是否已經(jīng)關(guān)閉}
formok:=false;{關(guān)閉了form1,設(shè)置formok=0}
if idhook=0 then exit;
unhookWindowsHookEx(idhook);
unhook:=true;
end;

{mouseProc不由應(yīng)用程序調(diào)用，而是在鼠標(biāo)移動后，由系統(tǒng)調(diào)用}
function? mouseProc(code:integer;w:integer;l:longint):bool;
var
p:^TMouseHookStruct;
poff:word;
pseg:word;
pmemo:pchar;
begin
if code<0 then begin
??? mouseProc:=true;
??? CallNextHookEx(idhook,0,w,l);
end;
if code=HC_NOREMOVE then form1.caption:='HC_NOREMOVE';
form1.caption:='mouse hook';
mouseProc:=false;
{顯示系統(tǒng)傳來的wParam參數(shù)，w是各種鼠標(biāo)消息的標(biāo)識符? }
form1.label1.caption:='wParam='+intTostr(w);
{顯示系統(tǒng)傳來的lParam參數(shù)，l是MOUSEHOOKSTRUCT結(jié)構(gòu)的地址}
form1.label2.caption:='lParam='+intTostr(l);

poff:=loword(l);???? {得到l的低１６位}
pseg:=hiword(l);???? {得到l的高１６位}
p:=ptr(pseg,poff);?? {合成指向MOUSEHOOKSTRUCT結(jié)構(gòu)的指針}

{顯示屏幕上鼠標(biāo)的Ｘ，Ｙ坐標(biāo)}
form1.label3.caption:='pt.x='+intTostr(p^.pt.x)
???? +'? pt.y='+intTostr(p^.pt.y);
{顯示屏幕上鼠標(biāo)下的窗口局柄}
form1.label4.caption:='hwnd='+intTostr(P^.hwnd);

pmemo:=stralloc(20);
getWindowText(p^.hwnd,pmemo,20-1);
{顯示鼠標(biāo)下窗口的標(biāo)題欄}
form1.label5.caption:=strPas(pmemo);

getClassName(p^.hwnd,pmemo,20-1);
{顯示鼠標(biāo)下窗口的類}
form1.label6.caption:=strPas(pmemo);

strDispose(pmemo);

end;
end.

主程序原代碼如下：
{*******************************************
?MAINTRY.DPR?????????????? mafeitao@371.net
?******************************************}
program Maintry;

uses
? Forms,
? Tryp in 'TRYP.PAS' {Form1};

{$R *.RES}

begin
? Application.CreateForm(TForm1, Form1);
? Application.Run;
end.

{*********************************************
?TRYP.PAS??????????????????? mafeitao@371.net
?********************************************}

unit Tryp;

interface

uses
? SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
? Forms, Dialogs, StdCtrls;

type
? TForm1 = class(TForm)
??? Button1: TButton;?????? { 安裝setHook按鈕}
??? Button2: TButton;?????? { 解除 unHook按鈕}
??? Label1: TLabel;???????? {顯示安裝，解除是否成功}
??? procedure Button1Click(Sender: TObject);
??? procedure Button2Click(Sender: TObject);
? private
??? { Private declarations }
? public
??? { Public declarations }
? end;

var
? Form1: TForm1;

implementation
function sethook:bool;far;external 'mousedll';
function unhook:bool;far;external 'mousedll';
? {聲明后自動加載模塊mousedll.dll}
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if sethook then label1.caption:='set hook ok'; {安裝鼠標(biāo)鉤子函數(shù)}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if unhook then label1.caption:='unhook ok';??? {解除鼠標(biāo)鉤子函數(shù)}
end;

end.

總結(jié)

以上是生活随笔為你收集整理的用Delphi实现Windows的鼠标钩子函数的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。