利用HOOK建立鼠標增強程序(DELPHI)

1、利用HOOK建立鼠標增強程序(DELPHI)在Windows系統(tǒng)中提供了一種系統(tǒng)消息掛鉤的(Message hook)功能，使用消息掛鉤，可以實時監(jiān)視處理系統(tǒng)中的各種消息。很多鼠標增強軟件就是利用消息掛鉤來攔截所有的鼠標消息進行處理的。要設置鼠標消息掛鉤，一般先建立一個使用鼠標消息掛鉤的動態(tài)連接庫(DLL)文件，然后就可以在其它程序中使用這個DLL文件處理鼠標消息。下面的程序介紹通過鼠標消息掛鉤監(jiān)視鼠標消息，從而實現(xiàn)類似于一些鼠標增強軟件一樣的使窗口上下左右滾動的功能。1建立動態(tài)連接庫選擇菜單 File|New ，選擇DLL產(chǎn)生一個DLL模版，保存為 MHook.Dprfile:/MHook.

2、Dpr源程序library MHook;usesSysUtils,Classes,hkproc in 'hkproc.pas'exportsEnableMouseHook,DisableMouseHook;beginhNextHookProc:=0;procSaveExit:=ExitProc;ExitProc:=HotKeyHookExit;end.再選擇菜單 File|New ，選擇Unit建立一個Pas文件，保存為 HKProc.pasfile:/HKProc.pas源程序unit hkproc;interfaceusesWindows,Messages;constMov

3、e_Up = 0;Move_Down=1;Move_Left=2;Move_Right=3;varhNextHookProc: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 DisableMo

4、useHook:BOOL;export;function GetDirect(FPoint : TPoint;LPoint : TPoint):integer;procedure HotKeyHookExit;far;implementationfile:/GetDirect函數(shù)根據(jù)光標的移動決定窗口滾動的方向。function GetDirect(FPoint : TPoint;LPoint : TPoint):integer;variWidth,iHeight:integer;beginiWidth:=LPoint.x-FPoint.x;iHeight:=lPoint.y-FPoint.y

5、;Result:=-1;if (iWidth=0)or(iHeight=0)thenexit;if (abs(iWidth) div abs(iHeight)>=2) thenif iWidth<0 then file:/Move to leftResult:=Move_LeftelseResult:=Move_Rightelse if (abs(iHeight) div abs(iWidth)>=2) thenif iHeight<0 then file:/Move to topResult:=Move_UpelseResult:=Move_Down;end;func

6、tion MouseProc(iCode:Integer;wParam:WPARAM;lParam:Pointer):LRESULT; stdcall;export;varpMouse:MOUSEHOOKSTRUCT;l:integer;beginfile:/如果用戶按下鼠標右鍵同時Scroll Lock鍵為按下狀態(tài)則file:/滾動窗口。if (wParam=WM_RBUTTONDOWN) and Boolean(GetKeyState(145) thenbeginpMouse:=lParam;l:=GetDirect(lPoint,pMouse.pt);if l>=0 thenM_D

7、irect:=l;lPoint:=pMouse.pt;NowWindow:=WindowFromPoint(lPoint);if M_Direct=Move_Up thenSendMessage(NowWindow,WM_VSCROLL,SB_PAGEUP,0)else if M_Direct=Move_Down thenSendMessage(NowWindow,WM_VSCROLL,SB_PAGEDOWN,0)else if M_Direct=Move_Left thenSendMessage(NowWindow,WM_HSCROLL,SB_PAGELEFT,0)else if M_Dir

8、ect=Move_Right thenSendMessage(NowWindow,WM_HSCROLL,SB_PAGERIGHT,0);Result:=1;exit;endelse if (wParam=WM_RBUTTONUP) and Boolean(GetKeyState(145) thenResult:=1elsebeginResult:=0;if iCode<0 thenbeginResult:=CallNextHookEx(hNextHookProc,iCode,wParam,integer(lParam);Exit;end;end;end;function EnableMo

9、useHook(WndHandle:integer):BOOL;export;beginGetCursorPos(lPoint);Result:=False;if hNextHookProc<>0 thenexit;file:/設置Mouse hookhNextHookProc:=SetWindowsHookEx(WH_MOUSE,MouseProc,Hinstance,0);Result:=hNextHookProc<>0;end;function DisableMouseHook:BOOL;export;beginif hNextHookProc<>0

10、thenbeginUnHookWindowsHookEx(hNextHookProc);hNextHookProc:=0;end;Result:=hNextHookProc=0;end;procedure HotKeyHookExit;beginif hNextHookProc<>0 thenDisableMouseHook;ExitProc:=procSaveExit;end;end.在菜單中選擇 Project|Build MHook建立DLL文件。2建立程序調用動態(tài)連接庫在這里我們還是使用Delphi建立程序，當然也可以使用諸如VB等調用動態(tài)連接庫。在菜單中選 File|Ne

11、w Application建立一個新程序，將工程文件保存為Project1.dprfile:/project1的源程序program Project1;usesForms,Sample1 in 'Sample1.pas' Form1;$R *.RESbeginApplication.Initialize;file:/隱藏窗口Application.ShowMainForm := False;Application.CreateForm(TForm1, Form1);Application.Run;end.將Form1的源程序文件保存成Sample1.pasfile:/Form1

12、的源程序unit Sample1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Menus, ImgList,ShellApi, ExtCtrls;constWM_ICONMESSAGE=WM_USER+$100;typeTForm1 = class(TForm)procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure FormCreate(Sender: TOb

13、ject);privateprocedure WMBarIcon(var Message:TMessage);message WM_ICONMESSAGE;publicend;function EnableMouseHook(WndHandle:integer):BOOL;external 'MHook.DLL'function DisableMouseHook:BOOL;external'MHook.DLL'varForm1: TForm1;implementation$R *.DFMprocedure TForm1.WMBarIcon (var Messag

14、e:TMessage);beginfile:/用戶雙擊任務欄圖標則關閉程序if Message.LParam = WM_LBUTTONDBLCLK thenclose;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);varlpData:PNotifyIconData;beginfile:/刪除任務欄圖標lpData := new(PNotifyIconDataA);lpData.cbSize := 88;/SizeOf(PNotifyIconDataA);lpData.Wnd := Form1.

15、Handle;lpData.hIcon := Form1.Icon.Handle;lpData.uCallbackMessage := WM_ICONMESSAGE;lpData.uID :=0;lpData.szTip := '鼠標演示'lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;Shell_NotifyIcon(NIM_DELETE,lpData);dispose(lpData);file:/解除Mouse hookDisableMouseHook;end;procedure TForm1.FormCreate(S

16、ender: TObject);varlpData:PNotifyIconData;beginEnableMouseHook(Form1.Handle);Form1.Visible := False;lpData := new(PNotifyIconDataA);lpData.cbSize := 88;/SizeOf(PNotifyIconDataA);lpData.Wnd := Form1.Handle;lpData.hIcon := Form1.Icon.Handle;lpData.uCallbackMessage := WM_ICONMESSAGE;lpData.uID :=0;lpData.szTip := '鼠標演示'lpData.uFlags :=