Inno Setup 对新安装和更新的响应是否不同？

Question

我的 InnoSetup 脚本在安装过程结束时打开一个网页（使用用户的默认浏览器）：

[Run]
Filename: http://example.com; Flags: shellexec

但是，如果应用程序已存在，我希望不打开该网页，即，如果用户正在安装该程序的新版本。该网页应该仅在初始安装后打开。 （我认为值得一提的是，安装显然包括一个 AppID，并在安装文件旁边的注册表中输入值。）

一如既往地谢谢您 - Al C.

Answer 1

是的，这很容易通过脚本来完成。

只要写

[Run]
Filename: "http://example.com"; Flags: shellexec; Check: NotAnUpdate

procedure CurPageChanged(CurPageID: Integer);
begin
  if CurPageID = wpInstalling then
    IsUpdate := FileExists(ExpandConstant('{app}\TheFileNameOfMyApp.exe'));
end;

function NotAnUpdate: Boolean;
begin
  result := not IsUpdate;
end;

Answer 2

如果用户选择将可执行文件安装到其他位置，@AndreasRejbrand 的答案将不起作用

您可以查询特定于安装程序的 Inno Setup 注册表项：

#define AppId "your-app-id"
#define SetupReg \
    "Software\Microsoft\Windows\CurrentVersion\Uninstall\" + AppId + "_is1"
#define SetupAppPathReg "Inno Setup: App Path"

[Setup]
AppId={#AppId}
...

[Run]
Filename: "https://www.example.com/"; Flags: shellexec; Check: not IsUpgrade
...

[Code]

function IsUpgrade: Boolean;
var
  S: string;
begin
  Result :=
    RegQueryStringValue(HKLM, '{#SetupReg}', '{#SetupAppPathReg}', S) or
    RegQueryStringValue(HKCU, '{#SetupReg}', '{#SetupAppPathReg}', S);
end;

有关如何在 [Code] 部分中使用 IsUpgrade 的示例，请参阅
如果在 Inno Setup 中更新安装，则排除 ssPostInstall 步骤中的部分代码部分

如果您的“AppId”包含 left-，请选中此项大括号：
当 AppId 包含大括号时，检查安装是否是全新安装或升级不起作用