installation - 如何从 Inno-setup 安装 DirectX 可再发行组件？

Question

我在 Inno-Setup 网站上没有找到任何关于 DirectX 安装的提示。那么，有没有示例安装脚本？我知道我必须向 [Run] 部分添加如下内容:

Filename: "{src}\DirectX\DXSETUP.exe"; WorkingDir: "{src}\DirectX"; Parameters: "/silent"; Check: DirectX; Flags: waituntilterminated; BeforeInstall: DirectXProgress;

但是如何将它包含到安装文件(临时文件夹？)中，如何提取它，等等？

Answer 1

要将它包含在安装程序中，您可以将它安装到 {tmp}，然后从那里[运行]。

安装此类要求的正确方法是提取代码并在 PrepareToInstall() 事件函数中对其调用 Exec():

function PrepareToInstall(var NeedsRestart: Boolean): String;
var
  InstallerResult: integer;
begin
  //Check if .Net is available already
  if NeedsDirectX() then begin
    ExtractTemporaryFile('DXSETUP.exe');
    if Exec(ExpandConstant('{tmp}\DXSETUP.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, InstallerResult) then begin
      case InstallerResult of
        0: begin
          //It installed successfully (Or already was), we can continue
        end;
        else begin
          //Some other error
          result := 'DirectX installation failed. Exit code ' + IntToStr(InstallerResult);
        end;
      end;
    end else begin
      result := 'DirectX installation failed. ' + SysErrorMessage(InstallerResult);
    end;
  end;
end;

ISXKB 有一个 article on how to detect the versions installed .