FindWindow - executando programa DOS e aguardando terminar

Top  Previous  Next

Executando um programa em DOS e esperando ele terminar...

 

 

  WinExec('command.com /C ARJ A c:\TEMP\Teste C:\*.*', sw_hide);

  // Aguarda 2 segundos antes de continuar, senao passa tao rapido que a linha FindWindow

  // passa ANTES do programa abrir

  Sleep(2000);

  While FindWindow('tty','Prompt do MS-DOS - ARJ')>0 do // enquanto a janela DOS + ARJ for encontrado faça

  begin

    Label1.Caption := 'Trabalhando, aguarde. ' + TimeToStr(Time); // Mostra um timer no Label

    Application.ProcessMessages; // Isto é necessário para não travar o Windows;

  end;

  Label1.Caption := 'CONCLUÍDO'// Mostra concluído.