yener90's Inno Project Source Codes

[janek2012]

BUG:

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:

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:

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;