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


最新的ISSkin为3.0,官方已经添加了对Unicode版Inno的支持!

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
版权声明: 本博客所有文章除特別声明外,均采用 CC BY 4.0 许可协议。转载请注明来源 2356 !