Sera Posible esto

[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!!!

[islu]

Una cosilla más, a ver si me puedes ayudar... , te comento...

El querer ejecutar el CMD.EXE es porque desde mi aplicación he de llamar a un exe, realizado en C++ de Microsoft bajo MSDOS, y resulta que al ejecutarlo se me pone a pantalla completa ( solo en XP ), por supuesto he probado mil cosas, entre ellas crear un acceso directo minimizado, llamar con el ShellExcecute..., incluso probe un programa para colocarlo como un servicio, y siempre cuando se ejecuta, pega el pantallazo.

El problema no es el pantallazo, si fuese una sola vez, pero es que este proceso se utiliza bastante, con lo que el operador le estan dando pantallazos todo el día. No puedo sustituir el programa, pues sería excesivamente costoso. Si ya lo estas ejecutando desde Terminal Server, incluso te pregunta Ignorar u Omitir, algo de la configuración de la pantalla ( no lo recuerdo exactamente ).

Después de todo el rollo, sabes si puedo ejecutarlo pero sin que se muestre por pantalla, sería excepcional...

Muchas gracias, un saludo.

[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!

[BetoAlonso]

Gracias a todos y cada uno de los participantes de este hilo, aunke no me da el resultado esperado, pero de veras agradesco por la buena intencion de todos.