Inno Setup：升级时禁用组件页面

Question

有没有办法禁用升级的组件页面？我想启用我的软件升级，但我不想让用户在升级时更改组件的选择。 而是从第一次安装升级所有现有组件的安装程序。

我担心用户在升级过程中选择的组件较少​​，这些缺少的组件将继续安装为旧版本，而您会一团糟。

我在脚本中添加了以下内容：

[Setup]
DisableDirPage=auto
DisableProgramGroupPage=auto
DirExistsWarning=auto

我只需要一种方法来禁用组件页面并使用先前安装（完整安装）的选择进行升级。这可能吗？

我找到了一个相关的指令：

[Setup]
UsePreviousTasks=true

UsePreviousTasks 正在从注册表中读取现有部分，这很好。现在我需要找到一种方法来隐藏选择窗口。

谢谢，
沃尔夫冈

Answer 1

要对用户隐藏页面，请使用ShouldSkipPage 事件方法。如果您在此方法中返回 True，则该页面将不会显示给用户。如果为 False，页面将照常显示。以下是如何检查安装是否为升级的示例，如果是，请跳过选择组件向导页面：

[Setup]
AppId=B75E4823-1BC9-4AC6-A645-94027A16F5A5
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

; here is the place for your [Components] section and the rest of your script

[Code]
const
  UninstallKey = 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppId")}_is1';

function IsUpgrade: Boolean;
var
  Value: string;
begin
  Result := (RegQueryStringValue(HKLM, UninstallKey, 'UninstallString', Value) or
    RegQueryStringValue(HKCU, UninstallKey, 'UninstallString', Value)) and (Value <> '');
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin
  Result := (PageID = wpSelectComponents) and IsUpgrade;
end;

---

您提到的另一个选项可能是禁用页面的所有控件。下一个脚本显示了如何检查安装是否为升级，如果是，则禁用“选择组件”向导页面上的所有控件：

[Setup]
AppId=B75E4823-1BC9-4AC6-A645-94027A16F5A5
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program

; here is the place for your [Components] section and the rest of your script

[Code]
const
  UninstallKey = 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{#SetupSetting("AppId")}_is1';

function IsUpgrade: Boolean;
var
  Value: string;
begin
  Result := (RegQueryStringValue(HKLM, UninstallKey, 'UninstallString', Value) or
    RegQueryStringValue(HKCU, UninstallKey, 'UninstallString', Value)) and (Value <> '');
end;

procedure DisablePageControls(Page: TNewNotebookPage);
var
  I: Integer;
begin
  Page.Enabled := False;
  for I := 0 to Page.ControlCount - 1 do
    Page.Controls[I].Enabled := False;
end;

procedure InitializeWizard;
begin
  if IsUpgrade then
    DisablePageControls(WizardForm.SelectComponentsPage);
end;

Answer 2

TLama 的回答中提到的IsUpgrade 函数有一个错误。如果AppId 以必须加倍的“{”开头，则无法解决，并且将找不到它们的注册表项。这是一个对我有用的更正函数：

function IsUpgrade: Boolean;
var
    Value: string;
    UninstallKey: string;
begin
    UninstallKey := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\' +
        ExpandConstant('{#SetupSetting("AppId")}') + '_is1';
    Result := (RegQueryStringValue(HKLM, UninstallKey, 'UninstallString', Value) or
        RegQueryStringValue(HKCU, UninstallKey, 'UninstallString', Value)) and (Value <> '');
end;

为这个函数保留单独的const，它不适用于那个额外的函数调用。

除此之外，64 位系统似乎不会引起任何问题。如果 InnoSetup 在 32 位模式下运行，则注册表虚拟化已生效并已将您重定向到正确的键。

Answer 3

类似的东西：

if CurPageID=wpSelectComponents then
 begin
  if ExtraOptionAvailable() then
  begin
    Wizardform.ComponentsList.Checked[6] := true;
    Wizardform.ComponentsList.ItemEnabled[6] := true;
  end else begin
    Wizardform.ComponentsList.Checked[6] := false;
    Wizardform.ComponentsList.ItemEnabled[6] := false;
  end;
end;