Inno Setup-重复子目录，而不创建相同的子目录

Question

我经常使用recursesubdirs标志遍历多个子目录，并提取特定文件或文件类型，而不必单独明确引用每个文件。例子：

Source: C:\kh25\dependencies\*.dll; DestDir: {app}; Flags: recursesubdirs

这会在我的目标{app}路径中创建与最初检索DLL的源完全相同的目录结构。例如，如果我从上面的C：\kh25\依赖项\test检索了一个DLL，那么它会将该DLL放在{app}\test路径中。

这种行为可以通过以下方式进行修改:

Source: C:\kh25\dependencies\test\*.dll; DestDir: {app}; Flags: recursesubdirs

但显然，这意味着我必须单独引用依赖关系中的每个子目录。

因此，64000美元的问题是，如何防止在目标中重新创建相同的目录，而不必显式引用源目录？

Answer 1

使用Inno Setup预处理器生成< code>[Files]部分的条目。

一种可能的解决方案（而且相对简单）是使用递归宏，如：

#pragma parseroption -p-

#define FileEntry(Source) \
    "Source: " + Source + "; DestDir: {app}\n"

#define ProcessFile(Source, FindResult, FindHandle) \
    FindResult \
        ? \
            Local[0] = FindGetFileName(FindHandle), \
            Local[1] = Source + "\\" + Local[0], \
            (Local[0] != "." && Local[0] != ".." \
                ? (DirExists(Local[1]) ? \
                    ProcessFolder(Local[1]) : FileEntry(Local[1])) \
                : "") + \
            ProcessFile(Source, FindNext(FindHandle), FindHandle) \
        : \
            ""

#define ProcessFolder(Source) \
    Local[0] = FindFirst(Source + "\\*", faAnyFile), \
    ProcessFile(Source, Local[0], Local[0])

#pragma parseroption -p+

#emit ProcessFolder("C:\kh25\dependencies")

尽管此解决方案有其局限性，并且可能会使预处理器崩溃，具有大量文件或深度目录结构（适用于数千个文件）。

受@Zlatko Karaka的答案启发，使用Inno Setup预处理器来获取源文件路径及其子目录的文件和大小。

更可靠（丑陋而复杂）的解决方案是使用用户定义的过程。这很复杂，因为预处理器缺乏对用户定义过程参数的支持。

[Files]

#define FindHandle
#define FindResult 
#dim InnerMask[65536]
#define InnerMask[0] ""

#sub ProcessFoundFile
    #define InnerFileName FindGetFileName(FindHandle)
    #define fileName InnerMask[InnerMaskWorkPosition] + InnerFileName
    #if InnerFileName!="." && InnerFileName!=".."
        #if DirExists(FileName)
            #define Public InnerMask[InnerMaskPosition] FileName+"\"
            #define Public InnerMaskPosition InnerMaskPosition + 1
        #else
            Source: {#FileName}; DestDir: {app}
        #endif
    #endif 
#endsub

#sub ProcessInnerMaskPosition 
    #for { \
        FindHandle = FindResult = \
            FindFirst(InnerMask[InnerMaskWorkPosition]+"*", faAnyFile); \
        FindResult; FindResult = FindNext(FindHandle)} ProcessFoundFile
    #if FindHandle
        #expr FindClose(FindHandle)
    #endif
#endsub

#sub CollectFiles
    #define Public InnerMaskPosition 1
    #define Public InnerMaskWorkPosition 0
    #for { \
        InnerMaskWorkPosition = 0; InnerMaskWorkPosition < InnerMaskPosition; \
            InnerMaskWorkPosition++} \
            ProcessInnerMaskPosition
    #undef Public InnerMaskPosition
    #undef Public InnerMaskWorkPosition
#endsub

#expr InnerMask[0]="C:\kh25\dependencies\"
#expr CollectFiles

递归扫描函数取自@René Martin的答案，使用Inno Setup预处理器来获取源路径及其子目录的文件和大小。

在 Inno 安装程序脚本的最后添加 SaveToFile 调用，请参阅预处理器生成的内容：

#expr SaveToFile(AddBackslash(SourcePath) + "Preprocessed.iss")

请参阅Inno Setup：如何查看Inno Setup预处理器的输出（转换）？

我对这个问题的回答解释了上面采用的两种方法之间的区别：
Inno Setup预处理器可以用于构建一组重复的自定义消息吗？