如何使用ISSkin库将皮肤应用于Inno Setup卸载程序？

Question

我知道,如何在 Inno Setup的安装程序部分中应用带有ISSkin插件的皮肤,但我无法弄清楚,如何为Inno Setup卸载程序执行相同操作.

如何将带有ISSkin插件的皮肤也应用于卸载程序？

Answer 1

ISSkin.dll除非用户运行卸载程序,否则您必须将库和皮肤文件一起提取到某个目录中并保存.这是因为卸载程序是由安装程序生成的应用程序,因此它们只是不同(卸载程序,例如不包含可以提取的文件).

您还需要考虑到,如果您希望将整个卸载过程设置为皮肤,则需要ISSkin.dll在卸载过程的最后卸载库,这将需要您删除库手动的皮肤文件.为此,我强烈建议您使用与应用程序不同的文件夹,以允许卸载程序正确删除应用程序,其余部分由您自己执行.这是一个脚本示例,用于此本地应用程序数据文件夹:

您也可以按照此代码的注释版本进行操作.

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
OutputDir=userdocs:Inno Setup Examples Output

#define SetupSkinPath "{localappdata}\SetupSkin"

[Files]
Source: ISSkinU.dll; DestDir: {#SetupSkinPath}; Flags: uninsneveruninstall
Source: Styles\Office2007.cjstyles; DestDir: {#SetupSkinPath}; Flags: uninsneveruninstall

[Code]
procedure SetupLoadSkin(lpszPath: string; lpszIniFileName: string);
  external 'LoadSkin@files:ISSkinU.dll stdcall setuponly';
procedure SetupUnloadSkin;
  external 'UnloadSkin@files:ISSkinU.dll stdcall setuponly';
procedure UninstLoadSkin(lpszPath: string; lpszIniFileName: string);
  external 'LoadSkin@{#SetupSkinPath}\ISSkinU.dll stdcall uninstallonly';
procedure UninstUnloadSkin;
  external 'UnloadSkin@{#SetupSkinPath}\ISSkinU.dll stdcall uninstallonly';
function ShowWindow(hWnd: HWND; nCmdShow: Integer): BOOL;
  external 'ShowWindow@user32.dll stdcall';

function InitializeSetup: Boolean;
begin
  Result := True;
  ExtractTemporaryFile('Office2007.cjstyles');
  SetupLoadSkin(ExpandConstant('{tmp}\Office2007.cjstyles'), 'NormalBlack.ini');    
end;

procedure DeinitializeSetup;
begin
  ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), SW_HIDE);
  SetupUnloadSkin;
end;

function InitializeUninstall: Boolean;
begin
  Result := True;
  UninstLoadSkin(ExpandConstant('{#SetupSkinPath}\Office2007.cjstyles'), 
    'NormalBlack.ini');  
end;

procedure DeinitializeUninstall;
begin
  UninstUnloadSkin;
  UnloadDLL(ExpandConstant('{#SetupSkinPath}\ISSkinU.dll'));
  DeleteFile(ExpandConstant('{#SetupSkinPath}\ISSkinU.dll'));
  DeleteFile(ExpandConstant('{#SetupSkinPath}\Office2007.cjstyles'));
  RemoveDir(ExpandConstant('{#SetupSkinPath}'));
end;