How to Hook the Mouse to Catch Events Outside of your application

最新推荐文章于 2025-03-14 09:26:36 发布

转载最新推荐文章于 2025-03-14 09:26:36 发布 · 1k 阅读

文章标签：

#hook #application #events #delphi #keyboard #function

本文介绍如何使用Delphi创建全局鼠标钩子来监控用户的鼠标活动，并通过实例演示了当鼠标触碰屏幕边缘时，如何使其移至另一侧的效果。

From Zarko Gajic,
Your Guide to Delphi Programming.
FREE Newsletter. Sign Up Now!

Learn how to track the mouse activity even when your application is not active, sits in the Tray or does not have any UI at all.

By installing a system wide (or global) mouse hook you can monitor what the user is doing with the mouse and act accordingly.

Windows Hooks?

In short, a hook is a ( callback) function you can create as part of a DLL ( dynamic link library) or your application to monitor the 'goings on' inside the Windows operating system.
There are 2 types of hooks - global and local. A local hook monitors things happening only for a specific program (or thread). A global hook monitors the entire system (all threads).

The article "An introduction to hook procedures", states that to create a global hook you need 2 projects, 1 to make the executable file and 1 to make a DLL containing the hook procedure.

Let's Hook the Mouse ...

By design, the movement of the mouse is restricted by the size of your desktop screen (including the Windows Task Bar). When you move the mouse to the left/right/top/bottom edge, the mouse will "stop" - as expected (if you do not have more that one monitor).

Here's an idea for the system-wide mouse hook ....

If, for example, you want to move the mouse to the right side of the screen when it moves toward the left edge (and "touches" it), you might write a global mouse hook to reposition the mouse pointer.

You start by creating a dynamic link library project. The DLL should export two methods : "HookMouse" and "UnHookMouse".

The HookMouse procedure calls the SetWindowsHookEx API passing the "WH_MOUSE" for the first parameter - thus installing a hook procedure that monitors mouse messages. One of the parameters to the SetWindowsHookEx is your callback function Windows will call when there is a mouse message to be processed:

SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance,0) ;

The last parameter (value = 0) in the SetWindowsHookEx defines we are registering a global hook.

The HookProc parses the mouse related messages and sends a custom message ("MouseHookMessage") to our test project:

function HookProc(nCode: Integer; MsgID: WParam; Data: LParam): LResult; stdcall;
var
   mousePoint: TPoint;
   notifyTestForm : boolean;
   MouseDirection : TMouseDirection;
begin
   mousePoint := PMouseHookStruct(Data)^.pt;

   notifyTestForm := false;

   if (mousePoint.X = 0) then
   begin
     Windows.SetCursorPos(-2 + Screen.Width, mousePoint.y) ;
     notifyTestForm := true;
     MouseDirection := mdRight;
   end;

....

   if notifyTestForm then
   begin
     PostMessage(FindWindow('TMainHookTestForm', nil), MouseHookMessage, MsgID, Integer(MouseDirection)) ;
   end;

   Result := CallNextHookEx(Hook,nCode,MsgID,Data) ;
end;

Note 1: Read the Win32 SDK Help files to find out about the PMouseHookStruct record and the signature of the HookProc function.

Note 2: a hook function does not need to send anything anywhere - the PostMessage call is used only to indicate that the DLL can comunicate with the "outer" world.

Mouse Hook "Listener"

The "MouseHookMessage" message is posted to our test project - a form named "TMainHookTestForm". We override the WndProc method to get the message and act as needed:

procedure TMainHookTestForm.WndProc( var Message: TMessage) ;
begin
   inherited WndProc(Message) ;

   if Message.Msg = HookCommon.MouseHookMessage then
   begin
     //implementation found in the accompanying code
     Signal(TMouseDirection(Message.LParam)) ;
   end;
end;

Of course, when the form is created (OnCreate) we call the HookMouse procedure from the DLL, when it gets closed (OnDestroy) we call the UnHookMouse procedure.

Download both projects to test and further explore the code.

Note: hooks tend to slow down the system because they increase the amount of processing the system must perform for each message. You should install a hook only when necessary, and remove it as soon as possible.