21

我正在尝试为我的软件配置 Inno 设置（这是一个 C# 软件）。我计划发布我的软件的多个版本，如果我的应用程序的旧版本已经安装在计算机上，我想更改 Inno 设置安装程序界面。在这种情况下，用户不能更改安装目录。

有四种情况：

第一种情况：这是我的产品的第一次安装，Inno设置应该正常进行。

第二种情况：产品已经安装并且安装程序包含更新的版本。用户无法选择目标文件夹。他可以运行更新。

第三种情况：如果安装程序包含比已安装版本更旧的版本，更新将被禁用并应显示一条消息。

第四种情况：安装程序版本与安装版本相同。如果需要，用户可以修复他的实际版本。

是否可以使用 InnoSetup 做到这一点？

4

2 回答 2

12

AppID如果您在应用程序的生命周期内保持不变，Inno Setup 已经自动处理案例 1、2 和 4 。
您还可以使用以下[Setup]指令隐藏目录和组页面：

DisableDirPage=auto
DisableGroupPage=auto

有关详细信息，请参阅此ISXKB 文章。

对于案例 3，假设您的文件版本控制正确，Inno 不会降级任何东西，但它实际上不会警告用户。为此，您需要添加代码来检查这一点，很可能是在InitializeSetup()事件函数中。

于 2013-03-26T14:05:22.523 回答
10

如果您想为用户提供一些反馈，您可以尝试类似的方法。首先，您的更新应该与AppId您的主应用程序具有相同的名称。然后您可以设置一些检查，这将显示消息以通知用户有关状态。

#define MyAppVersion "1.2.2.7570"
#define MyAppName "MyApp Update"

[Setup]
AppId=MyApp
AppName={#MyAppName}
AppVersion={#MyAppVersion}
DefaultDirName={reg:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MyApp_is1,InstallLocation}
DisableDirPage=True

[CustomMessages]
MyAppOld=The Setup detected application version 
MyAppRequired=The installation of {#MyAppName} requires MyApp to be installed.%nInstall MyApp before installing this update.%n%n
MyAppTerminated=The setup of update will be terminated.

[Code]
var
InstallLocation: String;

function GetInstallString(): String;
var
InstPath: String;
InstallString: String;
begin
InstPath := ExpandConstant('Software\Microsoft\Windows\CurrentVersion\Uninstall\MyApp_is1');
InstallString := '';
if not RegQueryStringValue(HKLM, InstPath, 'InstallLocation', InstallString) then
RegQueryStringValue(HKCU, InstPath, 'InstallLocation', InstallString);
Result := InstallString;
InstallLocation := InstallString;
end;

function InitializeSetup: Boolean;
var
V: Integer;
sUnInstallString: String;
Version: String;
begin
    if RegValueExists(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\MyApp_is1', 'UninstallString') then begin
      RegQueryStringValue(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion\Uninstall\MyApp_is1', 'DisplayVersion', Version);
      if Version =< ExpandConstant('{#MyAppVersion}') then begin 
          Result := True;
          GetInstallString();
       end
       else begin
MsgBox(ExpandConstant('{cm:MyAppOld}'+Version+'.'+#13#10#13#10+'{cm:MyAppRequired}'+'{cm:MyAppTerminated}'), mbInformation, MB_OK);
         Result := False;
  end;
end
else begin
  MsgBox(ExpandConstant('{cm:MyAppRequired}'+'{cm:MyAppTerminated}'), mbInformation, MB_OK);
  Result := False;
end;
end;
于 2013-03-26T14:09:14.513 回答