Wie Sie VCL-Stile auf DLL-basierte Formulare in Inno-Setup anwenden? Neue Stile werden nicht geladen

Question

Ich habe ein Problem mit dem Laden von VCL-Stilen für Inno-Setup. Das Installationsprogramm wird korrekt generiert, bleibt jedoch weiterhin ein alter Stil. Neue Stile werden nicht geladen.

Ich verstehe nicht, warum das passiert. Bitte helfen Sie!

Hier mein iss Code:

[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

Folgen Sie einfach dem VCL Styles sample script:

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

Notiere die {tmp}\.

Sie geben keinen Pfad zu Ihrer Style-Datei, so dass die LoadVCLStyle fehlschlägt, da es die Datei nicht finden kann.