1
Ich versuche, VCL-Stile (Inno-Setup 5.5.6 (a)) für mein Installationsprogramm hinzuzufügen. Style wird während der Installation korrekt geladen, aber wenn ich versuche, zu deinstallieren, erhalte ich einen FehlerWie Sie VCL-Stile auf DLL-basierte Formulare in Inno-Setup für die Deinstallation anwenden? Kann dll nicht importieren
Laufzeitfehler (at-1: 0): Kann dll nicht importieren: VclStylesInno.dll.
Und ich kann mein Programm nicht deinstallieren.
Weiß jemand was ich tun kann?
Danke für die Hilfe
#define VCLStylesSkinPath "{localappdata}\VCLStylesSkin"
[Files]
;Install
Source: "VclStylesinno.dll"; DestDir: "{app}"; Flags: dontcopy
Source: "Styles\Auric.vsf"; DestDir: "{app}"; Flags: dontcopy
;Uninstall
Source: "VclStylesinno.dll"; DestDir: "{#VCLStylesSkinPath}"; Flags: uninsneveruninstall
Source: "Styles\Auric.vsf"; DestDir: "{#VCLStylesSkinPath}"; Flags: uninsneveruninstall
[Code]
// Import the LoadVCLStyle function from VclStylesInno.DLL
procedure LoadVCLStyle(VClStyleFile: String); external '[email protected]:VclStylesInno.dll stdcall setuponly';
procedure LoadVCLStyle_UnInstall(VClStyleFile: String); external '[email protected] stdcall uninstallonly';
// Import the UnLoadVCLStyles function from VclStylesInno.DLL
procedure UnLoadVCLStyles; external '[email protected]:VclStylesInno.dll stdcall setuponly';
procedure UnLoadVCLStyles_UnInstall; external '[email protected] stdcall uninstallonly';
function InitializeUninstall: Boolean;
begin
Result := True;
LoadVCLStyle_UnInstall(ExpandConstant('Styles\Auric.vsf'));
end;
procedure DeinitializeUninstall();
begin
UnLoadVCLStyles_UnInstall;
end;