Конечно не работает
, это только направление куда смотреть, а не полный код.
Код:
hMouseHook := SetWindowsHookEx(WH_MOUSE, MouseHook, 0, GetCurrentThreadID);
устанавливает хук на мышь с указанием функции MouseHook, которая будет заниматься обработкой
Код:
Result := CallNextHookEx(hMouseHook, Code, wParam, lParam);
вызвать обработчик по-умолчанию, если программа не обработала нажатия мыши.
Code и lParam - передаются в функцию системой.