Ich habe mal die GetCursorPos genutzt. Anbei der Schnipsel. Die Bewegung um ein Pixel kann ich sehen. Habe den Timer mal auf 60000 gesetzt. Das müßte reichen.
Mal sehen, obs auch in der Wirklichkeit funktioniert.
Das mit der Abfrage habe ich nur gemacht, weil man auch am linken Rand schon sein könnte.
Ist bestimmt noch ausbaubar und mit einer Größe von ca. 400 kB noch sehr groß. Vielleicht sollte man über eine Kommandozeilenversion nachdenken.
Delphi-Quellcode:
procedure TForm20.Timer1Timer(Sender: TObject);
var
T : TPoint;
T1: TPoint;
begin
windows.GetCursorPos(T);
T1:=T;
if T1.X>10 then begin
T1.x:=T1.X-1;
end
else begin
T1.x:=T1.X+1;
end;
windows.SetCursorPos(T1.X,T1.Y);
Sleep(100);
windows.SetCursorPos(T.X,T.Y);
end;