Isexec (ISdone)

[pakrat2k2]

Look for this section in your script & insert the OGG Decode subsection as indicated ( section between dashes ( ----- ) ).

ISDoneError:=true;
    if ISDoneInit(ExpandConstant('{src}\records.inf'), $F777, Comps1,Comps2,Comps3, MainForm.Handle, {#NeedMem}, @ProgressCallback) then begin
      repeat
       //if ActiveLanguage = 'English' then ChangeLanguage ('English'); / / if selected at the start English.ini
        ChangeLanguage('English');
        //if not SrepInit('',512,0) then break;
        //if not PrecompInit('',128,PCFVer) then break;
        if not SrepInit(ExpandConstant('{app}\'),512,0) then break;
        if not PrecompInit(ExpandConstant('{app}\'),128,PCFVer) then break;
        if not FileSearchInit(true) then break;
if not ISArcExtract (0, 0, ExpandConstant ('{src}\*.arc'), ExpandConstant ('{app}\'),'', false,'', ExpandConstant ('{tmp}\arc.ini' ), ExpandConstant ('{app} \'), notPCFonFLY {PCFonFLY}) then break;
 
// OGGDecode subsection between dashes ( ----- )
 
--------------------------------------------------------------
// unpacking of files using an external application
FindHandle1:=ISFindFiles(0,ExpandConstant('{app}\*.ogg'),ColFiles1);
ExecError:=false;
while not ExecError and ISPickFilename(FindHandle1,ExpandConstant('{app}\'),CurIndex1,true) do begin
InFilePath:=ISGetName(0);
OutFilePath:=ISGetName(1);
OutFileName:=ISGetName(2);
ExecError:=not ISExec(0, 0, 0, ExpandConstant('{tmp}\oggdec.exe'), '"'+InFilePath+'" -w "'+OutFilePath+'"',ExpandConstant('{tmp}'),OutFileName,false);
end;
ISFindFree(FindHandle1);
if ExecError then break;
------------------------------------------------------------
ISDoneError:=false;
until true;
ISDoneStop;
end;
HideControls;
WizardForm.CancelButton.Visible:=true;
WizardForm.CancelButton.Enabled:=false;
end;

above was found in isdone6f archive script.