Ver Mensaje Individual
  #16  
Antiguo 11-07-2008
rauros rauros is offline
Miembro
 
Registrado: feb 2008
Ubicación: Alicante - Sax / Sax - Alicante
Posts: 235
Reputación: 17
rauros Va por buen camino
Al final lo pude probar hoy. Funciona a la perfección, incluso me he hecho un procedimiento que simula un click, solo con una línea de comando:

Código Delphi [-]
procedure SimularClick(X: integer; Y: Integer);
var tp: TPoint;
begin
Windows.GetCursorPos(tp);
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_LEFTDOWN,
               x, y, 0, 0) ;;
Mouse_Event(MOUSEEVENTF_ABSOLUTE or
               MOUSEEVENTF_LEFTUP,
               x, y, 0, 0) ;;
SetCursorPos(TP.X,tp.Y)
end;
Responder Con Cita