Manipular aplicación externa

[LoPiTaL]

Tengo que decir que a mí sí que me ha funcionado tu código correctamente, salvo lo del CreateProcess que me daba error y el FindWindow, que he tenido que cambiarle el nombre de la ventana.

He abierto el bloc de notas a parte, y desde Delphi he ejecutado:

  wnd := FindWindow (nil,'Sin título - Bloc de notas'); //encuentra la nueva ventana
  if wnd=0 then begin
    showmessage('Block de notas no abierto.');
    Exit;
  end;
  PostMessage(wnd, WM_COMMAND,HIWORD(1)+2,0);//Con esto abro la ventana "Abrir" del NotePad
  PostMessage(wnd, WM_KEYDOWN, VK_CONTROL, 0);
  PostMessage(wnd, WM_KEYDOWN, $4F, 0);              // VK_O=0x4F

y me ha abierto la ventana "Abrir" en el bloc de notas. Comprueba que tras el FindWindow wnd es distinto de 0, que con lo que tú habías puesto a mí me salía 0 y por eso los PostMessage parece que no hagan nada.
La de CreateProcess no me funcionaba porque no he inicializado si y pi, y la verdad no sabía cómo hacerlo

Ya comentas algo.

Un saludo,
LoPiTaL

[oabel5]

Hola escafandra,
gracias por la respuesta a mis preguntas.
Como indiqué, mi objetivo es escribir un programa, desde el cual llamar a otra aplicación y desde mi programa manipular esa otra aplicación.
Con el keybd_event(...) no puedo solucionar este problema, ya que de alguna forma tengo que indicar a mi programa el Handle de lo ventana de la otra aplicación y eso no me imagino como hacerlo con el keybd_event(...).
Lo que talvez no me expliqué bien, es que en realidad el programa que estoy escribiendo tiene que llamar a otra aplicación que no es el NotePad.exe. Solamente era un ejemplo eso lo del NotePad, para que me entiendan mejor. Como indiqué a la final mi programa no solo tiene que abrir un archivo en la otra aplicación, sinó tiene que hacer otras rutinas mas, por ejemplo presionar algunos botones cuando este lo pide.

Hola LoPiTal,
a ti tambien te agradezco por tu respuesta. El código que escribí tambien corrió en mi PC, solo que yo tengo el Windows XP en alemán, por eso a mi me salía:
FindWindow (nil,'Unbenannt - Editor');
el problema consiste en que yo no quiero abrir la ventana "Abrir" de esta forma:
PostMessage(wnd, WM_COMMAND,HIWORD(1)+2,0);//
lo quiero abrir simulando presionar las teclas: Ctrl + 'o'.
Como indico nuevamente, la otra aplicación que quiero manipular desde mi programa, no es el NotePad (ese solo era un ejemplo). En esta otra aplicación la ventana "Abrir" reacciona cuando se presiona esas dos teclas: Ctrl + 'o', mi problema consiste en que no sé como enviar un mensaje haciendo esa combinación de teclas.
Saludos.
Abel

[[Chris]]

Hola,

Alguna vez has probado con hooks?

Puedes investigar sobre el tema y ver si te funciona. Son muy poderosos cuando los sabes utilizar.

Saludos

[[escafandra]]

La función que propongo simula cualquier pulsación en el teclado, sólo tienes que tener el foco en la ventana que quieras que reciba las pulsaciones. FindWindow te devuelve el Handle de la ventana que buscas, pues lo usas luego con SetFocus para darle el foco y ya lo tienes.

Saludos.

[LoPiTaL]

Es verdad! Que al probar copié también la instrucción
PostMessage(wnd, WM_COMMAND,HIWORD(1)+2,0);//Con esto abro la ventana "Abrir" del NotePad



Lo siento, jejeje se me pasó. Voy a seguir probando, que me ha dado curiosidad.

Un saludo,
LoPiTaL

[LoPiTaL]

Bueno, como te he dicho sentía curiosidad. escafandra tenía razón, sólo que no basta con darle el foco (Windows.SetFocus no me funcionaba ). He tenido que hacer BringWindowToTop. Además no me funciona ni en el evento OnCreate ni en el OnShow del form, sino que he tenido que hacerlo en un timer (de 1 ms claro).

El código:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  wnd: HWND;
begin
  Timer1.Enabled:=False;
  wnd := FindWindow (nil,'Sin título - Bloc de notas'); //encuentra la nueva ventana

  BringWindowToTop(wnd);
  keybd_event(VK_CONTROL, 0, 0, 0);
  keybd_event($41, 0, 0, 0);  //En castellano es Ctrl+'A'
  keybd_event($41, 0, KEYEVENTF_KEYUP, 0);
  keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

Pruébalo a ver qué tal y nos dices.

PD: Si alguien puede explicar por qué el postmessage y sendmessage no funcionan se agradecería.

Un saludo,
LoPiTaL

[LoPiTaL]

Para terminar mi monólogo sólo una pregunta más: ¿la aplicación que pretendes controlar la has desarrollado tú? ¿O es de terceros? Si la desarrollas tú (y te apetece marearte mucho) podrías echarle un vistazo a la automatización mediante OLE / COM. Con esto se pueden hacer verdaderas virguerías.
Si no la has hecho tú, tal vez hayan implementado en esta aplicación algo de automatización...
Te indico unos ejemplos: el Office lleva automatización, por eso se puede usar el corrector ortográfico en un montón de aplicaciones fuera de Office, o abrir documentos en otro sitio que no sea el Word (como lo hace el explorer cuando abres un .doc).

Un saludo, y espero haber ayudado (la intención era buena )
LoPiTaL

[oabel5]

Hola LoPiTal,
SUPEEER!!!!!!!
por eso sabía que no me equivoqué al poner mi pregunta en este foro. Todavía no probé el código que indicas (lo haré mas tarde), pero ya puedo ver que es la solución a mi problema. Ahí te aviso.
El otro programa que quiero manipular no es mio, pero gracias a un programa que en este momento no me acuerdo cual era, pude indagar todos los Handles que este poseía, por esa razón creo que a partir de tu código lograré realizar lo que quiero.
Saludos.
Abel.

[oabel5]

Hola,
tenían razón, la idea de Escafandra mas la implementación de LoPiTal era la solución a mi problema. Logré abrir la ventana de esa otra aplicación con esto:
wnd = FindWindow (NULL,"ECU Flash Tool");
BringWindowToTop(wnd);
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(0x4F, 0, 0, 0); // Ctrl+'O'
keybd_event(0x4F, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);

el siguiente paso es, cómo introduzco una ruta en el espacio donde se indica cual archivo se abrirá. Haré un par de experimentos, talvez lo logre hoy mismo.
Preparé un documento en PDF, ahí indico exáctamente de lo que trato de hacer con mi programa. Hay alguna forma de pegar ese PDF en este foro?
Espero que este hilo no acabe tan pronto, porque estuve investigando todo el fin de semana sobre este tema y me dí cuenta que hay mucha gente que está interesada sobre el caso pero que no encontraron una solución.
Saludos y nuevamente gracias.
Abel.

[LoPiTaL]

No puedes subir ningún archivo hasta que no llegues a 10 mensajes (ya llevas 6, queda poco queda poco....) La verdad es que sería interesante que subieses tanto el pdf ese como indicases qué programa usaste para detectar los handles de las aplicaciones.

Ya nos vas contando tus progresos.

Un saludo,
LoPiTaL