Поймать клик мыши

[maks5]

Как поймать клик мыши? Юзер кликнул в любое место экрана, не; обязательно формы, я должен получить координаты мыши после клика.;
Извините если повторяюсь ;
Заранее спасибо!

[Larboss]

Var P:TPoint;
...
if GetAsyncKeyState(VK_LBUTTON) <> 0 then // Левый клик мыши :D
begin
GetCursorPos(P);
end;
...
Mouse_X:=P.X;
Mouse_Y:=P.Y;

Вот как-то так, например.

Ах, да, этот код должне быть в таймере или бесконечном цикле (не обязательно, конечно).