Chamada a outro programa Esperando ser executado

Question

:?:  Ol� pessoal,Estou com uma duvida, que � a seguinte:Estou executado um pgm que ao clicar em um determinado botao o mesmo chama uma pgm B, so que o pgm A faz a chamada e executa o restante que esta...

Carnette · Answer

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

function Executa (Arquivo : String; Estado : Integer) : Integer;
var
Programa : array [0..512] of char;
CurDir : array [0..255] of char;
WorkDir : String;
StartupInfo : TStartupInfo;
ProcessInfo : TProcessInformation;
begin
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;
if not CreateProcess (nil, Programa, nil, nil, false, CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then
Result := -1
else
begin
WaitForSingleObject (ProcessInfo.hProcess, Infinite);
GetExitCodeProcess (ProcessInfo.hProcess, Result);
end;
end;

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

Manoeljr · Answer

Oi esta fun��o � muito parecida com a que o amigo postou, mais � um pouco mais refinada previnindo poss�veis erros e estouro de pilha.

function ExecutaeEspera(FileName: string; Visibility: integer):Cardinal;
var
zAppName: array[0..512] of char;
zCurDir: array[0..255] of char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName,
nil,
nil,
true,
CREATE_NEW_CONSOLE or
NORMAL_PRIORITY_CLASS,
nil,
nil,
StartupInfo,
ProcessInfo) then Result := INFINITE {-1} else
begin
WaitforSingleObject(ProcessInfo.hProcess, INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess, Result);
CloseHandle(ProcessInfo.hProcess); { para prevenir estouro de Pilha }
CloseHandle(ProcessInfo.hThread);
end;
end; :wink: