![]() |
How to decompress an arc file if i selected a determinate component?
How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? (custom ISDone by dante1995).
|
I want to know that,too.
|
I have a question on a game old one (Test drive : ferrari legend)
this game i tried every data scanner to know what kind of data streams are in there nothing gave anything no deflate no zlib no lz4 so what is it bff extension inside pak folder |
Quote:
Compress with lzma or nz. |
How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? (custom ISDone by dante1995).
|
This is part of code (important):
ISDoneError:=false; i:=1; if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then begin WizardForm.ProgressGauge.Max:=0; repeat WizardForm.ProgressGauge.Max:= WizardForm.ProgressGauge.Max + 1000; i:= i + 1; until (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = ''); end; if ISDoneInit(ExpandConstant('{tmp}\records.inf'), $F777, 0,0,0, MainForm.Handle, 512, @ProgressCallback) then begin repeat ChangeLanguage('English'); if not SrepInit('',512,0) then ISDoneError := True; if not PrecompInit('',128,0) then ISDoneError := True; if not FileSearchInit(true) then ISDoneError := True; i:=1; if (GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) <> '') then begin SetArrayLength(Arc1,4); SetArrayLength(Arc2,4); repeat Arc1[0]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini'))); Arc1[1]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setu p.ini'))); Arc1[2]:=ExpandConstant(GetIniString('FreearcFile' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup .ini'))); if Arc1[0] <> '' then begin if not FileExists(Arc1[0]) then begin if MsgBox(SetupMessage(msgChangeDiskTitle) +' '+'( '+ Arc1[2]+' )', mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True; end else begin if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, Arc1[3], ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True; i:= i + 1; end; end; until ((GetIniString('FreearcFile' + IntToStr(i),'Archive','',ExpandConstant('{tmp}\Set up.ini')) = '') or (ISDoneError = True)); end; until true; ISDoneStop; end; AllCancel; HideControls; WizardForm.ProgressGauge.Hide; end; if (CurStep=ssPostInstall) and ISDoneError then begin Exec(ExpandConstant('{uninstallexe}'), '/SILENT','', sw_Hide, ewNoWait, ResultCode); end; end; How to decompress an arc file if i selected a determinate component (from components list) when i use a isdone (ini) script?? And.... How to decompress 2 files but at a certain percentage each one? Similar to this but for my code (ISDone(ini) by dante1995): if not ISArcExtract ( 0, 40, ExpandConstant('{src}\video1.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break; if not ISArcExtract ( 0, 60, ExpandConstant('{src}\video2.arc'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break; |
| All times are GMT -7. The time now is 00:32. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com