Executar um comando e esperar ele ser finalizado
quero saber se tem como eu executar um comando em por exemplo WINEXEC e esperar até que ele seja finalizado dai roda outra coisa..
Anonymous
Curtidas 0
Respostas
Anonymous
12/02/2003
Pega essa função que eu fiz, adaptado de um livro...
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;
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;
GOSTEI 0
Anonymous
12/02/2003
Obrigado
GOSTEI 0