Ver Mensaje Individual
  #5  
Antiguo 23-11-2009
Avatar de aeff
aeff aeff is offline
Miembro
 
Registrado: oct 2006
Ubicación: Cuba, Guantánamo
Posts: 348
Reputación: 18
aeff Va camino a la fama
saludos nuevamente, mira, te puedo dar otra solución, existe una API propia de Windows que permite invocar eventos del Mouse, dicha API es: mouse_event:

solo debes posicionar el cursor sobre la region de dicho objeto "Boton", para esto puedes usar SetCursorPos y una vez situado el cursor sobre el objeto llamar a la API para simular un Click. Las coordenadas del objeto ya que pueder ser un objeto Gráfico como el SpeedButton de Delphi, puedes calcularlas obteniendo primeramente el "rectangulo" de la forma padre, con GetWindowRect, y luego sumar aproximadamente valores al rect.Left y al Rect.Top hasta acercarte a al area que ocupa el objeto.

Debes tener en cuenta que puede que la ventana no tenga el Foco, para esto puedes usar SetForegroundWindow para traerla al frente.

Te muestro un ejemplo que se acaba de ocurrir, con la misma Ventana Ejecutar dando Click en Boton Aceptar:

Código Delphi [-]
var
  hWnd: Cardinal;
  vRectWnd: TRect;
  vBtnPos:  TPoint;
begin
  // Obtenemos el manejador de la Ventana
  hWnd := FindWindow(nil, 'Ejecutar');
  GetWindowRect(hWnd, vRectWnd);
  // Calculamos aproximadamente la posicion del Boton
  vBtnPos.x  := vRectWnd.Left + 135;
  vBtnPos.y  := vRectWnd.Top + 148;
  // Movemos el Cursor a la posicion calculada
  SetCursorPos(vBtnPos.x, vBtnPos.y);
  // Traemos la ventana al frente dandole el Foco
  SetForegroundWindow(hWnd);
  // Simulamos un Click
  mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  // Press
  mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);    // Release

Puedes agregar otros detalles como capturar la posicion del cursor actual antes de simular el click y luego posicionar el cursor donde estaba orginialmente.

Que Crees??
Saludos,
AEFF!!
Responder Con Cita