在Unicode版Inno Setup中使用ISSkin给安装程序添加皮肤

在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;
好了，现在截个图吧，看看效果。




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





2356

关注 - 0

粉丝 - 0

+加关注

0

0

(请您对文章做出评价)

« 博主上一篇：(2356)Vista下使用Visual
Studio 2008（VC）独立编译Boost.Regex库

» 博主下一篇：(2356)使用NSIS打包的应用程序，在Vista中无法正确删除开始菜单快捷方式的问题解决方案

posted on 2009-10-27 12:34 2356 阅读(1727) 评论(3) 编辑 收藏



FeedBack:

#1楼

2010-02-27 21:56 | 艾丝凡地方[未注册用户]

爱上对方萨芬


#2楼

2010-02-27 21:57 | 求助[未注册用户]

您好，使用皮肤插件时,是不是需要根据版本不同进行如下修改：

// Ansi版本改为 String

// Importing LoadSkin API from ISSkin.DLL

procedure LoadSkin(lpszPath: String; lpszIniFileName: String);

external 'LoadSkin@files:isskin.dll stdcall';

// Unicode版本改为 AnsiString

// Importing LoadSkin API from ISSkin.DLL

procedure LoadSkin(lpszPath: AnsiString; lpszIniFileName: AnsiString);

external 'LoadSkin@files:isskin.dll stdcall';

我实在不知道改怎么办了，请您帮帮我，Email- liujiaheng@gmail.com


#3楼[楼主]

2010-03-03 18:42 | 2356

@求助

ISSkin默认只支持Ansi版的Inno

因为Unicode版Inno之后，ISSkin没有对应更新

将String改为AnsiString可以同时支持Ansi和Unicode版的Inno

一个是默认，一个是强制转换