Inno setup制作安装包有多个文件夹根据自定义页面的选择判断是否复制某个文件夹中的所有文件到某个位置

您可以使用Inno Setup的Check函数来判断自定义页面中的选择，并根据选择结果来决定是否复制文件夹中的文件到指定位置。

以下是一个简单的示例代码，演示了如何根据自定义页面的选择来判断是否复制文件夹中的文件到指定位置：

[Files]
Source: "Folder1\*"; DestDir: "{app}"; Flags: ignoreversion

[Code]
var
  ShouldCopyFiles: Boolean;

function ShouldCopyFilesPage(PreviousPageId: Integer): Integer;
begin
  // 创建自定义页面
  Result := CreateCustomPage(wpWelcome, '选择是否复制文件夹中的文件', '选择复制文件夹中的文件到安装位置');

  // 添加复选框控件到自定义页面
  with TNewCheckBox.Create(WizardForm) do
  begin
    Parent := WizardForm.Pages[Result];
    Left := ScaleX(16);
    Top := ScaleY(16);
    Width := ScaleX(300);
    Height := ScaleY(16);
    Caption := '复制文件夹中的文件';
    Checked := True; // 默认选中
    OnClick := @CheckBoxClick;
  end;
end;

procedure CheckBoxClick(Sender: TObject);
begin
  // 更新变量的值以反映复选框的状态
  ShouldCopyFiles := TCheckBox(Sender).Checked;
end;

function InitializeSetup: Boolean;
begin
  // 默认设置为复制文件夹中的文件
  ShouldCopyFiles := True;
  Result := True;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  SourceFolder: String;
begin
  // 当开始复制文件时，根据选择来决定是否复制文件夹中的文件
  if (CurStep = ssInstall) and ShouldCopyFiles then
  begin
    SourceFolder := ExpandConstant('{src}\Folder1');
    if DirExists(SourceFolder) then
      FileCopy(SourceFolder + '\*', ExpandConstant('{app}'), False);
  end;
end;

在上面的示例代码中，我们首先创建了一个自定义页面ShouldCopyFilesPage，并在该页面上添加了一个复选框控件。然后，在InitializeSetup函数中，默认设置为复制文件夹中的文件。当用户点击“下一步”时，CurStepChanged函数会被调用，我们在该函数中根据选择来决定是否复制文件夹中的文件。

请注意，您需要将示例代码中的Source: "Folder1\*"; DestDir: "{app}"; Flags: ignoreversion行添加到您的脚本中，以确保安装程序将复制文件夹中的文件到指定位置。

希望这可以帮助到您