Código Delphi [-] // Espera hasta que termina la ejecución repeat iCodigoSalida := WaitForSingleObject( InformacionProceso.hProcess, 1000 ); until ( iCodigoSalida <> WAIT_TIMEOUT ) or (GetAsyncKeyState(VK_ESCAPE) <> 0);
// Espera hasta que termina la ejecución repeat iCodigoSalida := WaitForSingleObject( InformacionProceso.hProcess, 1000 ); until ( iCodigoSalida <> WAIT_TIMEOUT ) or (GetAsyncKeyState(VK_ESCAPE) <> 0);