Inno Setup 安装包文件筛选：根据 Components 值选择文件

///'Inno Setup 安装包文件筛选：根据 Components 值选择文件///' ///'///'本文介绍如何使用 Inno Setup 的 Files 和 Components 段来创建安装包，并根据文件的 Components 值筛选出特定版本的安装文件。///'///'///' ///'///'///'首先，在 Components 段中定义三个组件，分别对应三种不同的版本名称。例如：///'///'///' ///'///'///'pascal//n[Components]//nName: ///'Version1///'; Description: ///'Version 1///'//nName: ///'Version2///'; Description: ///'Version 2///'//nName: ///'Version3///'; Description: ///'Version 3///'//n///'///'///' ///'///'///'然后，在 Files 段中定义十个文件，并为每个文件指定对应的组件。例如：///'///'///' ///'///'///'pascal//n[Files]//nSource: ///'File1.txt///'; DestDir: ///'{app}///'; Components: Version1//nSource: ///'File2.txt///'; DestDir: ///'{app}///'; Components: Version1//nSource: ///'File3.txt///'; DestDir: ///'{app}///'; Components: Version2//nSource: ///'File4.txt///'; DestDir: ///'{app}///'; Components: Version2//n...//n///'///'///' ///'///'///'接下来，在 Code 段中使用 ComponentsList 函数遍历所有文件，并根据文件的 Components 值进行筛选。例如：///'///'///' ///'///'///'pascal//n[Code]//nprocedure CurStepChanged(CurStep: TSetupStep);//nvar//n I: Integer;//n Component: string;//nbegin//n if CurStep = ssInstall then//n begin//n Log('Selected files:');//n for I := 0 to GetArrayLength(Files) - 1 do//n begin//n Component := ComponentsList(False, ExpandConstant('{src}/{#Files[' + IntToStr(I) + '].Source}'), '');//n if Component <> '' then//n begin//n Log(ExpandConstant('{#Files[' + IntToStr(I) + '].Source}') + ' - ' + Component);//n end;//n end;//n end;//nend;//n///'///'///' ///'///'///'通过以上代码，您可以在安装时遍历所有文件，并根据其 Components 值输出筛选后的文件名和对应的组件名称。///'///'///' ///'///'///'请注意，以上示例代码仅用于演示如何根据文件的 Components 值进行筛选，并输出文件名和组件名称。您可以根据实际需求进行修改和扩展。///'///'///'