Sobre se uma execu��o dentro da procedure terminou.

Question

Ol�, eu queria saber se tem como saber se uma linha da procedure como �WincExec(...)� terminou de executar, por exemplo, se enquanto a execu��o do programa dentro do WinExec estiver sendo executada, d...

Navoid · Answer

olha a �nica maneira de fazer isso � usando a fun��o abaixo, s� que o seu programa ir� ficar parado esperando o programa encerrar, vc num vai mais ter controle sobre ele at� que o programa executado seja terminado.

****
procedure ExecutaAplicativoEsperando(LinhaComando: string);
var StartupInfo: TStartupInfo;
ProcessInformation: TProcessInformation;
rc: Boolean;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
with StartupInfo do
cb := SizeOf(StartupInfo);
rc := CreateProcess(nil, PChar(LinhaComando), nil, nil, false,
NORMAL_PRIORITY_CLASS, nil,
nil, StartupInfo, ProcessInformation);
if rc then
WaitForSingleObject(ProcessInformation.hProcess, INFINITE)
else
raise Exception.Create(LinhaComando+13+� n�o encontrado neste computador�);
end;
****

at�