Sera Posible esto

[[maeyanes]]

Lee la ayuda de FindWindow desde el sitio de MSDN de Microsoft.


Saludos...

[delphi.com.ar]

Te subí un ejemplo (basado en un ejemplo anterior) en mi página: http://www.delphi.com.ar/source/samples/chproc.zip

Este ejemplo crea un proceso y busca la ventana dentro de el proceso creado, y luego la muestra sobre un panel en la propia ventana. Tendrás que adaptarlo para que carge el editor de imágenes por defecto.

Saludos!

[islu]

Desconocia estas funciones ( como iotras tantas ... ), podeis indicarme si funcionan en D4 y/o D6, pues he probado los 2 ejemplos, no no me funcionan.

Muchas gracias.

[Neftali [Germán.Estévez]]

Tiene un par de detalles, pero si funciona en Delphi6, simplemente, que al entrar hay que ignorar una propiedad (debe estar creado con D7 o superior) y en D6 no la encuentra y modificar una referencia a:

Código Delphi [-]
 Application.CreateForm(TForm1, form1);

por ésta:

Código Delphi [-]
 Application.CreateForm(TfrmMain, frmMain);

Ahí va el ejemplo corregido (que te debe funcionar en D6).

[islu]

Muchas gracias, ya me funciona perfectamente, estaba tonto...

Sin abusar, sabes si se puede hacer algo similar con el CMD o con el COMMAND.COM, lo he intentado y no me funciona...

Muchas gracias.

[Neftali [Germán.Estévez]]

NOTA: Si utilizas la API SetWindowPos podrás conseguir que se ajuste a la posición (0,0).

[Neftali [Germán.Estévez]]

Cambia ésta línea:

Código Delphi [-]
   Win32Check(CreateProcess(nil, 'NOTEPAD.EXE', nil, nil, FALSE,
                            CREATE_NEW_CONSOLE, nil, nil, StartInfo, ProccesInfo));

por ésta otra (tal vez tu path no sea WinNT sino Windows).

Código Delphi [-]
 Win32Check(CreateProcess(nil, 'c:\winnt\system32\cmd.exe', nil, nil, FALSE,
                            CREATE_NEW_CONSOLE, nil, nil, StartInfo, ProccesInfo));

y ésta:

Código Delphi [-]
 hNotepad := FindThreadWindow(ProccesInfo.dwThreadId, 0, nil, nil);

por éstas dos.

Código Delphi [-]
   sleep(500);
   hNotepad := FindWindow('ConsoleWindowClass', nil);
  
   NOTA: el tema del Sleep no acaba de gustarme (aunque funciona); tal vez
   alguien tenga alguna idea mejor, porque esta es un poco "chapuza", por
   no decir "bastante chapuza".

[islu]

Muchas gracias, me has sido de gran ayuda!!!

[delphi.com.ar]

Empezado por islu

Disculpa, fue fallo mio, Neftali me indicó un cambio que debí ver yo , y funcina perfectamente.

Ahora lo veo.....

Empezado por Neftali

Código Delphi [-]
 hNotepad := FindThreadWindow(ProccesInfo.dwThreadId, 0, nil, nil);

por éstas dos.

Código Delphi [-]
   sleep(500);
   hNotepad := FindWindow('ConsoleWindowClass', nil);
  
   NOTA: el tema del Sleep no acaba de gustarme (aunque funciona); tal vez
   alguien tenga alguna idea mejor, porque esta es un poco "chapuza", por
   no decir "bastante chapuza".

Para evitar utilizar un sleep, precisamente creé la función FindThreadWindow con el parámetro wTimeOut, donde se especifican en milisegundos el tiempo que espera, para que el proceso pueda crear la dichosa ventana, si se exede este tiempo, el resultado es 0.
En ese caso podrías utilizar:

Código Delphi [-]
   hNotepad := FindThreadWindow(ProccesInfo.dwThreadId, 0, 'ConsoleWindowClass', nil);

Y solo buscarías la ventana del proceso creado y no de todos los procesos en ejecución en tu sistema. En el caso que exista otra consola abierta, con un simple FindWindow podrías encontrar la otra y eso no estaría nada bien.


Saludos!

[delphi.com.ar]

Empezado por islu

...pues he probado los 2 ejemplos, no no me funcionan....

ChProc lo corregí, evidentemente había guardado el pas pero no el dpr
Con CallExternal ¿cuál es el problema?

[islu]

Empezado por delphi.com.ar

Con CallExternal ¿cuál es el problema?

Disculpa, fue fallo mio, Neftali me indicó un cambio que debí ver yo , y funcina perfectamente.

Gracias !!!