Inno setup制作安装包复制文件夹里面的所有文件到指定位置

要在 Inno Setup 中制作安装包并复制文件夹中的所有文件到指定位置，你可以按照以下步骤操作：

在 Inno Setup 脚本文件中，使用 [Files] 节段添加需要复制的文件夹及其内容。例如：

[Files]
Source: "C:\Path\To\Your\Folder\*"; DestDir: "{app}\Destination\Folder"; Flags: recursesubdirs

上述代码中，Source 指定了需要复制的文件夹路径，DestDir 指定了目标文件夹路径，Flags 使用 recursesubdirs 标志来递归复制文件夹中的所有子文件夹和文件。

在 [Code] 节段中，编写一个函数来复制文件夹。例如：

function CopyFolder(SourceFolder, DestFolder: String): Boolean;
var
  FindRec: TFindRec;
  FindResult: Integer;
  SourcePath, DestPath, SourceFile, DestFile: String;
begin
  Result := True;
  SourcePath := AddBackslash(SourceFolder);
  DestPath := AddBackslash(DestFolder);

  FindResult := FindFirst(SourcePath + '*', FindRec);
  while FindResult = 0 do
  begin
    if (FindRec.Name <> '.') and (FindRec.Name <> '..') then
    begin
      SourceFile := SourcePath + FindRec.Name;
      DestFile := DestPath + FindRec.Name;

      if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then
      begin
        // 复制子文件夹
        if not CopyFolder(SourceFile, DestFile) then
        begin
          Result := False;
          Break;
        end;
      end
      else
      begin
        // 复制文件
        if not FileCopy(SourceFile, DestFile, False) then
        begin
          Result := False;
          Break;
        end;
      end;
    end;

    FindResult := FindNext(FindRec);
  end;

  FindClose(FindRec);
end;

上述代码中，CopyFolder 函数会递归复制文件夹中的所有子文件夹和文件。

在 [Code] 节段中的 InitializeSetup 函数中调用 CopyFolder 函数。例如：

procedure InitializeSetup();
begin
  // 复制文件夹
  if not CopyFolder('C:\Path\To\Your\Folder', ExpandConstant('{app}\Destination\Folder')) then
  begin
    MsgBox('Failed to copy folder.', mbError, MB_OK);
    Abort;
  end;
end;

上述代码中，InitializeSetup 函数会在安装过程开始时调用 CopyFolder 函数来复制文件夹。

通过以上步骤，你可以在 Inno Setup 中制作安装包并复制文件夹中的所有文件到指定位置。请根据你的实际情况修改代码中的文件夹路径和目标路径