利用HOOK建立鼠标增强程序(DELPHI)
在Windows系统中提供了一种系统消息挂钩的(Message hook)功能，使用消息挂钩，可
以实时监视处理系统中的各种消息。很多鼠标增强软件就是利用消息挂钩来拦截所有的
鼠标消息进行处理的。
要设置鼠标消息挂钩，一般先建立一个使用鼠标消息挂钩的动态连接库(DLL)文件，然
后就可以在其它程序中使用这个DLL文件处理鼠标消息。 下面的程序介绍通过鼠标消息挂钩监视鼠标消息，从而实现类似于一些鼠标增强软件一
样的使窗口上下左右滚动的功能。
1．建立动态连接库
选择菜单 File|New ，选择DLL产生一个DLL模版，保存为 MHook.Dpr file://MHook.Dpr源程序 library MHook;
uses
SysUtils, Classes,
hkproc in 'hkproc.pas';
exports
EnableMouseHook, DisableMouseHook;
begin
hNextHookProc:=0;
procSaveExit:=ExitProc; ExitProc:=@HotKeyHookExit; end.
再选择菜单 File|New ，选择Unit建立一个Pas文件，保存为 HKProc.pas file://HKProc.pas源程序 unit hkproc;
interface uses
Windows,Messages; const
Move_Up = 0;
Move_Down=1; Move_Left=2; Move_Right=3; var
hNextHookProc:HHook; procSaveExit:Pointer; M_Direct:Integer; LPoint:TPoint;
NowWindow:Integer;
function MouseProc(iCode:Integer;wParam:WPARAM; lParam:Pointer):LRESULT; stdcall;export;
function EnableMouseHook(WndHandle:integer):BOOL;export;
function DisableMouseHook:BOOL;export;
function GetDirect(FPoint : TPoint;LPoint : TPoint):integer; procedure HotKeyHookExit;far;
implementation
file://GetDirect函数根据光标的移动决定窗口滚动的方向。
function GetDirect(FPoint : TPoint;LPoint : TPoint):integer; var
iWidth,iHeight:integer; begin
iWidth:=LPoint.x-FPoint.x; iHeight:=lPoint.y-FPoint.y; Result:=-1;
if ((iWidth=0)or(iHeight=0))then exit;
if ((abs(iWidth) div abs(iHeight))>=2) then if iWidth<0 then file://Move to left Result:=Move_Left else
Result:=Move_Right
else if ((abs(iHeight) div abs(iWidth))>=2) then if iHeight<0 then file://Move to top Result:=Move_Up else
Result:=Move_Down;
end;
function MouseProc(iCode:Integer;wParam:WPARAM; lParam:Pointer):LRESULT; stdcall;export; var
pMouse:^MOUSEHOOKSTRUCT; l:integer; begin
file://如果用户按下鼠标右键同时Scroll Lock键为按下状态则 file://滚动窗口。
if ((wParam=WM_RBUTTONDOWN) and Boolean(GetKeyState(145))) then begin
pMouse:=lParam;
l:=GetDirect(lPoint,pMouse.pt); if l>=0 then M_Direct:=l;
lPoint:=pMouse.pt;
NowWindow:=WindowFromPoint(lPoint); if M_Direct=Move_Up then
SendMessage(NowWindow,WM_VSCROLL,SB_PAGEUP,0) else if M_Direct=Move_Down then
SendMessage(NowWindow,WM_VSCROLL,SB_PAGEDOWN,0) else if M_Direct=Move_Left then
SendMessage(NowWindow,WM_HSCROLL,SB_PAGELEFT,0) else if M_Direct=Move_Right then
SendMessage(NowWindow,WM_HSCROLL,SB_PAGERIGHT,0); Result:=1; exit; end
else if ((wParam=WM_RBUTTONUP) and Boolean(GetKeyState(145))) then Result:=1 else begin
Result:=0;
if iCode<0 then begin
Result:=CallNextHookEx(hNextHookProc,iCode,wParam, integer(lParam)); Exit; end;
end; end;
function EnableMouseHook(WndHandle:integer):BOOL;export; begin
GetCursorPos(lPoint); Result:=False;
if hNextHookProc<>0 then exit;
file://设置Mouse hook
hNextHookProc:=SetWindowsHookEx(WH_MOUSE,@MouseProc, Hinstance,0);
Result:=hNextHookProc<>0; end;
function DisableMouseHook:BOOL;export; begin
if hNextHookProc<>0 then begin
UnHookWindowsHookEx(hNextHookProc); hNextHookProc:=0; end;
Result:=hNextHookProc=0; end;
procedure HotKeyHookExit; begin
if hNextHookProc<>0 then DisableMouseHook;
ExitProc:=procSaveExit; end;
end.
在菜单中选择 Project|BuildMHook建立DLL文件。
2．建立程序调用动态连接库
在这里我们还是使用Delphi建立程序，当然也可以使用诸如VB等调用动态连接库。
在菜单中选 File|New Application建立一个新程序，将工程文件保存为Project1.dpr
file://project1的源程序 program Project1;
uses Forms,
Sample1 in 'Sample1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize; file://隐藏窗口
Application.ShowMainForm := False;
Application.CreateForm(TForm1, Form1); Application.Run; end.
将Form1的源程序文件保存成Sample1.pas
file://Form1的源程序 unit Sample1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Menus, ImgList,ShellApi, ExtCtrls;
const
WM_ICONMESSAGE=WM_USER+$100;
type
TForm1 = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); private
procedure WMBarIcon(varMessage:TMessage);message WM_ICONMESSAGE;
public