MoveByPath

Эмулирует движение мыши через указанные промежуточные точки.

procedure MoveByPath(aPath:TCSMovePath; aLeftButton: boolean = false);

• aPath
  • тип: TCSMovePath
  • назначение: массив промежуточных точек
• aLeftButton
  • тип: boolean
  • назначение: флаг, указывающий, должна ли быть нажата левая клавиша мыши

1. //Передвигаем курсор мыши по дуге параболы
   var path:TCSMovePath;
   var point:TCSMovePoint;
   var i:integer;
   for i:=0 to 100 do
     begin
       point.X:=i*2;
       point.Y:=round(point.X*point.X/100);
       point.Duration:=round(i/10);
       path.add(point);
     end;
   MoveByPath(path);