Delphi. Глобальный хук

Задача: учитывать все клики мышкой в любых приложениях в системе. В моём случае это игра работающая с DirectX.
Возможно ли отлавливать нажатия мышкой в игре?

Глобальный хук клавиатуры работает, мышка никак...
Помогите куском кода

Не совсем уверен, но мне кажется стоит погуглить что-либо на тему Windows API ))) Там наверняка есть нужное

slavainov, есть такая программа DelphiWorld.
Поищите там)

В простейшем случае что-то вроде такого:

uses Wintypes, Winprocs, Messages;


var

	HookedAlready: Boolean;


implementation


var

	ourHook: HHook;


function SetHook: Boolean;

begin

	if HookedAlready then exit;

	ourHook := SetWindowsHookEx(WH_MOUSE, HookProc, HInstance, 0);

	HookedAlready := True;

end;


function UnHookHook: Boolean;

begin

	UnHookWindowsHookEx(ourHook);

	HookedAlready := False;

end;


function HookProc(Code: integer; wParam: Word; lParam: Longint): Longint;

begin

	if (wParam = WM_LBUTTONDOWN) then MessageBeep(0);

	result := CallNextHookEx(ourHook, Code, wParam, lParam);

end;

Только 100%, что этим не ограничится.