Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Mover Mouse? (https://www.clubdelphi.com/foros/showthread.php?t=68967)

Alejo15x 18-07-2010 02:35:01

Mover Mouse?
 
Hola,

estoy creando algo asì como un macro, y estoy en la necesidad de mover el cursor de la pantalla, a cierta X,Y y despues enviar un click.

Es como por ejemplo;

Mover el cursor a 100, 100
Hacer click y dejar puesto el click, y llegar a 200,200, soltar click.

Supongo que se necesita de las apis de windows, pero no tengo sinceramente la mas minima idea de como hacerlo.

Os agradecere me dieran una mano, o donde conseguirlo

Saludos.

Gean 18-07-2010 16:51:25

Te dejo un ejemplo de lo que quieres:
Código Delphi [-]
var
P: TPoint;
begin
p.x := 100;
p.y := 100;
mouse.CursorPos := ClientToScreen(p);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
p.X := 200;
p.Y := 200;
mouse.CursorPos := ClientToScreen(p);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Creo que es esto lo que pides

kdemia 19-07-2010 07:39:08

podes podes mover el mouse con el proceso SetCursorPos(X,Y); y lo de los clicks como bien puso gean con
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // Click Izuiqerdo simula cuando se presiona
Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);//click izquierdo simula cuando se suelta

si queres q sea el click derecho en vez de LEFTDOWN y LEFTUP pones RIGHTDOWN y RIGHTUP

espero q te sirva


La franja horaria es GMT +2. Ahora son las 14:40:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi