Fórum Como aguardar o término do comando WinExec #182398

Na revista ClubeDelphi deste mês na seção de perguntas e respostas tem a resposta...
mas não me lembro de cabeça....
e não tenho a revista aqui nas minhas mãos agora.. e nem tem como eu ir pegar agora.. então... você pode aguardar.. que quando eu puder eu pósto aqui no fórum....
abraços

Para executar um programa e esperar até esse programa finalizar, use a rotina abaixo:

[b:c097ffdc0d]function[/b:c097ffdc0d] Executa (Arquivo : String; Estado : Integer) : Integer;
[b:c097ffdc0d]var[/b:c097ffdc0d]
Programa : array [0..512] of char;
CurDir : array [0..255] of char;
WorkDir : String;
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
[b:c097ffdc0d]begin [/b:c097ffdc0d]
StrPCopy (Programa, Arquivo);
GetDir (0, WorkDir);
StrPCopy (CurDir, WorkDir);
FillChar (StartupInfo, Sizeof (StartupInfo), #0);
StartupInfo.cb := sizeof (StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Estado;
[b:c097ffdc0d]if[/b:c097ffdc0d] not CreateProcess (nil, Programa, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
Result := -1
else
[b:c097ffdc0d]begin[/b:c097ffdc0d]
WaitForSingleObject (ProcessInfo.hProcess, Infinite);
GetExitCodeProcess (ProcessInfo.hProcess, Result);
[b:c097ffdc0d]end; [/b:c097ffdc0d]
[b:c097ffdc0d]end; [/b:c097ffdc0d]


Estado é o tipo de janela que aparecerá, que pode ser:

SW_SHOWNORMAL
Janela em modo normal

SW_MAXIMIZE
Janela maximizada

SW_MINIMIZE
Janela minimizada

SW_HIDE
Janela Escondida

Obrigado Luciano Donato, eu fiz uma mesclagem entre a matéria da edição 43, sua dica e algumas alterações minhas e funcionou 100¬...

[]´s

Paulo Cesar Pedroso