我在为Inno Setup加载VCL样式时遇到问题。安装程序会正确生成，但仍保持旧样式。新样式将不会加载。
我不明白为什么会这样。请帮忙！
这是我的iss代码：
[Files]
...
; add library to create new styles
Source: "VclStylesinno.dll"; DestDir: {app}; Flags: dontcopy
Source: "Styles/Pink.vsf"; DestDir: {app}; Flags: dontcopy
[Code]
// Import the LoadVCLStyle function from VclStylesInno.DLL
procedure LoadVCLStyle(VClStyleFile: String);
external 'LoadVCLStyleW@files:VclStylesInno.dll stdcall';
// Import the UnLoadVCLStyles function from VclStylesInno.DLL
procedure UnLoadVCLStyles;
external 'UnLoadVCLStyles@files:VclStylesInno.dll stdcall';
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Pink.vsf');
LoadVCLStyle(ExpandConstant('Pink.vsf'));
Result := True;
end;
只需遵循VCL样式示例脚本即可：
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('Amakrits.vsf');
LoadVCLStyle(ExpandConstant('{tmp}\Amakrits.vsf'));
Result := True;
end;
注意{tmp}\。
您没有提供样式文件的路径，所以LoadVCLStyle失败了，因为找不到文件。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句