Mam taką procedure tylko problem tkwi w tym, że jak chce by przy każdym kliknięciu myszki wysyłało mi namiary nawet jak klikam w innym programie czy po za obszarem prgramu (tego, który wysyła te namiary).
Mam tylko tyle:
var
pozycja : tpoint;
pos : string;
wiadomosc : string;
begin
GetCursorPos(pozycja);
pos:=IntToStr(pozycja.x)+'x'+IntToStr(pozycja.y);
wiadomosc:='ke'+pos;
ClientSocket1.socket.sendtetd(wiadomosc);