Mover el Cursor hasta llegar a X,Y

[Alejo15x]

Hola!

Estoy jugando con la API de windows, para una aplicación en creación.
Necesito mover el cursor (no finjir el click y ya), no. Moverlo hasta llegar a unas pocisiones TPoint.X y TPoint.Y

Esto es algo que cree, pero no funcióna es más, me paraliza la aplicación.
Ya que no estoy muy claro del algoritmo correcto para está acción.

Código Delphi [-]
procedure MoveMouse(X,Y:integer);
var FMousePos:TPoint;
begin
  GetCursorPos(FMousePos);
  repeat
    SetCursorPos( FMousePos.X + 1 , FMousePos.Y + 1);
  until (FMousePos.X = X) and (FMousePos.Y = Y);
end;

Como podría yo mover el mouse, hasta que llege ... ?.

[ecfisa]

Hola Alejo15x.

Por lo que veo en tu código, queres un desplazamiento en diagonal, ya que: SetCursorPos( FMousePos.X + 1 , FMousePos.Y + 1); ,
supongo, intenta incrementar la posición X e Y en la misma cantidad.

Una forma de hacerlo podría ser:

Código Delphi [-]
procedure MoveMouse(IniX, IniY, FinX, FinY, Espera: Integer);
begin
  SetCursorPos(IniX, IniY);   // posición inicial
  repeat
    if IniX < FinX then          
      Inc(IniX)               // X hacia abajo
    else                        
      Dec(IniX);              // X hacia arriba
    if IniY < FinY then       
      Inc(iniY)               // Y hacia abajo
    else                       
      Dec(IniY);              // Y hacia arriba 
    SetCursorPos(IniX, IniY); // nueva posición
    Sleep(Espera);            // 0 en parámetro Espera (sin demora)
  until (Mouse.CursorPos.X = FinX) or (Mouse.CursorPos.Y = FinY);
end;

Ejemplo de llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  MoveMouse(0, 0, Screen.Width-10, Screen.Height-10, 3);
  MoveMouse(Screen.Width-10, Screen.Height-10, 0, 0, 6);
end;

Saludos.

[Alejo15x]

Muchas Gracias !.