Inno Setup更新安装时如何重命名程序组（适配版本号变更）

核心思路 #

仅在升级时对默认格式的程序组名（即AppName + 版本号）进行版本号剥离，用户自定义的组名保持不变。通过脚本代码检测旧组名格式，自动替换为不带版本号的组名。

实现步骤 #

1. 调整[Setup]段配置
   将默认组名改为不带版本号的基础名称，同时保留UsePreviousGroup=yes以兼容用户自定义组名：

   #define AppName "Foo Bar"
   #define AppVersion "3"
   
   [Setup]
   AppId={{YOUR-UNIQUE-GUID}} ; 建议添加唯一GUID，避免旧安装识别错误
   DefaultGroupName={#AppName}
   UsePreviousGroup=yes
   ; 其他原有配置...
   

   注：若之前的安装未设置AppId，新增后需确保能正确关联旧安装，可参考Inno Setup文档生成专属GUID。

2. 添加[Code]段检测与替换逻辑
   在脚本的[Code]段添加初始化代码，向导加载完成后检查当前组名格式，符合默认带版本号规则则自动替换：

   [Code]
   procedure InitializeWizard;
   var
     CurrentGroupName: String;
     BaseAppName: String;
     VersionPart: String;
   begin
     BaseAppName := '{#AppName}';
     CurrentGroupName := WizardForm.GroupEdit.Text;
   
     // 检查组名是否为"AppName + 空格 + 版本号"的默认格式
     if Pos(BaseAppName + ' ', CurrentGroupName) = 1 then
     begin
       VersionPart := Copy(CurrentGroupName, Length(BaseAppName) + 2, Length(CurrentGroupName));
       // 判断空格后的内容是否为合法版本号（整数或带小数点的格式）
       if StrIsInt(VersionPart) or StrIsFloat(VersionPart) then
       begin
         // 替换为不带版本号的基础组名
         WizardForm.GroupEdit.Text := BaseAppName;
       end;
     end;
   end;
   

关键说明 #

• 该逻辑仅对默认生成的带版本号组名生效，若用户手动修改过组名（比如改成了"我的Foo Bar工具"），则不会触发替换，完全保留用户自定义设置。
• 安装完成后，Inno Setup会自动将新的组名写入注册表，并同步更新开始菜单的快捷方式，旧的带版本号组文件夹会被自动清理（若其中无其他非本程序的快捷方式）。
• 新增AppId是为了更稳定地关联新旧安装，避免因AppName相同导致的识别错误，建议务必添加。

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