BUG:
Code:
FreeArcFile1={src}\Data.arc;DestDir:{app}\pc;Disk:1;PrecSrep:1
Is breaking installation - when I remove \pc - Precomp extraction works.
SOLUTION:
Lines 964-967:
Quote:
if not ISSRepExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'srep', ExpandConstant('{app}\') + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'pcf', '', true, CallBack ) then MyError := True ;
if MyError = True then break;
if not ISPrecompExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'pcf', ExpandConstant('{app}\') + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'arc', true, CallBack ) then MyError := True ;
if MyError = True then break;
|
REPLACE with:
Quote:
if not ISSRepExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'srep', Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'pcf', '', true, CallBack ) then MyError := True ;
if MyError = True then break;
if not ISPrecompExtract ( 0, OveralPct, 0, Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'pcf', Arcs[1] + '\' + Copy (ExtractFileName(Arcs[0]), 0, Pos('.', ExtractFileName(Arcs[0]))) + 'arc', true, CallBack ) then MyError := True ;
if MyError = True then break;
|
Last edited by janek2012; 08-11-2011 at 22:38.
Reason: Highlighted changes as requested
|