WinRar

← →
AndrewBee (2002-01-26 15:28) [0]

Народ памагите Христа ради :о)
Тема следующая :
Собирается список архивных файлов RAR
Далее каждый файл разворачивается во временную папку
(в архивах файлы DBF)
далее по тексту идут ряд процедур которые обрабатывают файлы DBF

выглядит примерно так :

проседура разворвчивающая архив
procedure ExtractRar(NameFileRar:string);
begin
WinExec("winrar -e "+NameFileRar+" "+PathTempDbf,1);
end;

Список Rar архивов
ListRar:TStringList;

далее выглядит так примерно :

procedure RarInTemp;
var i:integer;
begin
for i:=0 to ListRar.Count-1 do
begin
ExtractRar(ListRar[i]);
Proc1;
Proc2;
..
.. и т.д. тут куча проседур которые обрабатывают файлы во временной папке
..
end;
end;

Заковыка в чём - архиватор запускается начинает разворачивать архив и тут же запускаются проседуры которые идут далее по тексту :о(((((((
RAR орёт - Не могу создать файл , он используется другим процессом !!! :о((((
Может кто нить кинет нормальный примерчик что бы моя прога подождала пока WinRar не закончит работу ???
А то уже задолбался :о((( чё то только не пробовал :о((
нпример надыбал такой способ

procedure TForm1.ExtractRar(NameFile:string);
var Handle :THandle;
begin
Handle:=WinExec(PChar(PathProgram + "\Winrar.exe e -o+ -ep " + NameFile + " "+PathTempDBF), SW_SHOWNORMAL);
if (Handle > 0) and (Handle < 32) then
while GetModuleHandle(PChar("winrar.exe")) <> 0 do Delay( 100 );
end;

один чёрт не работает :о((((
скачал с sources.ru пример работы с unrar.dll
но он такой геморойный :о((( пока не можу разобраться с ним :о((((

WinRar Найти похожие ветки