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;