在Unicode版Inno Setup中使用ISSkin

ISSkin是Code jock 公司出品的Inno Setup 皮肤插件，用于为Inno制做的安装程序提供皮肤功能。 

自Delphi发布2009以后，Inno Setup 开始出现支持Unicode编码的版本，即5.3.x系列，而且官方同时提供Ansi和Unicode版本。 

若是了解Delphi 2009的朋友，应该就很了解这一版本对Unicode的支持，这里很少作介绍了。 

Unicode版的Inno Setup脚本中会将全部字符串存储为Unicode字符串，使用双字节编码，包括ASCII码，若是调用为早期Ansi版开发的插件的话，涉及到字符串String，应该显式修改成AnsiString，这样才能保证Unicode字符串正确转换为Ansi字符串。 

这里要解决由此而致使的问题。 

如今的ISSkin最新版本是2.0.0，字符串使用Ansi编码，因此须要将官方主页上介绍的Code代码段进行修改。 

这里介绍使用ISSkin对Unicode版的Inno Setup制做的安装程序添加皮肤。 

第一步，在File段添加插件ISSkin的动态连接库ISSkin.dll和皮肤文件

例如：

[Files] Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy Source: Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy

第二步，在Code段声明API，注意这里将原String修改成AnsiString

例如： 

[Code] procedure LoadSkin(lpszPath: AnsiString; lpszIniFileName: AnsiString);external 'LoadSkin@files:isskin.dll stdcall'; procedure UnloadSkin();external 'UnloadSkin@files:isskin.dll stdcall'; function ShowWindow(hWnd: Integer; uType: Integer): Integer; external 'ShowWindow@user32.dll stdcall';

第三步，重载InitializeSetup和DeinitializeSetup两个函数以调用ISSkin插件功能

例如： 

procedure DeinitializeSetup(); begin    ShowWindow(StrToInt(ExpandConstant('{wizardhwnd}')), 0);    UnloadSkin(); end;

好了，如今截个图吧，看看效果。 

 

 

 

 

绿色通道： 好文要顶 关注我 收藏该文