Inno setup 如何在Inno安装程序中将VCL样式应用于基于DLL的表单以进行卸载？无法导入dll

我正在尝试为我的安装程序添加VCL样式（Inno Setup 5.5.6（a））。在安装过程中正确加载样式，但当我尝试卸载时，会出现错误

运行时错误（在-1:0）：无法导入dll:VclStylesInno.dll

我不能卸载我的程序

有人知道我能做什么吗？
谢谢你的帮助

#定义VCLStylesSkinPath“{localappdata}\VCLStylesSkin”
[档案]
;安装
来源：“VclStylesinno.dll”；DestDir:“{app}”；标志：dontcopy
资料来源：“Styles\Auric.vsf”；DestDir:“{app}”；标志：dontcopy
;卸载
来源：“VclStylesinno.dll”；DestDir:“{VCLStylesSkinPath}”\
标志：uninsneveruninstall
资料来源：“Styles\Auric.vsf”；DestDir:“{VCLStylesSkinPath}”\
标志：uninsneveruninstall
[守则]
{从VclStylesInno.DLL导入LoadVCLStyle函数}
过程装入vclstyle（VClStyleFile:String）；
外部的LoadVCLStyleA@files：VclStylesInno.dll stdcall setuponly'；
程序LoadVCLStyle_UnInstall（VClStyleFile:String）；
外部的LoadVCLStyleA@VclStylesInno.dllstdcall只卸载'；
{从VclStylesInno.DLL导入UnLoadVCLStyles函数}
程序风格；
外部的UnLoadVCLStyles@files：VclStylesInno.dll stdcall setuponly'；
卸载的过程；
外部的UnLoadVCLStyles@VclStylesInno.dllstdcall只卸载'；
函数初始化安装：布尔值；
开始
结果：=真；
LoadVCLStyle_卸载（ExpandConstant（'Styles\Auric.vsf'）；
结束；
程序取消初始化安装（）；
开始
卸载advclstyles\u卸载；
结束；

您没有指定

VclStylesInno.dll的卸载副本的路径

这是正确的方法：

procedure LoadVCLStyle\u卸载（VClStyleFile:String）；
外部“LoadVCLStyleA@{#VCLStylesSkinPath}\VclStylesInno.dll stdcall uninstallonly”；

下一次，只需跟随官方

有关更多详细信息以及可能比官方解决方案更好的解决方案，请参见