inno-setup - 如何将参数传递到 Inno 的文件部分

Question

我用谷歌搜索了很多，但没有找到我的问题的答案。

如何正确地将参数传递给这样的函数:getPath('myParam')？

我有这样的代码:

[Files]
Source: "AppName\*"; DestDir: "{code:getPath('myParam')}";

[Code]
function getPath(Param: String):String;
  var  objRegExp: String;
      path: Variant;
begin
  path := ExpandConstant('{userappdata}') +'\Adobe\' + Param + '\.+';
  objRegExp := CreateOleObject('VBScript.RegExp');
  objRegExp.Pattern := '(.+(\\Version )?( CS)?\d.+)';
   if objRegExp.Test(path) then
      begin
         objRegExpMatches := objRegExp.Execute(path);
         Result := objRegExpMatches.Item[0].Value;
      end;
end

Answer 1

如 the reference 所示，脚本常量的原型(prototype)如下所示:

{code:FunctionName|Param}

因此您需要在函数名称后添加 | 字符，并从脚本常量函数调用中删除带有单引号的括号。在伪代码中它可能看起来像这样:

[Files]
Source: "AppName\*"; DestDir: "{code:GetPath|Your input string value}";

[Code]
function GetPath(Param: string): string;
begin
  MsgBox(Param, mbInformation, MB_OK);
end;