Ejecutar un fichero en msdos y ver en un progress el tiempo de ejecucion

[juank1971]

ok gracias amigo pero desde que se ejecuta el timer la primera vez ya el
ExitCode es igual al STILL_ACTIVE y me salta para el else y me muestra un mensaje de todo correcto.
estoy mirando a ver porque me da eso.

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject); 
var   ExitCode: DWORD; 
begin  
  ProgressBar1.StepIt;   
  if GetExitCodeProcess(ProcHandle, ExitCode) then   
  begin
    if not (ExitCode = STILL_ACTIVE) then     
    begin       
      CloseHandle(ProcHandle);       
      ProcHandle := 0;     
    end     
    else       
      MessageBox(Handle,PChar(SysErrorMessage(GetLastError)),'',MB_ICONERROR+MB_OK);  //salta para esta linea desde la primea vez, 
                                                 // y elfichero que estoy ejecutando en msdos es bastante largo se demora ejecutando     
  Timer1.Enabled := False;    
  end; 
end;