如何在 Inno Setup 中用零填充 OutputBaseFilename 的版本组件

我有 Inno Setup 6.1.2 安装脚本，其中版本main.sub.batch是这样形成的：

#define AppVerText() \
  GetVersionComponents('..\app\bin\Release\app.exe', \
    Local[0], Local[1], Local[2], Local[3]), \
    Str(Local[0]) + "." + Str(Local[1]) + "." + Str(Local[2])

稍后在安装部分，我使用它作为安装包的名称：

[Setup]
OutputBaseFilename=app.{#AppVerText}.x64

结果文件名将是app.1.0.2.x64.exe，这非常好。为了使它完美，我想以形式结束app.1.00.002.x64.exe带有零填充组件。

我没有找到类似的东西PadLeft在文档中。不幸的是，我也无法理解如何在这种情况下使用我自己的 Pascal 函数。我可以定义一个函数吗Code这个部分？

一种快速但肮脏的解决方案来填充数字Inno安装预处理器 https://jrsoftware.org/ispphelp/:

#define AppVerText() \
  GetVersionComponents('..\app\bin\Release\app.exe', \
    Local[0], Local[1], Local[2], Local[3]), \
    Str(Local[0]) + "." + \
      (Local[1] < 10 ? "0" : "") + Str(Local[1]) + "." + \
      (Local[2] < 100 ? "0" : "") + (Local[2] < 10 ? "0" : "") + Str(Local[2])

如果您想要填充的通用函数，请使用：

#define PadStr(S, C, L) Len(S) < L ? C + PadStr(S, C, L - 1) : S

像这样使用它：

#define AppVerText() \
  GetVersionComponents('MyProg.exe', \
    Local[0], Local[1], Local[2], Local[3]), \
    Str(Local[0]) + "." + PadStr(Str(Local[1]), "0", 2) + "." + \
      PadStr(Str(Local[1]), "0", 3)

帕斯卡脚本Code (like this one https://stackoverflow.com/q/34698256/850848）在这里没有帮助，因为它在安装时运行，而您在编译时需要它。所以预处理器是唯一的方法。