arturus2010
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребят , помогите кто нибудь . Распаковка идет через ISDone . Сначало распаковываются arc архивы , потом Srep , Precomp , а rar архивы не распаковываются . Как быть ?
Код:
Цитата: StartRecord(ExpandConstant('{src}\records.inf'),ChComp);
repeat
MyError:=true;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data1.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISArcExtract ( 0, OveralPct, 0, ExpandConstant('{src}\Data2.arc'), ExpandConstant('{app}'), false,CallBack, '', '', '') then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data1.srp'), ExpandConstant('{app}\Data1.pcf'), '', true, CallBack ) then break;
if not ISSRepExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data2.srp'), ExpandConstant('{app}\Data2.pcf'), '', true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\Data1.pcf'), ExpandConstant('{app}\Data1.rar'), true, CallBack ) then break;
if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\Data2.pcf'), ExpandConstant('{app}\Data2.rar'), true, CallBack ) then break;
if not ISRarExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data1.rar'), ExpandConstant('{app}'), false,CallBack, '' ) then break;
if not ISRarExtract ( 0, OveralPct, 0, ExpandConstant('{app}\Data2.rar'), ExpandConstant('{app}'), false,CallBack, '' ) then break;
MyError:=false;
until true;
StopRecord;
MyCancelButton.Visible:=false;
WizardForm.CancelButton.Visible:=true;
end;
end; |
|
