Sera Posible esto

delphi.com.ar · #17 28-07-2005

Cita:

Empezado por islu

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

Ahora lo veo.....

Cita:

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!