Eine Funktion mit der Maus nachfahren

[sakura]

Folgender Code sollte Dir einen Ansatz geben:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  P: TPoint;
begin
  for I := 0 to 100 do
  begin
    GetCursorPos(P);
    P.X := P.X + 1;
    P.Y := P.Y + 1;
    SetCursorPos(P.X, P.Y);
    Sleep(10);
  end;
end;

......