Inno setup重新写一个多版本选择的安装页面如果选择的版本名称与文件的Components的值一致将文件筛选出并复制到指定位置此安装包里面有十个文件并且有些文件无Components差别

以下是一个使用Inno Setup创建多版本选择的安装页面的示例代码：

[Setup]
AppName=MyApp
AppVersion=1.0
DefaultDirName={pf}\MyApp

[Files]
Source: "File1.exe"; DestDir: "{app}"; Components: Version1
Source: "File2.exe"; DestDir: "{app}"; Components: Version2
Source: "File3.exe"; DestDir: "{app}" 
Source: "File4.exe"; DestDir: "{app}" 
Source: "File5.exe"; DestDir: "{app}"; Components: Version1
Source: "File6.exe"; DestDir: "{app}"; Components: Version2
Source: "File7.exe"; DestDir: "{app}" 
Source: "File8.exe"; DestDir: "{app}" 
Source: "File9.exe"; DestDir: "{app}"; Components: Version1
Source: "File10.exe"; DestDir: "{app}"; Components: Version2

[Components]
Name: Version1; Description: "Version 1"
Name: Version2; Description: "Version 2"

[Code]
var
  VersionPage: TInputOptionWizardPage;

procedure InitializeWizard;
begin
  VersionPage := CreateInputOptionPage(wpWelcome, 'Select Version', 'Please select the version you want to install:', 'Choose the version:', True, False);
  VersionPage.Add('Version 1');
  VersionPage.Add('Version 2');
end;

procedure CurStepChanged(CurStep: TSetupStep);
var
  I: Integer;
  VersionName: string;
  Components: TStringList;
begin
  if CurStep = ssPostInstall then
  begin
    VersionName := VersionPage.Values[0];
    Components := TStringList.Create;
    try
      WizardSelectedComponents(Components);
      for I := 0 to Components.Count - 1 do
      begin
        if Components[I] = VersionName then
        begin
          if I < 10 then
            FileCopy(ExpandConstant('File' + IntToStr(I + 1) + '.exe'), ExpandConstant('{app}\File' + IntToStr(I + 1) + '.exe'), False);
        end;
      end;
    finally
      Components.Free;
    end;
  end;
end;

在上面的示例代码中，我们首先在 [Files] 部分定义了安装包中的文件列表。某些文件具有 Components 属性，而某些文件没有。我们为两个版本（Version1 和 Version2）分别定义了不同的文件。

然后，在 [Components] 部分定义了两个组件，分别与版本名称相对应。

接下来，在 [Code] 部分，我们首先在 InitializeWizard 事件中创建了一个 TInputOptionWizardPage 页面，用于选择要安装的版本。我们添加了两个选项：“Version 1” 和 “Version 2”。

在 CurStepChanged 事件中，我们检查当前步骤是否为 ssPostInstall（安装完成后的步骤）。如果是，则获取用户选择的版本名称，并遍历已选择的组件列表。如果某个组件与选择的版本名称相同，则将对应的文件复制到指定目录（{app} 目录）。这里我们假设文件名是按照 File1.exe 到 File10.exe 的顺序命名的。

请注意，上述代码仅为示例，你可能需要根据自己的需求进行修改