将文件复制到多个目的地

Question

我在 [Files] 部分中使用这些行将文件复制到软件已安装版本的目录中，而每个版本都有多个地址：（例如“R21.0”是该软件的一个版本）

[Files]

Source: "Fonts\*"; DestDir: {code:GetDir|R21.0};

Source: "Fonts\*"; DestDir: {code:GetDir|R22.0};

Source: "Fonts\*"; DestDir: {code:GetDir|R23.1};

Source: "Fonts\*"; DestDir: {code:GetDir|R24.0};

Source: "Fonts\*"; DestDir: {code:GetDir|R24.1};

这是 GetDir 函数：（问题是该函数仅返回一个版本中子文件夹的一个目的地）

 function GetDir(AcadVerNames: string): String;
     var
      AcadRegKey, sAcadLoc: String;
                            
begin

 RootKeyU := HKEY_CURRENT_USER_64;  
    
        if RegGetSubkeyNames(RootKey, 'SOFTWARE\Autodesk\AutoCAD' + '\' + AcadVerNames, AcadVerKeysTemp) then
            begin
              for I := 0 to GetArrayLength(AcadVerKeysTemp)-1 do
              begin
              RegQueryStringValue(RootKeyU, 'SOFTWARE\Autodesk\AutoCAD' + '\' + AcadVerNames + '\'  + AcadVerKeysTemp[I] , 'RootFolder', sAcadLoc);
              end;
            end;
    
      Result := sAcadLoc + '\Fonts';
    
    //The problem is that there are two results for "AcadVerNames", in another words two location for each version.
    
 end;

在这个系统中，只安装了两个版本，复制文件的目的地存储在每个版本的子文件夹中，子文件夹不固定，每个版本在注册表中可能有一个、两个或三个子文件夹。

Answer 1

您可以使用这样的解决方案：
如何将同一文件安装到多个位置（Inno Setup）

您只需要一个额外的参数来查询每个版本的第n个目录。

类似这样的：

[Files]
Source: "Fonts\*"; DestDir: {code:GetDir|R21.0,0}; Check: HasDir('R21.0',0)
Source: "Fonts\*"; DestDir: {code:GetDir|R21.0,1}; Check: HasDir('R21.0',1)
Source: "Fonts\*"; DestDir: {code:GetDir|R21.0,2}; Check: HasDir('R21.0',2)

与此处所示类似，您可以使用预处理来避免重复：

[Files]
#define FontsForReleaseN(Ver, N) \
  "Source: ""Fonts\*""; DestDir: {code:GetDir|" + Ver + "," + Str(N) +"}; " + \
  "Check: HasDir('" + Ver + "'," + Str(N) + ")" + NewLine
#define FontsForRelease(Ver) \
  FontsForReleaseN(Ver, 0) + FontsForReleaseN(Ver, 1) + FontsForReleaseN(Ver, 2)

#emit FontsForRelease('R21.0')
#emit FontsForRelease('R22.0')
#emit FontsForRelease('R23.1')
...