FileForums - Help with Peterff1999 The Witcher 2 scrip

Hello friends i try extract various .cab files in different locations with a single Setup.exe and between Folders show me the change disk window

Example

Folder "A": Setup.exe, Data1.cab, Data2.cab... Change Disk

Folder "B": Data3.cab... Change Disk

Folder "C": Data4.cab, Data5.cab end

I also want the file Setup.exe does not start installing until you find the first file "Data1.cab"

This is the code, What i need change?

Code:

      StartRecord(ExpandConstant('{tmp}\records.inf'),0);

      repeat

         MyError:=true;

//       if not ISRarExtract    ( 0, OveralPct, 0, ExpandConstant('{src}\aaa.rar'), ExpandConstant('{app}'),            false,CallBack, ''              ) then break;

         WizardForm.Caption:='Estrazione archivio FreeArc...';

         //if not ISArcExtract    ( 0, OveralPct, 0, ExpandConstant('{src}\Data*.cab'),  ExpandConstant('{app}'),                false,CallBack, '',    '',    '') then break; //cambio tipo y nombre de archivo

         if not ISArcExtract ( 1, 0, ExpandConstant('{src}\data1.cab'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;



         if not ShowChangeDiskWindow ('please insert next disk and click ok', ExpandConstant('{src}'),'data2.cab') then break;



          

         if not ISArcExtract ( 3, 0, ExpandConstant('{src}\data2.cab'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

         

         //if not ISArcExtract ( 1, 0, ExpandConstant('{src}\data1.x'), ExpandConstant('{app}'), '', false, '', '', ExpandConstant('{app}'), notPCFonFLY {PCFonFLY}) then break;

         //if not ShowChangeDiskWindow('Description', ExpandConstant('{src}'),'Data2.cab'                 ) then break;

         ResetProgressBar();

         //if not ISSRepExtract   ( 0, OveralPct, 0, ExpandConstant('{app}\data1\CODMW2.srep'), ExpandConstant('{app}\data1\CODMW2.pcf'), '', true, CallBack                  ) then break;

         WizardForm.Caption:='Ricompressione Precomp file...';

         if not ISPrecompExtract( 0, OveralPct, 0, ExpandConstant('{app}\Dead_Rising_2.pcf'),  ExpandConstant('{app}\Dead_Rising_2.arc'),      true, CallBack                  ) then break;

         ResetProgressBar();

         WizardForm.Caption:='Estrazione archivio FreeArc...';

         if not ISArcExtract    ( 0, OveralPct, 0, ExpandConstant('{app}\Dead_Rising_2.arc'),  ExpandConstant('{app}\data'),                true,CallBack, '',    '',    '') then break;

         //WizardForm.Caption:='Estrazione archivio 7Zip';

         //if not IS7ZipExtract   ( 0, OveralPct, 0, ExpandConstant('{src}\Tron_Evolution_1xDVD5.7z'),   ExpandConstant('{app}'),                false, CallBack, ''              ) then break;

         //if not ShowChangeDiskWindow('Description', ExpandConstant('{src}'),'Data2.cab'                 ) then break;

         //if not ISArcExtract    ( 1, OveralPct, 0, ExpandConstant('{src}\rustext.arc'), ExpandConstant('{app}'),                false,CallBack, '',    '',    '') then break;

         //if not ISArcExtract    ( 2, OveralPct, 0, ExpandConstant('{src}\engtext.arc'), ExpandConstant('{app}'),                false,CallBack, '',    '',    '') then break;

         //if not ISArcExtract    ( 3, OveralPct, 0, ExpandConstant('{src}\rusvoice.arc'),ExpandConstant('{app}'),                false,CallBack, '',    '',    '') then break;

         //if not ISArcExtract    ( 4, OveralPct, 0, ExpandConstant('{src}\engvoice.arc'),ExpandConstant('{app}'),                false,CallBack, '',    '',    '') then break;

         MyError:=false;

      until true;

      StopRecord;