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

[ecfisa]

Hola

Proba de este modo:

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;
    Timer1.Enabled := False;
   end;
end;

Saludos.