Cara... já vi algo exatamente como vc perguntou, mas procurei e não achei. MAs em compensação veja se o que está nesta dica te ajuda:
http://www.swissdelphicenter.ch/torry/showcode.php?id=683 ou então isso: << 411 - Executar um programa e aguardar sua finalização antes de continuar Inclua na seção uses: Windows { Esta função faz isto. } function ExecAndWait(const FileName, Params: string; const WindowState: Word): boolean; var SUInfo: TStartupInfo; ProcInfo: TProcessInformation; CmdLine: string; begin { Coloca o nome do arquivo entre aspas. Isto é necessário devido aos espaços contidos em nomes longos } CmdLine := '"' + Filename + '"' + Params; FillChar(SUInfo, SizeOf(SUInfo), #0); with SUInfo do begin cb := SizeOf(SUInfo); dwFlags := STARTF_USESHOWWINDOW; wShowWindow := WindowState; end; Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo); { Aguarda até ser finalizado } if Result then begin WaitForSingleObject(ProcInfo.hProcess, INFINITE); { Libera os Handles } CloseHandle(ProcInfo.hProcess); CloseHandle(ProcInfo.hThread); end; end; - Exemplo de uso: ExecAndWait('c:\windows\notepad.exe', '', SW_SHOW); Observações Não se esqueça de informar o caminho (path) do arquivo completo. Esta função foi desenvolvida para Delphi 32 bits (2, 3, 4,...). >> Fonte: Dicas e truques de Delphi v2.8 Sds, Ricardo. BandaLemuel <[EMAIL PROTECTED]> escreveu: Alguem sabe como enviar um comando para o Dos e aguardar a finalização do comando para o Programa avisar que finalizou ??? Wesley [As partes desta mensagem que não continham texto foram removidas] _ --------------------------------- Novo Yahoo! Cadê? - Experimente uma nova busca. [As partes desta mensagem que não continham texto foram removidas]
