InnoSetup问题：ndp48.exe为何无法执行？

问题场景 #

用Inno Setup做安装包，要给没装.NET Framework 4.8的机器自动部署ndp48-x86-x64-allos-enu.exe。检测函数NETFrameworkIsNotInstalled功能正常，但执行安装函数时无任何界面，安装也没完成。试过ShellExec()和Exec()，已获取管理员权限，直接双击该exe能正常弹出解压窗口和进度条。

原检测函数代码 #

function NETFrameworkIsNotInstalled: Boolean;
var
  ver: Cardinal;
begin
  Result :=
    not
    (
    (RegKeyExists(
      HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client')
    and
        RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client', 'Release', ver)
    )
    or
    (RegKeyExists(
      HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full')
    and
        RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'Release', ver)
    )
    )
    or (ver < 528040)
end;

原安装函数代码 #

procedure InstallNETFramework;
var
  ResultCode: Integer;
  StatusText: string;
begin
  StatusText := WizardForm.StatusLabel.Caption;
  WizardForm.StatusLabel.Caption := 'Installing .NET Framework 4.8...';
  WizardForm.ProgressGauge.Style := npbstMarquee;
  try

// i tried with and without "ExtractTemporayFile() and also tried ShellExec() and Exec(), none work
    ExtractTemporaryFile('ndp48-x86-x64-allos-enu.exe');
    if not ShellExec('open',ExpandConstant('{app}\ndp48-x86-x64-allos-enu.exe'), '/q /norestart', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) 
    then
    begin
      MsgBox('.NET Framework 4.8 Installation did not succeed : ' + IntToStr(ResultCode) + '.', mbError, MB_OK);
    end;
  finally
    WizardForm.StatusLabel.Caption := StatusText;
    WizardForm.ProgressGauge.Style := npbstNormal;
  end;
end;

原[Files]段配置 #

[Files] 
Source: "Dependencies\ndp48-x86-x64-allos-enu.exe"; DestDir: "{app}"; Flags: deleteafterinstall; AfterInstall: InstallNETFramework; Components: NETFrameworkComponent; Check: NETFrameworkIsNotInstalled

其他原代码 #

[Code]
var CancelWithoutPrompt: boolean;

function InitializeSetup(): Boolean;
begin
  CancelWithoutPrompt := false;
  result := true;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  if CurPageID=wpInstalling then
    Confirm := not CancelWithoutPrompt;
end;

问题原因分析 #

1. 检测函数逻辑错误：or (ver < 528040)的位置错误，导致即使检测到已安装但版本不足时，返回结果会误判为不需要安装。
2. 安装参数问题：使用了/q完全静默参数，该参数会屏蔽所有界面（包括解压窗口），和直接双击exe的交互式运行逻辑不同。
3. 冗余的文件操作：[Files]已经把exe复制到{app}目录，再调用ExtractTemporaryFile属于多余操作，还可能因路径不一致导致找不到安装包。

修正方案及代码 #

1. 修正检测函数逻辑 #

把版本判断整合到已安装条件中，避免逻辑错误：

function NETFrameworkIsNotInstalled: Boolean;
var
  ver: Cardinal;
  ClientInstalled, FullInstalled: Boolean;
begin
  // 检测Client版是否已安装且版本达标
  ClientInstalled := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client') and
                     RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Client', 'Release', ver) and
                     (ver >= 528040);
  // 检测Full版是否已安装且版本达标
  FullInstalled := RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full') and
                   RegQueryDWordValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full', 'Release', ver) and
                   (ver >= 528040);
  // 只要Client或Full版达标，就返回False（不需要安装）
  Result := not (ClientInstalled or FullInstalled);
end;

2. 修正安装函数 #

去掉冗余的ExtractTemporaryFile，将/q换成/passive（被动模式，显示进度条且无需用户操作），同时增加返回码判断：

procedure InstallNETFramework;
var
  ResultCode: Integer;
  StatusText: string;
  InstallerPath: string;
begin
  StatusText := WizardForm.StatusLabel.Caption;
  WizardForm.StatusLabel.Caption := '正在安装.NET Framework 4.8...';
  WizardForm.ProgressGauge.Style := npbstMarquee;
  try
    // 直接调用[Files]段复制到{app}的安装包路径
    InstallerPath := ExpandConstant('{app}\ndp48-x86-x64-allos-enu.exe');
    
    // 使用/passive显示进度界面，/norestart避免自动重启
    if not Exec(InstallerPath, '/passive /norestart', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then
    begin
      MsgBox('.NET Framework 4.8安装失败，错误码: ' + IntToStr(ResultCode) + '。', mbError, MB_OK);
    end
    else
    begin
      // .NET安装包常见返回码：0=成功，3010=需要重启
      if ResultCode = 3010 then
      begin
        MsgBox('.NET Framework 4.8安装成功，需重启电脑完成配置。', mbInformation, MB_OK);
      end
      else if ResultCode <> 0 then
      begin
        MsgBox('.NET Framework 4.8安装完成，但返回非标准码: ' + IntToStr(ResultCode) + '。', mbWarning, MB_OK);
      end;
    end;
  finally
    WizardForm.StatusLabel.Caption := StatusText;
    WizardForm.ProgressGauge.Style := npbstNormal;
  end;
end;

3. 补充Setup段权限配置 #

确保安装包请求管理员权限，在[Setup]段添加：

[Setup]
PrivilegesRequired=admin

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