Guardar coordenadas y hacer Click
 

Hola qué tal?

Estoy desarrollando una aplicación en la cual ya llevo haciendo preguntas en este Foro para algunas cosas, y estoy muy agradecido con las respuestas que dan. Me han ayudado mucho.

Ahora quisiera como saber esto:

Al momento de Presionar una tecla como F1 guardar las coordenadas del mouse en ese momento(Fuera del Form).
Posteriormente presionar un button y que se haga un click en las coordenadas guardadas anteriormente.

Gracias de antemano.

Hola deliriun

Código Delphi [-]
...
implementation

var
  gCoord : TPoint = (X:-1; Y:-1);

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F1 then
    gCoord := ClientToScreen(Mouse.CursorPos)
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ti: array [0..1] of TInput;
  p : TPoint;
begin
  if (gCoord.X <> -1) and (gCoord.Y<>-1) then
  begin
    p := ScreenToClient(gCoord);
    SetCursorPos(p.X, p.Y);
    ZeroMemory(@ti, SizeOf(ti));
    ti[0].mi.dwFlags := MOUSEEVENTF_LEFTDOWN;
    ti[0].Itype      := INPUT_MOUSE;
    ti[1].mi.dwFlags := MOUSEEVENTF_LEFTUP;
    ti[1].Itype      := INPUT_MOUSE;
    SendInput(2, ti[0], SizeOf(TInput));
  end;
end;

Saludos :)

Hola delirium.

Perdoname la curioisidad, se pueden saber mas detalles? Para que necesitas hacer eso? me resulta realmente intrigante :o

Una posible respuesta: macro para juegos :rolleyes: :p Lo cual es ilegal. Y que además hay juegos que detectan esto y los bloquean.

Se puede usar para programas que hagan ciertas funciones en la PC mientras tu estas ausente.

Como a cierta hora se realice una acción en la PC.