Snoopak96
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
////////////////////////////////////////////////////////////////////////
procedure IsDone(CurStep: TSetupStep);
begin
CallBack:=WrapMyCallback(@ProgressCallback,2);
OveralPct:=0;
ProgressLabel.Caption:=ExpandConstant('{cm:PLI}');
ISArcExtract ( 0, OveralPct, 35, ExpandConstant('{app}\Ubisoft\Prince of Persia Забытые пески\Prince.arc'), ExpandConstant('{app}\Ubisoft\Prince of Persia Забытые пески'), true,CallBack, '', '', '')
ISSRepExtract ( 0, OveralPct, 30, ExpandConstant('{app}\Ubisoft\Prince of Persia Забытые пески\Prince.Srep'), ExpandConstant('{app}\Ubisoft\Prince of Persia Забытые пески\Prince.7z'), '', true, CallBack)
IS7ZipExtract ( 0, OveralPct, 35, ExpandConstant('{app}\Ubisoft\Prince of Persia Забытые пески\Prince.7z'), ExpandConstant('{app}\Ubisoft\Prince of Persia Забытые пески'), true, CallBack, '');
end;
//////////////////////////////////////////////////////////////////////// |
