Inno Setup如何根据注册表值自动选择安装组件并锁定选项

核心实现逻辑 #

需求可通过「安装初始化阶段读取注册表版本 + 组件页动态设置选中状态+禁用不可修改项」实现，无需第三方依赖，直接用Inno Setup内置能力即可完成：

• 注册表读取注意兼容32/64位系统重定向问题：64位程序读取HKLM路径注册表要指定HKLM64根节点，避免被系统自动重定向到Wow6432Node节点导致读值失败
• 版本对比直接用内置CompareVersion函数，不要手动拆分字符串做对比，避免多段版本号出现判断错误
• 自动选中的组件直接在组件列表中设为禁用状态，用户就无法手动修改选择结果，剩余3个附加组件保留默认可选状态即可

完整可运行代码示例 #

[Setup]
AppName=你的程序名称
AppVersion=1.0
DefaultDirName={pf}\你的程序安装目录
OutputDir=Output
OutputBaseFilename=安装包
; 若打包64位安装包打开下行配置，32位安装包直接删除即可
;ArchitecturesInstallIn64BitMode=x64

[Components]
; 前两个为自动判定的核心组件
Name: "FeatureA"; Description: "核心组件A（高版本依赖适配）"; Flags: disablenouninstallwarning
Name: "FeatureB"; Description: "核心组件B（低版本依赖适配）"; Flags: disablenouninstallwarning
; 后三个为用户可自主选择的附加组件
Name: "FeatureC"; Description: "附加功能C"; Flags: checkablealone
Name: "FeatureD"; Description: "附加功能D"; Flags: checkablealone
Name: "FeatureE"; Description: "附加功能E"; Flags: checkablealone

[Code]
const
  // 待检测的注册表路径，64位安装包读取时需将下文HKLM替换为HKLM64
  REG_PATH = 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{B8D22EE6-1S55-48BD-8B6F-B8961847F657}_is1';
  VER_A_THRESHOLD = '2.5.0.0';
  VER_B_THRESHOLD = '2.4.0.0';

procedure CurPageChanged(CurPageID: Integer);
var
  InstalledVer: string;
  CompAIdx, CompBIdx: Integer;
begin
  // 进入组件选择页时执行判定逻辑
  if CurPageID = wpSelectComponents then
  begin
    // 定位两个核心组件在列表中的索引
    CompAIdx := WizardForm.ComponentsList.Items.IndexOf('FeatureA');
    CompBIdx := WizardForm.ComponentsList.Items.IndexOf('FeatureB');
    
    // 先重置两个核心组件的状态
    WizardForm.ComponentsList.Checked[CompAIdx] := False;
    WizardForm.ComponentsList.ItemEnabled[CompAIdx] := True;
    WizardForm.ComponentsList.Checked[CompBIdx] := False;
    WizardForm.ComponentsList.ItemEnabled[CompBIdx] := True;

    // 读取注册表中存储的版本值
    if RegQueryStringValue(HKLM, REG_PATH, 'DisplayVersion', InstalledVer) then
    begin
      // 版本大于2.5.0.0时自动选中A并禁止修改
      if CompareVersion(InstalledVer, VER_A_THRESHOLD) > 0 then
      begin
        WizardForm.ComponentsList.Checked[CompAIdx] := True;
        WizardForm.ComponentsList.ItemEnabled[CompAIdx] := False;
      end
      // 版本小于2.4.0.0时自动选中B并禁止修改
      else if CompareVersion(InstalledVer, VER_B_THRESHOLD) < 0 then
      begin
        WizardForm.ComponentsList.Checked[CompBIdx] := True;
        WizardForm.ComponentsList.ItemEnabled[CompBIdx] := False;
      end
      // 版本处于2.4.0.0~2.5.0.0区间的边界场景，可根据自身业务需求补充逻辑
    end;
  end;
end;

轻量替代实现方案 #

如果你不需要在组件选择页向用户展示两个核心组件的选择状态，可以完全跳过组件配置，直接在[Files]段通过Check条件判断注册表版本，决定对应文件是否释放，代码更简洁：

[Files]
; 版本符合A的判定条件时释放A的文件
Source: "files\FeatureA\*"; DestDir: "{app}"; Check: IsInstallFeatureA; Flags: recursesubdirs
; 版本符合B的判定条件时释放B的文件
Source: "files\FeatureB\*"; DestDir: "{app}"; Check: IsInstallFeatureB; Flags: recursesubdirs
; 可选组件正常绑定组件参数即可
Source: "files\FeatureC\*"; DestDir: "{app}"; Components: FeatureC; Flags: recursesubdirs

[Code]
function IsInstallFeatureA: Boolean;
var
  Ver: string;
begin
  Result := False;
  if RegQueryStringValue(HKLM, REG_PATH, 'DisplayVersion', Ver) then
    Result := CompareVersion(Ver, VER_A_THRESHOLD) > 0;
end;

function IsInstallFeatureB: Boolean;
var
  Ver: string;
begin
  Result := False;
  if RegQueryStringValue(HKLM, REG_PATH, 'DisplayVersion', Ver) then
    Result := CompareVersion(Ver, VER_B_THRESHOLD) < 0;
end;

注意：如果检测到的版本在2.4.0.0到2.5.0.0区间、或对应注册表键不存在，上述两个判断函数默认返回False，不会安装A或B组件，可根据业务需求自行调整边界逻辑。

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