Двигать курсор из точки А в точку Б

[bagos]

Немного о задаче: программа нажимает в чужой программе на кнопки. С этим ок. Следущая задача это сделать имитацию пользователя, чтобы курсор выходил из точки А двигался-двигался как то и попадал в точку Б. Вот как это реализовать, у кого какие идеи?

Может уже кто сталкивался, хотелось увидеть дельных советов. Спасибо.

[dosha]

помоему есть такая функция SetCursorPos(точно не помню) которая перемещает курсор в данную точку

[bagos]

Да, спасибо, знаю такую функцию, в основном вопрос какие алгоритмы траектории движения можно придумать

[dosha]

примерно так , это часто использованые области

[bagos]

да, именно! только как это реализовать, похоже надо математику вспоминать)

[bagos]

типо того?

  for i:=0 to 100 do
  begin
    sleep(10);
    y:= trunc(функция);
    SetCursorPos(x+1,y);
  end;

[dosha]

в данном случае(у тя выполниться 100 раз) более нужен while(i=true), где i флаг, а так правильно(когда нужно выйти break или i:=false)

[bagos]

var x: real;
    sx,sy: integer;
begin
x:=-15;
while x<15 do
  begin
  SetCursorPos(trunc(20*x)+400,500-trunc(60*sin(x)));
  x:=x+0.001;
  sleep(1);
  end;

что-то медленно, как ускорить?

[SNUPY]

наверно шаг изменить:
x:=x+0.01;