如何让ISSkin适配最新版Inno Setup Unicode？首次使用样式问题求助

我之前也碰到过这个问题，ISSkin原生确实不兼容最新的Unicode版Inno Setup，核心原因是字符串编码机制的差异：ISSkin最初是为ANSI版Inno Setup设计的，而新版Inno Setup默认采用UTF-16宽字符处理，直接调用会出现参数不匹配、皮肤加载失败甚至安装程序崩溃的情况。下面是我亲测有效的解决步骤：

1. 获取Unicode兼容的ISSkin版本 #

官方ISSkin已经很久没有更新，不支持Unicode环境，你需要使用社区适配的Unicode版本：

• 可以找到已经编译好的Unicode兼容ISSKin.dll（注意区分32位和64位版本）；
• 如果有开发能力，也可以从ISSkin的开源源码中修改字符串处理逻辑，重新编译为Unicode兼容版本。

2. 修改Inno Setup脚本，适配宽字符调用 #

在脚本的[Code]段中，必须声明宽字符版本的ISSkin函数（后缀为W），替代原来的ANSI版本（后缀为A）：

[Code]
// 声明Unicode版本的ISSkin函数
procedure ISSkinLoadSkinW(SkinFile: WideString; SkinSection: WideString); external 'ISSkinLoadSkinW@files:ISSKin.dll stdcall';
procedure ISSkinUnloadSkin; external 'ISSkinUnloadSkin@files:ISSKin.dll stdcall';
procedure ISSkinSetWindowTitleW(WindowTitle: WideString); external 'ISSkinSetWindowTitleW@files:ISSKin.dll stdcall';

// 初始化时加载皮肤
function InitializeSetup(): Boolean;
begin
  Result := True;
  try
    // 用ExpandConstant解析临时目录路径，确保皮肤文件能被正确找到
    ISSkinLoadSkinW(ExpandConstant('{tmp}\Office2007.cjstyles'), '');
  except
    // 皮肤加载失败时的降级处理，避免安装程序崩溃
    MsgBox('皮肤加载失败，将继续无皮肤安装。', mbInformation, MB_OK);
  end;
end;

// 安装结束后卸载皮肤
procedure DeinitializeSetup();
begin
  ISSkinUnloadSkin;
end;

3. 调整文件部署路径 #

将ISSkin DLL和皮肤文件部署到临时目录{tmp}，而非安装目录（除非你需要在安装后保留皮肤功能），这样更可靠且不会残留无用文件：

[Files]
; 部署ISSkin DLL到临时目录
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy
; 部署皮肤文件到临时目录
Source: Styles\Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy

4. 适配64位系统 #

如果你的安装包需要支持64位Windows，必须区分32位和64位的ISSkin DLL：

[Files]
; 32位系统部署32位DLL
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy; Check: not IsWin64
; 64位系统部署64位DLL
Source: ISSkin64.dll; DestDir: {tmp}; Flags: dontcopy; Check: IsWin64

同时在[Code]段中根据系统位数加载对应函数：

[Code]
#ifdef WIN64
  procedure ISSkinLoadSkinW(SkinFile: WideString; SkinSection: WideString); external 'ISSkinLoadSkinW@files:ISSKin64.dll stdcall';
  procedure ISSkinUnloadSkin; external 'ISSkinUnloadSkin@files:ISSKin64.dll stdcall';
#else
  procedure ISSkinLoadSkinW(SkinFile: WideString; SkinSection: WideString); external 'ISSkinLoadSkinW@files:ISSKin.dll stdcall';
  procedure ISSkinUnloadSkin; external 'ISSkinUnloadSkin@files:ISSKin.dll stdcall';
#endif

5. 常见问题排查 #

• 如果皮肤加载失败，先检查路径是否正确：用MsgBox(ExpandConstant('{tmp}\Office2007.cjstyles'), mbInformation, MB_OK)输出路径，确认文件存在；
• 确保使用的ISSkin DLL是Unicode兼容版本，ANSI版DLL在Unicode Inno Setup中调用必然报错；
• 升级Inno Setup到最新稳定版，避免版本本身的兼容性Bug。

内容的提问来源于stack exchange，提问作者Andrew Truckle