project begin projectid = {B5B3E645-857D-40E9-A857-17BB5F7DEF18} target begin name = Default targetid = {EDD83A86-EEA4-47D5-BAB6-3254742ABA37} rootaction begin action.group begin description = "Settings zum Testen, Debuggen und für Upgrades" id = {1CB49E08-12D2-4039-B398-50A3E4D655B9} action.variable.set begin applytoexisting = false doexpandexpression = true enabled = false forcetype = ftBoolean id = {B6FFA574-7B9F-4C8B-9F9C-AE1D2475E96D} modifier = smNone newvalue = True variablename = DisableECC32Check end action.variable.set begin applytoexisting = false doexpandexpression = true forcetype = ftBoolean id = {0366D187-6FE6-44DE-95A6-ECB9F03082EA} modifier = smNone newvalue = True variablename = DisableMultiThread end end action.try begin id = {2DBE8C91-6D7C-4BB0-961A-B45C6C2C16F8} action.group begin description = "Prodat und Externe Komponenten kompilieren" id = {779EA435-9708-4341-AAB4-EA489D6106C0} action.try begin id = {35E4D851-181D-40D2-BB00-B4746A49916B} action.target.execute begin actionlistid = {171A0AB4-11A4-4330-982A-6D4D2978BF95} failifactionlistempty = false id = {12B93191-C279-478D-9EA4-4047FCABA5AD} resetdependencychain = false end end action.finally begin id = {D1EF5F22-8654-4641-A3A1-8FE18EB83A99} end action.end begin id = {255FC1BE-A40C-4DF5-BFBF-1A6B623B22D3} end end end action.finally begin id = {6E9D0E93-6C9D-4422-95BF-39A932542474} end action.end begin id = {6DCFD63C-FADD-424B-99CD-1136F8FC4DDA} end end end target begin name = "Externe Komponenten" targetid = {171A0AB4-11A4-4330-982A-6D4D2978BF95} rootaction begin action.group.parallel begin description = "Library's, {Append To Variable [ InstalledBPLs or InstalledBINs ]}" disableasync = false id = {FFCA43C6-9197-46E2-A17F-68B4E899F954} limitthreads = true maxthreads = 20 threadstartdelayms = 75 action.script.run begin id = {C57E844B-D6F1-4A89-9F76-94AA1D840D35} action.script begin name = BeforeAction script > beginscript FBVariables.zTempA = True ' do nothing endscript scriptlanguage = VBScript end end action.script.run begin id = {73A3365D-FA69-4ACB-AC5E-CF140FC5C3AE} action.script begin name = BeforeAction script > beginscript ' do nothing endscript scriptlanguage = VBScript end end action.script.run begin id = {DBF4AD72-9459-4DCA-B7A4-6A52D1DA745F} action.script begin name = BeforeAction script > beginscript ' do nothing endscript scriptlanguage = VBScript end end action.script begin name = BeforeAction script > beginscript ' zur anschließenden Prüfung der Ausführung von ChildActions ' https://www.finalbuilder.com/forums/t/asyncactiongroup-disableasync-failed/7205 FBVariables.zTempA = False Action.LimitThreads = True Action.MaxThreads = Min(FBVariables.NUMBER_OF_PROCESSORS * 2, 15) Action.DisableAsync = CBool(FBVariables.DisableMultiThread) Action.ThreadStartDelayMs = 75 endscript scriptlanguage = VBScript end action.script begin name = AfterAction script > beginscript Action.MaxThreads = 20 ' Zurücksetzen, da sonst die FB-Datei geändert ist Action.DisableAsync = False ' zur Prüfung der Ausführung von ChildActions. ' wurde im ersten "Set Build Status Message" auf True gesetzt? if not FBVariables.zTempA then call Err.Raise(1, "FinalBuilder", "ChildActions wurden nicht ausgeführt") end if endscript scriptlanguage = VBScript end end end end variable begin defaultvalue = False groupname = "FinalBuilder Dialog VARIABLE" name = DisableECC32Check variablescope = vtProject variabletype = btBoolean end variable begin defaultvalue = False groupname = "FinalBuilder Dialog VARIABLE" name = DisableMultiThread variablescope = vtProject variabletype = btBoolean end variable begin groupname = "Sonstiges VARIABLE" name = zTempA variablescope = vtProject end project.globalscript begin script > beginscript ' Es ist trauchig, aber im VisualBasic ' gibt es viel, nur sowas nicht function Min(x, y) if x < y then Min = x else Min = y end function endscript scriptlanguage = VBScript end end