Cita:
Empezado por darkmaster360
...
¿habría alguna forma ahora de decirle a un timer que clickee en esas coordenadas?
|
Hola.
Si, agregando el código de tu primer mensaje:
Código Delphi
[-]
implementation
var
MousePos : TPoint;
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetCursorPos(MousePos.X, MousePos.Y);
Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const
MSG = 'Coordenadas actuales del mouse: %d %d';
begin
if (ssCtrl in Shift) and (Key = VK_F1) then MousePos := Mouse.CursorPos;
Caption := Format(MSG,[MousePos.X, MousePos.Y]);
end;
Saludos