Приостановка цикла для выполнения внешней программы

[Uomo]

Есть вот такой код:
if FindFirst('D:\FES\' + '2z???_09.900', faAnyFile - faDirectory,fl) = 0 then
begin
repeat
begin
Name900:= fl.Name;
RenameFile('D:\FES\'+Name900,'D:\FE S\Tmp\' + 'Archiv.cab');
ShellExecute(Handle, nil, 'cmd.exe', '/c '+'C:\ARJ32\CABARC.EXE x D:\FES\Tmp\Archiv.cab D:\FES\', nil, SW_SHOW);
end;
until FindNext(fl) <> 0;
end;

Не подскажите как можно осуществить возможность, чтобы вызываемый архиватор выполнял разархивирование, а уже затем продолжалось выполение цикла. А то получается если в директории находится несколько файлов архиватор не успевает их обработать.

[Ins]

Вместо ShellExecute - CreateProcess и дождаться окончания вызовом WaitForSingleObject.

ЗЫ: Утечка ресурсов - ты FindClose забыл

[Uomo]

Ins, спасибо!
Да я нашел код с CreateProcess:
FillChar(si,SizeOf(si),0);
si.cb:=SizeOf(si);
CreateProcess(nil,'zzz.exe',nil,nil ,false,0,nil,ni l,si,pi);
CloseHandle(pi.hThread);
WaitForSingleObject(pi.hProcess,INF INITE);
CloseHandle(pi.hProcess);

Просто хотелось узнать есть ли возможность приостанавливать программу в данном варианте кода.

FindClose, не забыл.. дальше fl : TSearchRec; снова используется

[Uomo]

Var
Name900, NameArj, PatchArc, PatchTmp : String;
Rlst: LongBool;
StartUpInfo: TStartUpInfo;
ProcessInfo: TProcessInformation;
Error: integer;
ExitCode: Cardinal;
begin
FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
PatchTmp:= 'D:\FES\Tmp\';
if FindFirst('D:\FES\' + '2z???_09.900', faAnyFile - faDirectory,fl) = 0 then
begin
repeat
begin
Name900:= fl.Name;
PatchArc:= 'D:\FES\'+Name900;
RenameFile(PatchArc,PatchTmp + 'Archiv.cab');
begin
FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
with StartUpInfo do
begin
cb := SizeOf(TStartUpInfo);
dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
wShowWindow := SW_SHOWNORMAL;
end;
Rlst := CreateProcess(nil, 'cmd.exe /c C:\ARJ32\CABARC.EXE x D:\FES\Tmp\Archiv.cab D:\FES\', nil, nil, false, NORMAL_PRIORITY_CLASS, nil, nil, StartUpInfo, ProcessInfo);
if Rlst then
with ProcessInfo do begin
WaitForInputIdle(hProcess, INFINITE);
WaitforSingleObject(ProcessInfo.hPr ocess, INFINITE);
GetExitCodeProcess(ProcessInfo.hPro cess, ExitCode);
CloseHandle(hThread);
CloseHandle(hProcess);
end
else Error := GetLastError;
end;
end;
until FindNext(fl) <> 0;
FindClose(fl);
end;