根据所选安装类型调整Inno Setup Run段标志的问题

问题根源 #

Inno Setup的[Run]段中配置的Check函数会在安装初始化阶段（用户尚未选择安装类型时）就被调用，用来决定是否将该条目加入执行列表。此时WizardForm.TypesCombo.ItemIndex还是默认值，导致你的TypeIsCompact函数提前返回错误结果，无法根据用户实际选择的安装类型切换启动权限。

直接解决方法：在安装完成阶段手动执行程序 #

不需要自定义复选框，可利用Inno Setup自带的“运行程序”复选框，在安装完成后根据已确定的安装类型动态执行程序：

步骤1：修改[Run]段 #

保留生成“运行程序”复选框的逻辑，但不执行实际程序：

[Run]
; 仅生成复选框，不执行任何程序
Filename: "{app}\dummy.exe"; Description: {cm:RunNow}; Flags: postinstall; Check: False;

步骤2：修改[Code]段 #

在安装完成阶段（ssPostInstall）判断安装类型，并根据复选框状态执行程序：

var
  IsCompactInstall: Boolean;

procedure CurStepChanged(CurStep: TSetupStep);
var
  RunFlags: Integer;
  ResultCode: Integer;
begin
  if CurStep = ssPostInstall then
  begin
    // 确定当前安装类型
    if SILENT then
      IsCompactInstall := DONTINSTALLMSSQL
    else
      IsCompactInstall := (WizardForm.TypesCombo.ItemIndex = 1);
    
    Log('Type is compact: ' + BoolToStr(IsCompactInstall));

    // 如果用户勾选了“运行程序”复选框
    if WizardForm.RunProgramCheckBox.Checked then
    begin
      // 根据安装类型设置启动权限
      if IsCompactInstall then
        RunFlags := SW_SHOW or RUNAS_CURRENT_USER
      else
        RunFlags := SW_SHOW or RUNAS_ORIGINAL_USER;
      
      // 执行目标程序
      ShellExec('', ExpandConstant('{app}\myapp.exe'), '', '', RunFlags, ewNoWait, ResultCode);
    end;
  end;
end;

原理说明 #

• ssPostInstall阶段是在所有安装步骤完成后触发，此时用户已经选择了安装类型，WizardForm.TypesCombo.ItemIndex的值是用户实际选择的结果。
• 通过ShellExec函数手动执行程序，可动态指定RUNAS_CURRENT_USER或RUNAS_ORIGINAL_USER标志，实现根据安装类型切换启动权限的需求。
• 保留[Run]中的无效条目是为了复用Inno Setup自带的“运行程序”复选框，无需手动创建控件。

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