Быстрая функция Sleep

  TimeBeginPeriod(1); // Включает точность таймера 1 мс.

  TimeEnd(1); // Выключает повышенное разрешение.

TimeEndPeriod(1); // Выключает повышенное разрешение.

procedure TForm1.FormCreate(Sender: TObject);
var bt,et:Cardinal; i:Integer;
begin
TimeBeginPeriod(1);
bt:=timeGetTime;
for i:=0 to 999 do Sleep(1);
et:=timeGetTime;
TimeEndPeriod(1);
ShowMessage(IntToStr(et-bt));
end;

function SleepMicro(mksec:cardinal):boolean;
var freq:int64;
count,count2,delta:int64;
begin
  result:=QueryPerformanceFrequency(freq);
  result:=QueryPerformanceCounter(count);
  if not result then exit;
  delta:=(mksec*freq) div 1000000;
  count2:=count+delta;
  while count2>count do QueryPerformanceCounter(count);
end;

type SPI_MouseThreshholdsInfo=record Treshold1, Treshold2, Acceleration:Integer; end;
 
function GetMouseSpeed:integer;
begin
SystemParametersInfo(SPI_GETMOUSESPEED, 0, @Result, 0);
end;
 
function SetMouseSpeed(Speed:integer):boolean;
begin
Result:=SystemParametersInfo(SPI_SETMOUSESPEED,1,Pointer(Speed),0);
end;
 
function GetMouseThreshholds:SPI_MouseThreshholdsInfo;
begin
SystemParametersInfo(SPI_GETMOUSE, 0, @Result, 0);
end;
 
procedure SendInputMouseMove(X,Y:Integer);
var SI:TInput; Speed:integer; mt,mt_bak:SPI_MouseThreshholdsInfo;
begin
Speed:=GetMouseSpeed;
mt_bak:=GetMouseThreshholds;
mt.Treshold1:=0; mt.Treshold2:=0; mt.Acceleration:=0;
SystemParametersInfo(SPI_SETMOUSE,0,@mt,0);
SetMouseSpeed(10);
 
SI.mi.dx:=x;
SI.mi.dy:=y;
SI.mi.dwFlags:=MOUSEEVENTF_MOVE;
 
SI.Itype:=INPUT_MOUSE;
SI.mi.dwExtraInfo:=GetMessageExtraInfo;
SendInput(1,SI,SizeOf(TInput));
 
SystemParametersInfo(SPI_SETMOUSE,0,@mt_bak,0);
SetMouseSpeed(Speed);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
for i:=0 to 999 do SendInputMouseMove(0,0);
end;

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    FCoorda: array of TPoint;
    procedure AddCoord(Value: TPoint);
    procedure ClearCoord;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AutoScroll := false;
  Button1.Caption := 'Генерировать круг';
  Button2.Caption := 'Генерировать параболу';
  Button3.Caption := 'Старт';
  Label1.Caption := 'Длительность'#13#10'перемещения, мс:';
  SpinEdit1.Value := 3000; // Длительность движения мыши в миллисекундах
end;
 
procedure TForm1.AddCoord(Value: TPoint);
begin
  SetLength(FCoorda, Length(FCoorda) + 1);
  FCoorda[High(FCoorda)] := Value;
end;
 
procedure TForm1.ClearCoord;
begin
  SetLength(FCoorda, 0);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, cx, cy, r: integer;
begin
  // Добавить координаты окружности
  ClearCoord;
  cx := Screen.Width  div 2;
  cy := Screen.Height div 2;
  r := 200;
  for i := 0 to 199 do
    AddCoord(Point(cx + Round(Sin(i/100*Pi)*r), cy - Round(Cos(i/100*Pi)*r)));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i, cx, cy: integer;
begin
  // Добавить координаты параболы
  ClearCoord;
  cx := Screen.Width  div 2;
  cy := Screen.Height div 2;
  r := 200;
  for i := -100 to 100 do
    AddCoord(Point(cx + i*2, cy - Round(i*i/30) + 100));
end;
 
procedure SetMouseCoord1(Value: TPoint);
var
  ti:TINPUT;
begin
  ti.Itype := 0;// (0 - mouse, 1 - keyboard, 2 - hardware)
  ti.mi.dx := Round(65535/(Screen.Width -1)*Value.X); // 0 - 65535 - full screen
  ti.mi.dy := Round(65535/(Screen.Height-1)*Value.Y); // 0 - 65535 - full screen
  ti.mi.mouseData := 0; // 0 if not whell or xbutton events
  ti.mi.dwFlags := MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE;
  ti.mi.time := 0; // 0 - used system timestamp
  ti.mi.dwExtraInfo := 0;
  SendInput(1, ti, sizeof(tagINPUT));
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
  i: integer;
  dt, st, ct: double;
begin
  if Length(FCoorda) = 0 then
    Exit;
  dt := SpinEdit1.Value / Length(FCoorda);
  dt := dt/24/60/60/1000; // Перевод миллисекунд в формат TDateTime
  TimeBeginPeriod(1);
  st := Now;
  for i := 0 to High(FCoorda) do begin
    SetMouseCoord1(FCoorda[i]);
    while Now < (st + dt*i) do // Ожидание нужного момента времени по системным часам
      Sleep(1);
  end;
  TimeEndPeriod(1);
end;
 
end.