library mouse; // ----------------------------------------------------------------------- // Récuperation des coordonnées et de l'état des boutons de la souris // Auteur : NARDO26 // ----------------------------------------------------------------------- uses SysUtils, Windows; function GetMouseXY(panoStr:integer): integer;stdcall; var Position:TPoint; // position de la souris Coord:string; // Chaine de caractères contenant le résultat begin GetCursorPos(Position); coord := Format('%4.4d%4.4d',[Position.x,Position.y]); CopyMemory(Pbyte(pstring(panoStr)^),Pbyte(coord),Length(coord)); // Permet de savoir si il y a eu un clic de souris result := 0; if (GetAsyncKeyState(VK_LBUTTON) AND $8000)<>0 then result := 1; if (GetAsyncKeyState(VK_RBUTTON) AND $8000)<>0 then result := result + 2; if (GetAsyncKeyState(VK_MBUTTON) AND $8000)<>0 then result := result + 4; end; function SetMouseXY(pX:integer;pY:integer):integer;stdcall; begin SetCursorPos(pX,pY); result:= 1; end; exports GetMouseXY, SetMouseXY; begin end.