[Help] Wrong Code Inno Script!

[Carldric Clement]

I'm Gonna to make a external extract like this

File from Setup.ini

[ExtractSettings]
FreeArcFile1=Data2.cab;DestDir:{app};Disk:1;

when i make, i don't know how to extract it? to make a code?
Please help me!

[_EZEKiEL_]

Originally Posted by Carldric Clement

I'm Gonna to make a external extract like this

File from Setup.ini

[ExtractSettings]
FreeArcFile1=Data2.cab;DestDir:{app};Disk:1;

when i make, i don't know how to extract it? to make a code?
Please help me!

What script do you use for this INI file ?

[Carldric Clement]

Originally Posted by _EZEKiEL_

What script do you use for this INI file ?

CIU Version.

[Dante1995]

that code works with a construct like this+ISDone Function: code Razor

[Files]
Source: ISDone\*; Flags: dontcopy;
[ Code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  res, i, ResultCode: integer;
  Arc1, Arc2, Arc3: Array of String;
begin     

If CurStep = ssInstall then
begin
    ExtractTemporaryFile('arc.ini');
    ExtractTemporaryFile('unarc.dll');
    ExtractTemporaryFile('Setup.ini');
    ExtractTemporaryFile('english.ini');
    ExtractTemporaryFile('precomp.exe');
    ExtractTemporaryFile('CLS-MSC.dll');
    ExtractTemporaryFile('CLS-srep.dll');
    ExtractTemporaryFile('CLS-precomp.dll');

    ISDoneError:=false;
    i:=1;
    if (GetIniString('ExtractSettings' + IntToStr(i),'FreeArcFile','',ExpandConstant('{tmp}\Setup.ini')) <> '') then
    begin
    WizardForm.ProgressGauge.Max:=0;
    repeat
    WizardForm.ProgressGauge.Max:= WizardForm.ProgressGauge.Max + 1000;
    i:= i + 1;
    until (GetIniString('ExtractSettings' + IntToStr(i),'FreeArcFile','',ExpandConstant('{tmp}\Setup.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('ExtractSettings' + IntToStr(i),'FreeArcFile','',ExpandConstant('{tmp}\Setup.ini')) <> '') then
      begin
      SetArrayLength(Arc1,4);
      SetArrayLength(Arc2,4);
      SetArrayLength(Arc3,4);
      repeat
      Arc1[0]:=ExpandConstant(GetIniString('ExtractSettings' + IntToStr(i),'FreeArcFile','',ExpandConstant('{tmp}\Setup.ini')));
      Arc1[1]:=ExpandConstant(GetIniString('ExtractSettings' + IntToStr(i),'Output','',ExpandConstant('{tmp}\Setup.ini')));
      Arc1[2]:=ExpandConstant(GetIniString('ExtractSettings' + IntToStr(i),'Disk','1',ExpandConstant('{tmp}\Setup.ini')));
      if Arc1[0] <> '' then
      begin
      if not FileExists(Arc1[0]) then
      begin
      if MsgBox('Insert disc: ' + 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('ExtractSettings' + IntToStr(i),'FreeArcFile','',ExpandConstant('{tmp}\Setup.ini')) = '') or (ISDoneError = True));
    end;
    until true;
    ISDoneStop;
    end;
  end;
  
  if (CurStep=ssPostInstall) and ISDoneError then begin
    Exec(ExpandConstant('{uninstallexe}'), '/VERYSILENT','', sw_Hide, ewWaitUntilTerminated, ResultCode);
    WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusRollback);
  end;

CIU is complete, what do you want to do is not clear??