[YVitaliy]

Сообщение от TidalAeon

А какая функция получения координат? я не понял

Так ты же ее сам и описал:

Код:

function WndProc(Wnd:HWND;Msg,wParam,lParam:Integer):Integer;stdcall;
var CPos:TPoint;
begin
    if msg=WM_LBUTTONDOWN then
         begin
          getCursorPos(CPos);
          ScreenToClient(Wnd, CPos);
          showmessage(inttostr(CPos.X)+', '+inttostr(CPos.Y) );

         end;
end;

Где Wnd - твое окно.

ЗЫ конечно еще есть
LOWORD(lParam);
HIWORD(lParam);
тоже должно действовать