INNO setup：如何根据应用程序的不同版本实现文件更新

Question

我有一个用 Delphi 编写的应用程序，它有多个版本，其中包含二进制文件和带有目录数据的数据库 (MDB)。

在产品生命周期中，修复/增强要么在数据库文件中，要么在某些二进制文件中。

版本保存在注册表中。

当新补丁可用时，用户可能会拥有不同版本的程序。

现在用户拥有不同的版本，如何在 Inno Setup 中实现以下场景：

1. 如果用户拥有版本 A，则阻止安装。
2. 如果用户有版本 B，则复制数据库和 file1、file2、file3。
3. 如果用户有版本 C，只需更新 file1。

在 Inno 设置中实现此功能的正确方法是什么？

Answer 1

我不确定这是否是正确的方法，但您可以

像这样

[Files]
Source: "MYPROG.EXE"; DestDir: "{app}"; BeforeInstall: MyBeforeInstall('{app}')
Source: "MYFILE.EXE"; DestDir: "{app}"; BeforeInstall: MyBeforeInstall('{app}')
Source: "MYDB.MDB"; DestDir: "{app}"; BeforeInstall: MyBeforeInstall('{app}')

[Code]

function MyBeforeInstall(InstallPath): Boolean;
begin
  Result:= FALSE;
    //Check if this file is ok to install
    MsgBox(CurrentFileName , mbInformation, MB_OK);
end;

使用 [code] 部分和 BeforeInstall 标志然后使用 CurrentFileName 确定文件是否可以安装，我不确定它是否会退出如果结果为 false，则安装程序，或者跳过单个文件。

您还可以使用 [Types]/[Components] 部分来确定将安装哪些文件，但我不知道是否有办法自动选择它。

Answer 2

Inno默认会查看文件版本信息。 因此，如果您的补丁只需要在补丁中的版本较新时更新文件，则无需执行任何操作； 伊诺已经这么做了。

另一方面，如果您的补丁需要替换具有相同版本的文件（或者文件中没有版本信息），请使用 replacesameversion 标志。 这会导致 Inno 比较文件的内容，如果不同则替换它。 有关此标志的更多信息，请参阅文件帮助。

Answer 3

您可以创建用于检查版本的函数。

请参阅此网站了解更多详情
(http://agiletracksoftware.com/blog.html?id=4)< /strong>

[Code]
; Each data file contains a single value and can be loaded after extracted.
; The filename and DestDir from the [Files] section must match the names
; and locations used here
function GetAppMajorVersion(param: String): String;
     var
          AppVersion: String;
     begin
          ExtractTemporaryFile('major.dat');
          LoadStringFromFile(ExpandConstant('{tmp}\major.dat'), AppVersion);
          Result := AppVersion;
     end;

function GetAppMinorVersion(param: String): String;
     var
          AppMinorVersion: String;
     begin
          ExtractTemporaryFile('minor.dat');
          LoadStringFromFile(ExpandConstant('{tmp}\minor.dat'), AppMinorVersion);
          Result := AppMinorVersion;
     end;

function GetAppCurrentVersion(param: String): String;
     var
          BuildVersion: String;
     begin
          ExtractTemporaryFile('build.dat');
          LoadStringFromFile(ExpandConstant('{tmp}\build.dat'), BuildVersion);
          Result := BuildVersion;
     end;

AgileTrack 博客的代码摘录：
使用 Inno Setup 创建版本化安装程序