Передвинуть мышь

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: integer;
  a: real;
begin
  a := 0;
  repeat
    a := a + 0.0001;
    x := round(Screen.Width div 2 * (1 + cos(a)));
    y := round(Screen.Height div 2 * (1 + sin(a)));
    SetCursorPos(x, y);
    Application.ProcessMessages;
  until Application.Terminated;
end;