Presionar botón de aplicacion externa

[[escafandra]]

Empezado por http://msdn.microsoft.com/en-us/library/ms646260%28VS.85%29.aspx

mouse_event Function

The mouse_event function synthesizes mouse motion and button clicks.

Windows NT/2000/XP: This function has been superseded. Use SendInput instead.

Syntax

VOID mouse_event(
DWORD dwFlags,
DWORD dx,
DWORD dy,
DWORD dwData,
ULONG_PTR dwExtraInfo
);
....................................................

Mejor implementarlo:

Código Delphi [-]
type
  TINPUT = record
  Tipo: DWORD;
  case integer of
    0:(mi: TMOUSEINPUT;);
    1:(ki: TKEYBDINPUT;);
    2:(hi: THARDWAREINPUT;);
  end;  PTINPUT = ^TINPUT;
 
function MouseClick(x: DWORD; y: DWORD): DWORD;
var
   P: TPoint;
   VInput: array [0..1] of TINPUT;
begin
   GetCursorPos(P); // Guardo las coordenadas del mouse
 
   SetCursorPos(x, y);
 
   ZeroMemory(@VInput, sizeof(VInput));
   VInput[0].tipo:= INPUT_MOUSE;
   VInput[0].mi.dx:= x;
   VInput[0].mi.dy:= y;
   VInput[0].mi.dwFlags:= MOUSEEVENTF_LEFTDOWN;
 
   VInput[1].tipo:= INPUT_MOUSE;
   VInput[1].mi.dx:= x;
   VInput[1].mi.dy:= y;
   VInput[1].mi.dwFlags:= MOUSEEVENTF_LEFTUP;
 
   // Retorno el número de eventos enviados
   Result:= windows.SendInput(2, tagINPUT(VInput[0]), sizeof(TINPUT));
 
   SetCursorPos(P.x, P.y); // Restauro las coordenadas del Mouse
end;

Saludos.