如何在 Inno Setup 中将 VCL 样式应用于基于 DLL 的表单？新样式不会加载

Question

我在为 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;

Answer 1

只要关注VCL Styles sample script：

function InitializeSetup(): Boolean;
begin
  ExtractTemporaryFile('Amakrits.vsf');
  LoadVCLStyle(ExpandConstant('{tmp}\Amakrits.vsf'));
  Result := True;
end;

注意{tmp}\。

您没有提供样式文件的路径，因此 LoadVCLStyle 失败，因为它找不到文件。