Inno设置 - 编译时检查运行时中的“检查”功能

Question

我有以下要求。

基于脚本中的AppName，将包含安装程序中[文件]部分中列出的文件。

我在脚本中提到两个文件，如

[Files] Source: "XYZ.txt"; DestDir: "{app}"; Check: isInclude; Source: "ABCC.txt"; DestDir: "{app}"; Check: isInclude;

让我们假设，  如果AppName='Hi'则仅在安装程序中包含XYZ.txt文件。  如果AppName='Hello'，则只有ABC.txt文件包含在安装程序中。

我在[Code]部分编写了代码

[Code]
Function isInclude(): Boolean;
 var VALUE1 : String;
 var VALUE2 : String;
 var RESULT : Longint;

Begin
   VALUE1 := ExpandConstant('{MyAppName}');
   VALUE2 := 'Hi';
   RESULT :=CompareText(VALUE1 ,VALUE2 );

If RESULT=0 then
  Begin
    Result := True;
  End
Else 
  Result := False;
End;

但它不起作用......我们怎么能这样做？ 在此先感谢