如何使用Pascal Inno Setup使用字符串变量ExpandConstant？

对于安装程序，我需要创建文件夹链接。如何使用Pascal Inno Setup使用字符串变量ExpandConstant？

为此，我使用'[Dirs]'部分创建目标文件夹。没问题。

然后，在“[代码]”部分中，使用函数“CurStepChanged（ssPostInstall）”，I读取临时安装的文件，以获得夹链接来创建的列表。文件的每一行都包含一个目标文件夹路径名和一个链接路径名...使用Inno Setup常量。每个值都以“String”变量的形式读取和存储。

当我通过这些字符串变量“ExpandConstant（lLinkTarg）”，我得到任何常量名的内部运行时错误。

如果我复制粘贴的字符串内容为 'ExpandConstant（'{＃gRepNasSvg} \ {UT代码：getProjetc} \文件 '）' 调用，那么它的工作原理...

任何暗示什么，我做错了？

在此先感谢。 L.

procedure CurStepChanged(CurStep: TSetupStep); 
var 
    lFileName: String; 
    lLinkList: TArrayOfString; 
    lIndex: Integer; 
    lLinkLine: String; 
    lLinkName: String; 
    lLinkTarg: String; 
    lSepPos: Integer; 

begin 
    // Après l'étape d'installation... 
    if CurStep = ssPostInstall then 
     begin 
      // Si le fichier listant les liens à créer existe... 
      lFileName := ExpandConstant('{tmp}') + '\' + ExpandConstant('{#gFicListeLiens}'); 
      if FileExists(lFileName) then 
       begin 
        // Lecture du contenu du fichier. 
        LoadStringsFromFile(lFileName, lLinkList); 

        // Pour chaque ligne lue... 
        for lIndex := 0 to GetArrayLength(lLinkList) - 1 do 
        begin 
         // Lecture de la ligne. 
         lLinkLine := Trim(lLinkList[lIndex]); 

         // Si ce n'est pas un commentaire... 
         if (Length(lLinkLine) > 0) and (lLinkLine[1] <> ';') then 
          begin 
           // Recherche du séparateur. 
           lSepPos := Pos('>', lLinkLine); 
           if lSepPos > 0 then 
            begin 
             // Get target location. 
             lLinkTarg := Trim(Copy(lLinkLine, 1, lSepPos - 1)); 
MsgBox(lLinkTarg, mbInformation, MB_OK); 

             // NEXT LINE FAILS ! 
             lLinkTarg := ExpandConstant(lLinkTarg) ; 
MsgBox(lLinkTarg, mbInformation, MB_OK); 

             // Get link location. 
             lLinkName := Trim(Copy(lLinkLine, lSepPos + 1, Length(lLinkLine) - lSepPos)); 
MsgBox(lLinkName, mbInformation, MB_OK); 

            end 
          end 
        end 
       end 
     end 
end;

一些我忘记的东西。

链接描述变量的形式是 '{#gRepNasSvg} \ {UT代码：getProjetc} \文件' ......

来源

2012-08-17 zePit

ExpandConstant('{tmp}\{#gFicListeLiens}');

（你应该总是至少包括以下\目录在调用ExpandConstant时是不变的，并且在那里包含额外的文本没有任何坏处，只要它不包含任何特殊字符即可。）

尽管如此，您尝试读取的文件的内容是什么？

请注意，ExpandConstant不会（也不能）扩展{#var}样式常量，它们在编译时由预处理器扩展，并且不能在运行时扩展。尝试从[代码]功能中扩展{code:...}常量通常也是不好的方式。

首先使用文件的原因是什么？它在安装过程中是由什么产生的？如果不是（或者即使如此，您也可以在脚本中执行代替而不是外部代码），那么您应该在代码中使用数组。

来源

2012-08-18 02:29:20 Miral

如何使用Pascal Inno Setup使用字符串变量ExpandConstant？

回答

相关问题