Inno setup 如何在Inno安装程序中将VCL样式应用于基于DLL的表单？不会加载新样式

我在为Inno安装加载VCL样式时遇到问题。安装程序可以正确生成，但仍然是旧样式。不会加载新样式

我不明白为什么会这样。请帮忙

这是我的iss代码：

[文件]
...
; 添加库以创建新样式
来源：“VclStylesinno.dll”；DestDir:{app}；标志：dontcopy
资料来源：“Styles/Pink.vsf”；DestDir:{app}；标志：dontcopy
[守则]
//从VclStylesInno.DLL导入LoadVCLStyle函数
过程装入vclstyle（VClStyleFile:String）；
外部的LoadVCLStyleW@files：VclStylesInno.dll stdcall'；
//从VclStylesInno.DLL导入UnLoadVCLStyles函数
程序风格；
外部的UnLoadVCLStyles@files：VclStylesInno.dll stdcall'；
函数InitializeSetup（）：Boolean；
开始
提取临时文件（'Pink.vsf'）；
LoadVCLStyle（ExpandConstant（'Pink.vsf'））；
结果：=真；
结束；

只需按照以下步骤操作：

函数InitializeSetup（）：布尔值；
开始
提取临时文件（'Amakrits.vsf'）；
LoadVCLStyle（ExpandConstant（'{tmp}\Amakrits.vsf'））；
结果：=真；
结束；

注意

{tmp}\

您没有提供样式文件的路径，因此

LoadVCLStyle

将失败，因为它找不到该文件