以编程方式生成Inno安装文件标志

Question

是否可以在Inno安装程序中以编程方式生成文件标志？我的安装程序源代码在一个相当大的目录结构中包含大量文件。目前，我通过一次添加整个文件夹来最小化脚本的复杂性。这很有效，但是，有许多文件分散在整个层次结构中，它们没有从压缩中受益（例如*. jpg），并且显着增加了安装程序构建时间。理想情况下，我想做以下事情：

Source: "{#MySrc}\*"; DestDir: "{#MyDst}"; Flags: {code:GetFlags};

其中GetFlages将检查当前文件的扩展名，并为我不想压缩的文件类型返回“未压缩”。这可能吗？我似乎在文档或在线中找不到任何表明它是的东西。如果没有，有没有其他直接的方法来实现这一点？

我能想到的唯一其他方法是为每种类型创建一个额外的文件行，如下所示

Source: "{#MySrc}\*"; DestDir: "{#MyDst}"; Excludes: "*.jpg,*.dds"; Flags: "ignoreversion recursesubdirs";
Source: "{#MySrc}\*.jpg"; DestDir: "{#MyDst}"; Flags: "ignoreversion recursesubdirs nocompression";
Source: "{#MySrc}\*.dds"; DestDir: "{#MyDst}"; Flags: "ignoreversion recursesubdirs nocompression";

虽然这是可行的，但每次遇到我决定不压缩的文件类型时，我都需要在几个地方进行此更改。因此，如果可能的话，我宁愿将逻辑保留在一个地方。

Answer 1

您的解决方案还不错。如果您向我们提供详细信息，我们可能会帮助您找到不需要“每次在几个地方进行更改”的解决方案。

无论如何，可以使用预处理器生成[Files]部分。这样，您可以按文件类型更改标志。但代码也很复杂。而且由于预处理器的限制，它无法处理非常大的目录结构（我已经设法使它能够处理多达3500个文件）。

#pragma parseroption -p-

#define FileFlags(FileName) \
    Local[0] = Lowercase(ExtractFileExt(FileName)), \
    (Local[0] == "jpg" || Local[0] == "dds" ? "nocompression" : "")

#define FileEntry(Source, DestDir) \
    "Source: \"" + Source + "\"; DestDir: \"" + DestDir + "\"; " + \
    "Flags: " + FileFlags(Source) + "\n"

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

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

#pragma parseroption -p+

根据需要修改FileFlags宏。并使用ProcessFolder宏，如：

[Files]

#emit ProcessFolder(MySrc, MyDst)

它将生成如下代码:

Source: "C:\source\file.txt"; DestDir: "{app}"; Flags: 
Source: "C:\source\subfolder\file.jpg"; DestDir: "{app}\subfolder"; Flags: nocompression
Source: "C:\source\subfolder\another.txt"; DestDir: "{app}\subfolder"; Flags: 

（使用 MySrc = C：\source and MyDst = {app}）

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

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