Inno Setup如何实现多个安装类型各绑定专属固定+可选组件

以下是可行的实现方案，通过Inno Setup自带的Pascal脚本动态控制组件的可见性和选中状态即可实现需求，不需要枚举所有组件组合：

第一步：修改[Types]配置 #

新增一个内部使用的隐藏自定义类型，用于支持组件自定义选择：

[Types]
Name: TYPE_INSTRUCTOR ; Description: "讲师版" ;
Name: TYPE_STUDENT    ; Description: "学生版" ;
Name: TYPE_CUSTOM     ; Flags: iscustom hidden ;  // 仅内部逻辑调用，用户不会在下拉框看到该类型

第二步：修改[Components]配置 #

给两类顶级组件添加exclusive标记保证互斥，同时给所有组件新增TYPE_CUSTOM的类型适配：

[Components]
; 讲师组件组
Name: COMP_INSTRUCTOR            ; Description: "讲师组件"              ; Types: TYPE_INSTRUCTOR TYPE_CUSTOM ; Flags: exclusive
Name: COMP_INSTRUCTOR\FIXED      ; Description: "Instructor - Fixed"      ; Types: TYPE_INSTRUCTOR TYPE_CUSTOM ; Flags: fixed
Name: COMP_INSTRUCTOR\OPTIONAL_1 ; Description: "Instructor - Optional 1" ; Types: TYPE_INSTRUCTOR TYPE_CUSTOM
Name: COMP_INSTRUCTOR\OPTIONAL_2 ; Description: "Instructor - Optional 2" ; Types: TYPE_INSTRUCTOR TYPE_CUSTOM

; 学生组件组
Name: COMP_STUDENT            ; Description: "学生组件"                    ; Types: TYPE_STUDENT TYPE_CUSTOM ; Flags: exclusive
Name: COMP_STUDENT\FIXED      ; Description: "Student - Fixed"            ; Types: TYPE_STUDENT TYPE_CUSTOM ; Flags: fixed
Name: COMP_STUDENT\OPTIONAL_1 ; Description: "Student - Optional 1"       ; Types: TYPE_STUDENT TYPE_CUSTOM
Name: COMP_STUDENT\OPTIONAL_2 ; Description: "Student - Optional 2"       ; Types: TYPE_STUDENT TYPE_CUSTOM

原有的[Files]段不需要修改。

第三步：新增[Code]控制逻辑 #

在脚本末尾添加以下Pascal代码，实现安装类型切换时的组件动态控制：

[Code]
procedure UpdateComponentsByType;
var
  I: Integer;
  IsInstructor: Boolean;
begin
  // 判断当前选中的安装类型
  IsInstructor := (Wizard.TypesCombo.ItemIndex = 0);

  // 遍历所有组件调整可见性和选中状态
  for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do
  begin
    if Pos('COMP_INSTRUCTOR', WizardSetupComponentNames[I]) > 0 then
    begin
      WizardForm.ComponentsList.ItemVisible[I] := IsInstructor;
      if IsInstructor then WizardForm.ComponentsList.Checked[I] := True;
    end
    else if Pos('COMP_STUDENT', WizardSetupComponentNames[I]) > 0 then
    begin
      WizardForm.ComponentsList.ItemVisible[I] := not IsInstructor;
      if not IsInstructor then WizardForm.ComponentsList.Checked[I] := True;
    end;
  end;

  // 切换到内部自定义类型，支持用户修改可选组件
  Wizard.SelectedType := 'TYPE_CUSTOM';
end;

procedure WizardTypesComboChange(Sender: TObject);
begin
  UpdateComponentsByType;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpSelectComponents then
  begin
    UpdateComponentsByType;
    Wizard.TypesCombo.OnChange := @WizardTypesComboChange;
  end;
end;

实现效果 #

• 选择讲师版时，组件列表仅展示讲师相关组件，固定组件默认选中不可取消，可选组件可自由勾选
• 切换到学生版时，自动隐藏所有讲师组件，仅展示学生相关组件，固定组件默认选中不可取消
• 两类组件完全互斥，不会出现同时选中的无效组合
• 后续新增组件只要按照现有命名规则归类，不需要修改控制逻辑

内容的提问来源于stack exchange，提问作者AndrewCh