在Inno Setup安装程序中更改安装程序类型，具体取决于它是“全新安装”还是“更新”？

Oscar 发表于 Dev

奥斯卡奖

我使用Inno Setup创建了一个安装程序来安装数据库。我的脚本编写技能非常基础。现在，我需要提供更新，并且需要安装程序执行以下操作：

检查是否存在现有安装；
检查现有安装是否较旧；
如果存在现有安装，则将Update作为选项提供；如果不存在，则将Admin或General数据库（新安装）作为选项提供。

我将下面的代码拼凑在一起，在下拉列表/组合框中显示了这三个选项。我无法弄清楚如何更改wpSelectComponents页面组合框中提供的选项。

[Code]
function InitializeSetup(): Boolean;
var
    OldVersion, NewVersion: String;
begin
    Result := True;

    //Check in the registry for the uninstaller of PME Database. Compare version, exit if installed version is the same or newer.
    if RegKeyExists(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{pmedatabase201}}_is1') then
    begin
        RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{pmedatabase201}}_is1', 'DisplayVersion', OldVersion)
        NewVersion := '{#MyAppVersion}'
        If NewVersion < OldVersion then
        begin
            MsgBox(('This version (' + NewVersion + ') is older than the installed version (' + OldVersion +') - setup will close.'), mbError, MB_Ok)
            Result := False;
            exit;
        end;
        If NewVersion = OldVersion then
        begin
            MsgBox(('This version (' + NewVersion + ') is the same as the installed version - setup will close.'), mbError, MB_Ok)
            Result := False;
            exit;
        end;
        If NewVersion > OldVersion then
        begin
            if MsgBox(('The database will be updated from version ' + OldVersion + ' to version ' + NewVersion + '.' + chr(13) + chr(13) + 'Continue?'), mbInformation, MB_YesNo) = idNo then
            begin
                Result := False;
                exit;
            end;
        end;
    end;
...more code, to check Windows / Office versions...

[Code]
Procedure CurPageChanged(CurPage: Integer);
begin
  if CurPage = wpSelectComponents then 
  begin
      if RegKeyExists(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{pmedatabase201}}_is1') then
      begin
//Do something: only show Update as combobox option - HOW???
      end else begin
//Do something: only show Admin and General as combobox options - HOW???
      end;
  end;
end;

[Types]
Name: "Other1"; Description: "General Database"; Languages: en
Name: "Admin1"; Description: "Administrator Database"; Languages: en
Name: "Update1"; Description: "Database update"; Languages: en
Name: "Other2"; Description: "Base de Données Générale"; Languages: fr
Name: "Admin2"; Description: "Base de Données de L'administrateur"; Languages: fr
Name: "Update2"; Description: "Mise à jour de Base de Données"; Languages: fr
Name: "Other3"; Description: "Base de Dados Geral"; Languages: pt
Name: "Admin3"; Description: "Base de Dados do Administrador"; Languages: pt
Name: "Update3"; Description: "Atualização da Base de Dados"; Languages: pt

[Components]
Name: "General"; Description: "General"; Types: other1 other2 other3; Flags: fixed disablenouninstallwarning
Name: "Admin"; Description: "Admin"; Types: admin1 admin2 admin3; Flags: fixed disablenouninstallwarning
Name: "Update"; Description: "Update"; Types: update1 update2 update3; Flags: fixed disablenouninstallwarning

[Files]
; Database files.
Source: "C:\PME SETUP\pme versions\v2.02\PME Database.accde"; DestDir: "{app}"; Components: admin general update
; Data files are ONLY copied for a new installation of the central administrator database.
Source: "C:\PME SETUP\pme versions\v2.02\PME Data Storage.accdb"; DestDir: "{app}"; Components: admin
Source: "C:\PME SETUP\pme versions\v2.02\PME Data Storage.accdb"; DestDir: "{app}\System Files"; Components: admin
Source: "C:\PME SETUP\pme versions\v2.02\PME Data Storage.accdb"; DestDir: "{app}\Exchange"; Components: admin 
...more follows for different component-combinations...

马丁·普里克里（Martin Prikryl）

您正在寻找Check参数：

[Types]
Name: "Other"; Description: "General Database"; Check: not IsUpdate
Name: "Admin"; Description: "Administrator Database"; Check: not IsUpdate
Name: "Update"; Description: "Database update"; Check: IsUpdate

[Code]

function IsUpdate: Boolean;
begin
  Result :=
    RegKeyExists(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Uninstall\{pmedatabase201}}_is1') and
    /*IsNewer*/;
end;

请注意，您也应该检查HKEY_LOCAL_MACHINE以确定该应用程序是否已安装。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。