Inno Setup - Pascal代码可见性 - “未知标识符”错误

Question

我的安装程序中有一个AfterInstall操作的文件，如下所示：

AfterInstall: UpdateImageLoaderConfigValues()

我希望程序调用相同的Pascal脚本函数两次，因为据我所知，我不能进行两次AfterInstall操作，所以我这样设置了这个：

procedure UpdateImageLoaderConfigValues();
begin
  SaveValueToXML(ExpandConstant('{app}\ImageLoader.exe.config'),{#ImageLoaderLastConfigurationPath}, ExpandConstant('{app}/Configurations'))
  SaveValueToXML(ExpandConstant('{app}\ImageLoader.exe.config'),{#ImageLoaderLastImagePath}, ExpandConstant('{app}/Images'))
end;

我的函数SaveValueToXML有一个签名：

function SaveValueToXML(const AFileName, APath, AValue: string);

问题是编译因

而失败

  

未知标识符'SaveValueToXML'

在UpdateImageLoaderConfigValues我尝试使用此功能的点处出现

错误。

如何将SaveValueToXML显示为UpdateImageLoaderConfigValues？

Answer 1

您必须在SaveValueToXML：

之前定义UpdateImageLoaderConfigValues

[Files]
Source: ...; AfterInstall: UpdateImageLoaderConfigValues()

[Code]

function SaveValueToXML(const AFileName, APath, AValue: string);
begin
  // ...
end;

procedure UpdateImageLoaderConfigValues();
begin
  SaveValueToXML(ExpandConstant('{app}\ImageLoader.exe.config'),{#ImageLoaderLastConfigurationPath}, ExpandConstant('{app}/Configurations'))
  SaveValueToXML(ExpandConstant('{app}\ImageLoader.exe.config'),{#ImageLoaderLastImagePath}, ExpandConstant('{app}/Images'))
end;