Question

我需要使用Inno Setup创建的设置，在最终用户计算机上安装一组跨多个文件夹的隐藏文件。我已经提到了Copying hidden files in Inno Setup，但似乎那里指定的DirectoryCopy函数将文件复制到同一台机器上。

我需要从setup.exe文件中提取隐藏文件，然后将其安装在最终用户计算机上，该计算机将与创建设置的计算机不同。

Answer 1

如果[Files]部分Source参数是通配符，则会忽略隐藏文件。请参阅BuildFileList in Compile.pas。

一个简单的解决方案是从源文件中删除隐藏属性。

如果您无法删除隐藏属性（例如，如果您需要在安装时保留它），则可以使用preprocessor生成[Files]部分条目，避免使用通配符。

#pragma parseroption -p-

; If the file is found by calling FindFirst without faHidden, it's not hidden
#define FileParams(FileName) \
    Local[0] = FindFirst(FileName, 0), \
    (!Local[0] ? "; Attribs: hidden" : "")

#define FileEntry(Source, DestDir) \
    "Source: \"" + Source + "\"; DestDir: \"" + DestDir + "\"" + \
    FileParams(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+

使用ProcessFolder宏，如：

[Files]

#emit ProcessFolder("C:\source", "{app}")

它将生成如下脚本：

[Files]
Source: "C:\source\file.txt"; DestDir: "{app}"
Source: "C:\source\subfolder\file.jpg"; DestDir: "{app}\subfolder"
Source: "C:\source\subfolder\hidden.txt"; DestDir: "{app}\subfolder"; Attribs: hidden

（请参阅Inno Setup: How do I see the output (translation) of the Inno Setup Preprocessor?）

Ntb，question, you are referring to，是关于复制外部文件，因此它与您的问题无关。

使用Inno Setup安装隐藏文件

1 个答案: