 cerrar ventana MSDOS
Muy buenas.
Estoy desarrollando una aplicación donde realizo una llama a una aplicacion de consola de la siguiente forma:
' ejecutar comando
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, 2) 'en sCmd tengo la cadena de llamada
' esperar a que se complete el proceso
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
idProcSitra=hProc 'Variable global a la que le asigno el identificador de proceso
Cuando termina correctamente no hay problema, se me cierra la ventana de msdos y ya está. Pero tengo puesto un timer para que pasado un intervalo de tiempo, si la ejecución del programa no ha terminado, me cierre la áplicación y la ventana. Esto lo hago en el evento Timer() como sigue:
TerminateProcess idProcSitra, 0 'La variable global anterior
CloseHandle idProcSitra
Pues la ventana sigue igual. No se me cierra.
¿Hay otra forma de abortar la aplicación y cerrar la ventana MSDOS?
Muchas gracias. | 
Mode Lineal
