Inno Setup - 安装时不要安装DirectX

Question

我在[Run]部分使用此代码：

Filename: "{src}\DirectX\DXSETUP.exe"; StatusMsg: "Wait for install DirectX package..."; \
  Flags: waituntilterminated skipifsilent skipifdoesntexist

当我尝试重新安装程序时，每次弹出DirectX安装时都会弹出。如何安装DirectX，如何防止重新安装？

Answer 1

请参阅ISXKB了解DirectX - How to detect DirectX version文章。

它具有有用的功能，如果机器上已经安装了所需的DirectX版本，您可以使用它来检测。

使用这些功能，您可以轻松实现check function：

[Run]
Filename: "{src}\DirectX\DXSETUP.exe"; StatusMsg: "Wait for install DirectX package..."; \
  Flags: waituntilterminated skipifsilent skipifdoesntexist; Check: InstallDirectX

[Code]

function InstallDirectX: Boolean;
begin
  Result := (CompareVersion(GetDirectXVersion(), '4.8.0') < 0);
end;