通过 #Include 指令扩展事件函数

Question

我有一个基本的 inno-setup 脚本，用作多个安装程序的模板。作为基本脚本的一部分，我调用了事件函数 NextButtonClick。

我现在想向 NextButtonClick 事件添加一些额外的代码，该代码仅由我的一个安装程序执行。有什么方法可以“扩展” NextButtonClick 事件吗？我正在考虑类似于 Python 的 super() 函数。

Inno-setup 使用 Pascal 作为脚本语言，因此也许 Pascal 专家可以提供一些见解。

Answer 1

不直接

记住#include指令只是一个预编译器指令，它使包含的文件出现在inno安装脚本编译器的指令所在的位置。

但是
为了避免在模板脚本中包含单独的安装程序代码，您可以创建一个约定来调用模板中的过程。

您必须遵循的唯一规则是每个安装程序都必须声明该过程，即使是空白。这样，您可以根据每个安装程序进行自定义，同时保持中性模板。

你的模板可能是这样的：

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := BeforeNextButtonClick(CurPageID);
  //if the per-installer code decides not to allow the change, 
  //this code prevents further execution, but you may want it to run anyway.
  if not Result then
    Exit;  
  //your template logic here

  Result := Anything and More or Other;

  //same here!
  if not Result then
    Exit;

  //calling the per-installer code
  Result := AfternextButtonClck(CurPageID);
end;

那么各个安装程序可能看起来像这样：

function BeforeNextButtonClick(CurPageID: Integer): Boolean;
begin
  //specific logic here
  Result := OtherThing;
end

function AfterNextButtonClick(CurPageID: Integer): Boolean;
begin
  //and here, a blank implementation
  Result := True;
end;

#include MyCodeTemplate.iss

也许可以实现一种复杂的方法，我只是不记得 PascalScript 是否支持过程类型，并且没有时间检查 inno。

免责声明所有代码直接写在这里向您展示想法，它可能无法编译。

Answer 2

我正在使用以下解决方法，这可能会使事情最终难以管理，但使用版本控制，我现在可以控制它：

在我的个人安装程序中，我有一系列 #define< /code> 指令。例如：

#define IncludeSomeFeature
#define IncludeSomeOtherOption

然后在我的基本模板中，我使用 #ifdef 指令选择性地在 Pascal 脚本事件中包含不同的代码片段：

function NextButtonClick(CurPageID: Integer): Boolean;
var
    ResultCode: Integer;
begin
  Result := True;
  if CurPageID = wpReady then begin
    #ifdef IncludeSomeFeature
        ... some code ...
    #endif
    #ifdef IncludeSomeOtherOption
        ... some more code ...
    #endif
    ... code to run for every installer ...
  end;
end;

这种方法的一个缺点是基本模板会慢慢地编写代码填写真正属于各个安装程序的代码。但是，由于这些是编译时指令，因此生成的安装可执行文件不应变得臃肿。

但实际上，我对这种方法最大的问题是它感觉不像 The Right Way™。