Home » Tipps & Tricks » System » Tastatur und Maus » Mausbewegungen simulieren

Mausbewegungen simulieren

Folgende Prozedur bewegt die Maus von der aktuellen Position zu den Koordinaten, die der Prozedur als Parameter übergeben werden. Der dritte Parameter gibt die Zeit in Millisekunden an, die zwischen jeder Bewegung gewartet werden soll.

procedure MoveMouse(X, Y: Integer; Speed: Cardinal=1);
var
  PosX, PosY : integer;
  mPos : TPoint;
begin
  PosX := X;
  PosY := Y;

 Repeat
   sleep(speed);
   Application.Processmessages;
   GetCursorPos(mPos);
   with mPos do
   begin
     If x > PosX then
       dec(x)
     else
     If x  PosY then
       dec(y)
     else
     If y < PosY then
       inc(y);
     SetCursorPos(x,y);
   end;
  until (mPos.X=PosX) and (mPos.Y=PosY);
end;