将同一文件安装到Inno Setup

Question

提前三

用

dontcopy

flag

键入文件，然后在

Answer 1

（或ssPostInstall

）中以编程方式安装它。

使用

ExtractTemporaryFile

将文件提取到临时文件夹。

使用

FindFirst

• /

  FindNext

  函数可以找到子文件夹。
使用
• CopyFile将文件从临时文件夹复制到找到的子文件夹。

  Log

  很多
• 只有在文件不大的情况下，这才能正常工作。否则，安装程序将不愉快地悬挂。要获得大量文件的良好用户体验，需要更复杂的解决方案。

  #define TheFileName "thefile.txt"
  
  [Files]
  Source: "{#TheFileName}"; Flags: dontcopy
  
  [Code]
  
  procedure CurStepChanged(CurStep: TSetupStep);
  var
    RootPath: string;
    TempPath: string;
    DestPath: string;
    FindRec: TFindRec;
    Count: Integer;
  begin
    if CurStep = ssInstall then
    begin
      Log('Extracting {#TheFileName}...');
      ExtractTemporaryFile('{#TheFileName}');
      TempPath := ExpandConstant('{tmp}\{#TheFileName}');
      RootPath := ExpandConstant('{app}');
      Log(Format('Searching in "%s"...', [RootPath]));
      Count := 0;
      if not FindFirst(RootPath + '\*', FindRec) then
      begin
        Log(Format('"%s" not found.', [RootPath]));
      end
        else
      begin
        try
          repeat
            if (FindRec.Name <> '.') and (FindRec.Name <> '..') and
               (FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0) then
            begin
              Log(Format('Found "%s".', [FindRec.Name]));
              DestPath := RootPath + '\' + FindRec.Name + '\{#TheFileName}';
              if FileCopy(TempPath, DestPath, False) then
              begin
                Log(Format('The file was installed to "%s".', [DestPath]));
                Inc(Count);
              end
                else
              begin
                Log(Format('Error installing the file to "%s".', [DestPath]));
              end;
            end;
          until not FindNext(FindRec);
        finally
          FindClose(FindRec);
        end;
  
        if Count = 0 then
        begin
          Log(Format('No subfolder to install file "%s" to was found in "%s".', [
            '{#TheFileName}', RootPath]));
        end
          else
        begin
          Log(Format('File "%s" was installed to %d subfolder(s) of "%s".', [
            '{#TheFileName}', Count, RootPath]));
        end;
      end;
    end;
  end;
  

端，如果您有固定的文件夹，则可以使用
• Prepropersors：

  来生成每个文件夹中的每个文件夹的条目：

  [Files]

[Files]
#define FolderEntry(Name) \
    "Source: ""C:\source\*""; DestDir: ""{app}\" + Name + """; " + \
         "Check: CheckDir('" + Name + "')"
#emit FolderEntry('2023')
#emit FolderEntry('2024')
#emit FolderEntry('2025')

如果您addd

[Code]
function CheckDir(DirName: string): Boolean;
begin
  Result := DirExists(ExpandConstant('{app}') + '\' + DirName);
end;

到脚本的末尾：

---

SaveToFile

...然后您应该在

#expr SaveToFile(AddBackslash(SourcePath) + "Preprocessed.iss") 中看到代码生成这样的脚本：

Preprocessed.iss 感谢马丁！我做了另一种可能对其他用户有帮助的方式。 我为要检测到的每个潜在文件夹设置一个文件（仅适用于四个）。

[Files]
Source: "C:\source\*"; DestDir: "{app}\2023"; Check: CheckDir('2023')
Source: "C:\source\*"; DestDir: "{app}\2024"; Check: CheckDir('2024')
Source: "C:\source\*"; DestDir: "{app}\2025"; Check: CheckDir('2025')

然后我使用以下内容检查文件夹是否存在：

[Files] Source: "C:\Users\XXXXX\dll\*"; DestDir: "{commonappdata}\XXXX\2023"; Check:CheckDir2023;