Animovaný kurzor dokáže získať kontrolu nad PC s Window

Audiotrack rozpraval ze o tom vedel tiez, podarilo sa mu spravit program aby kurzor mysi prebehol na Start a vypnut

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormShow(Sender: TObject);
procedure MoveMouse(X,Y,Speed: Integer);
procedure klik(xy:TPoint);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
Pt : TPoint;
begin
MoveMouse (38,760,7);
klik(Pt);
MoveMouse (38,720,7);
klik(Pt);
MoveMouse (560,300,7);
klik(Pt);
close;
end;


procedure TForm1.MoveMouse (X,Y,Speed: Integer);
var
wd, hh : integer;
mm : TPoint;
begin
if Speed < 1 then Speed := 1;
wd := X;
hh := Y;
Repeat
sleep(speed);
Application.Processmessages;
GetCursorPos(mm);
with mm do
begin
If x > wd then
dec(x)
else
If x < wd then
inc(x);
If y > hh then
dec(y)
else
If y < hh then
inc(y);
end;
SetCursorPos(mm.x,mm.y);
until (GetAsyncKeystate(Vk_Return) <> 0) or ((mm.X=X) and (mm.Y=Y));
end;

procedure TForm1.klik(xy:TPoint);
begin
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
MOUSEEVENTF_LEFTDOWN,
xy.x,
xy.y,
0,
0);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
MOUSEEVENTF_LEFTUP,
xy.x,
xy.y,
0,
0);
end;

end.