Inno setup 根据Inno设置中的选定组件通过启动自定义代码

Inno setup 根据Inno设置中的选定组件通过启动自定义代码,inno-setup,pascalscript,Inno Setup,Pascalscript,我的查询与之有点类似,只是没有启动辅助选择页面,而是根据所选组件运行代码的变化。我希望在(设置)文档中插入文本的变体。使用上述参考代码的初始尝试不起作用,我猜是因为inno无法在安装过程的早期搜索文档的存在。下面是我打算使用的Append方法。似乎Append不支持组件标志 [Components] Name: "Adult"; Description: "Adult filters"; Flags: exclusive Name: "Prese

我的查询与之有点类似,只是没有启动辅助选择页面,而是根据所选组件运行代码的变化。我希望在(设置)文档中插入文本的变体。使用上述参考代码的初始尝试不起作用,我猜是因为inno无法在安装过程的早期搜索文档的存在。下面是我打算使用的Append方法。似乎Append不支持组件标志

[Components]
Name: "Adult"; Description: "Adult filters"; Flags: exclusive
Name: "PresetWordFilter"; Description: "Preset Word Filter"; Flags: exclusive
Name: "No_Security"; Description: "No filters"; Flags: exclusive
[代码]
程序
开始
如果?然后
开始
文件名:=ExpandConstant({userappdata}\LLL');
FileName:=AddBackslash(FileName)+'lll.props';
行:=TStringList.Create;
{从文件加载现有行}
Lines.LoadFromFile(文件名);
{将您的信息添加到文件末尾}
行。追加('xxx');
行。追加('FILTER_成人=true');
Lines.SaveToFile(文件名);
行。免费;
结束;
结束;
使用。例如,在(在
ssPostInstall
ssInstall
步骤中)

过程CurStepChanged(CurStep:TSetupStep);
开始
如果CurStep=ssPostInstall,则
开始
文件名:=ExpandConstant(“{userappdata}\LLL\LLL.props”);
行:=TStringList.Create;
{从文件加载现有行}
Lines.LoadFromFile(文件名);
如果选择了向导组件(“成人”),则
开始
行。追加('FILTER_成人=true');
结束;
如果选择了向导ComponentSelected('PresetWordFilter'),则
开始
追加('PRESET_WORD_FILTER=true');
结束;
Lines.SaveToFile(文件名);
行。免费;
结束;
结束;

我忘了提到我正在使用Inno 5,所以我需要改用IsComponentSelected。非常感谢。