Thread: Isexec (ISdone)
View Single Post
  #17  
Old 26-04-2013, 10:09
Pein46's Avatar
Pein46 Pein46 is offline
Registered User
 
Join Date: Feb 2013
Location: Malaysia
Posts: 27
Thanks: 12
Thanked 8 Times in 7 Posts
Pein46 is on a distinguished road
Change like this..

example:
Code:
    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
        ChangeLanguage('English');
        if not SrepInit('',512,0) then break;
        if not PrecompInit('',128,PCFVer) then break;
        if not FileSearchInit(true) then break;

        if not ISArcExtract    ( 0, 0, ExpandConstant('{src}\data1.bin'), ExpandConstant('{app}\'), '', false, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
        if not ISSRepExtract   ( 0, 0, ExpandConstant('{app}\*.srep'),ExpandConstant('{app}\~data0000.pcf'), true) then break;
        if not ISPrecompExtract( 0, 0, ExpandConstant('{app}\*.pcf'),    ExpandConstant('{app}\data.arc'), true) then break;
        if not ISArcExtract    ( 0, 0, ExpandConstant('{app}\data.arc'), ExpandConstant('{app}\'), '', true, '', ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}\'), notPCFonFLY{PCFonFLY}) then break;
Compile and run setup until finished.. then add records.inf(can be found on source folder) to your script

Code:
#define records
.
.
[Files]
Source: records.inf; DestDir: {tmp}; Flags: dontcopy
Compile and run setup again..

Last edited by Pein46; 26-04-2013 at 10:14.
Reply With Quote