aguardar finalizacao do winzip - nao tem jeito!!!

Question

ol� pessoal, tudo certo?!estou com problemas, tipo depois da linha abaixoShellExecute (0,nil,�Winzip32.exe�,�-a a:backup.zip C:tabelas�,nil,SW_NORMAL);onde esta executando o winzip e mandando compac...

Manoeljr · Answer

Use esta fu��o para executar o winzip e seu programa ficar� esperando o winzip terminar e quando isto acontecer, continuar� a execu��o normalmente.

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;

Manoeljr · Answer

[quote:cf4618825b=�napoles�]Use esta fu��o para executar o winzip e seu programa ficar� esperando o winzip terminar e quando isto acontecer, continuar� a execu��o normalmente.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;[/quote:cf4618825b]OBS: Como Usar a Fun��o:procedure ...begin  ExecutaeEspera(�C:Windowsnotepad.exe�,SW_NORMAL);  end;...