delphi?

[_predator_]

кто знает как в delphi сделать что бы курсор мыши сам двигался по определённым координатам

[Серый]

Windows.SetCursorPos(x,y); Где x и y координаты относительно экрана.

[_predator_]

Windows.SetCursorPos(x,y); Где x и y координаты относительно экрана.

спасибо конечно. но как сделать чтобы мышка сама двигалась?

[Executor]

Мда... Ну и программисты пошли...

Ставишь таймер и каждый тик сдвигаешь мышку в нужном направлении до определённых координат используя SetCursorPos(x,y);

[ALX]

http://eskinsdelphi.narod.ru/9.htm

[Jigit]

Windows.SetCursorPos(x,y); Где x и y координаты относительно экрана.

спасибо конечно. но как сделать чтобы мышка сама двигалась?

Если ты про саму мышу, вставь двигатели в нее.

[BATMEN]

можно еще так: mouse.CursorPos := point(10, 20);
смотря для чего тебе нужно, если надо например сдвинуть на 10 по Х то можешь сделать так:

var CP : TPoint;
begin
getCursorPos(CP);
inc(CP.X, 10);
mouse.CursorPos := CP;
end;

[BATMEN]

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

Код: Выделить всё

var
  Form1: TForm1;
  GetAngle : real = 0;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
   function AngleToPoint(Angle : real; Radius : word) : TPoint;
    begin
     Result.X := Round(Radius * Sin(Angle)) + mouse.CursorPos.X;
     Result.Y := Round(Radius * Cos(angle)) + mouse.CursorPos.Y;
    end;

begin
 GetAngle := GetAngle + 0.1;
 if GetAngle > 6 then GetAngle := 0;
 mouse.CursorPos := AngleToPOint(GetAngle, 5);
end;

end.

ЗЫ: Интервал таймера 50;

[Jigit]

Вот прикол я сделал полгода назад. Мыша двигается и кое-что еще делается.