为了帮助开发者们实现这一目标，VCL Styles Utils 项目开发了一款插件：VclStylesinno.dll，它可以为由 Inno Setup 创建的安装程序提供皮肤功能。尽管该插件本身大小约为 1.6MB，但在将其包含（且压缩）进安装脚本后，最终只会增加大约 490KB 的大小。本文大眼仔旭将详细介绍如何使用这款插件来美化您的安装程序。

VCL Styles Utils

如何使用 VclStylesinno.dll

要使用该插件，您需要按照以下步骤操作：

1. 添加 VclStylesinno.dll 和 VCL 样式文件

在您的 Inno Setup 脚本的 [Files] 部分添加 VclStylesinno.dll 文件以及您想要使用的 VCL 样式文件。确保这些文件不会被复制到目标目录中。

1
2
3
[Files]

Source: ..\VclStylesinno.dll; DestDir: {app}; Flags: dontcopy

Source: ..\Styles\Amakrits.vsf; DestDir: {app}; Flags: dontcopy

2. 导入 LoadVCLStyle 和 UnLoadVCLStyles 函数

根据您使用的 Inno Setup 版本（Unicode 或 Ansi），导入相应的 LoadVCLStyle 函数，并导入 UnLoadVCLStyles 函数。这些函数用于加载和卸载 VCL 样式。

1
2
3
4
5
6
7
8
[Code]

// 从VclStylesInno.DLL 导入 LoadVCLStyle 函数

procedure LoadVCLStyle(VClStyleFile: String); 

external 'LoadVCLStyleW@files:VclStylesinno.dll stdcall';



// 从VclStylesInno.DLL 导入 UnLoadVCLStyles 函数

procedure UnLoadVCLStyles; 

external 'UnLoadVCLStyles@files:VclStylesinno.dll stdcall';

3. 在 InitializeSetup 函数中加载样式

在 InitializeSetup 函数中提取要使用的样式文件，并调用 LoadVCLStyle 方法，传入样式文件的名称。

1
2
3
4
5
6
function InitializeSetup(): Boolean;

begin

  ExtractTemporaryFile('Amakrits.vsf');

  LoadVCLStyle(ExpandConstant('{tmp}\Amakrits.vsf'));

  Result := True;

end;

4. 在 DeinitializeSetup 函数中卸载样式

在安装程序即将结束时，在 DeinitializeSetup 函数中调用 UnLoadVCLStyles 方法来卸载已加载的样式。

1
2
3
4
procedure DeinitializeSetup();

begin

  UnLoadVCLStyles;

end;

示例脚本

以下是完整的示例脚本，展示了如何集成 VclStylesinno.dll 以应用 VCL 样式。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
[Files]

Source: ..\VclStylesinno.dll; DestDir: {app}; Flags: dontcopy

Source: ..\Styles\Amakrits.vsf; DestDir: {app}; Flags: dontcopy



[Code]

// 从VclStylesInno.DLL 导入 LoadVCLStyle 函数

procedure LoadVCLStyle(VClStyleFile: String); 

external 'LoadVCLStyleW@files:VclStylesinno.dll stdcall';



// 从VclStylesInno.DLL 导入 UnLoadVCLStyles 函数

procedure UnLoadVCLStyles; 

external 'UnLoadVCLStyles@files:VclStylesinno.dll stdcall';



function InitializeSetup(): Boolean;

begin

  ExtractTemporaryFile('Amakrits.vsf');

  LoadVCLStyle(ExpandConstant('{tmp}\Amakrits.vsf'));

  Result := True;

end;



procedure DeinitializeSetup();

begin

  UnLoadVCLStyles;

end;

源代码和安装程序

该项目的源代码和安装程序可在 GitHub 上获取。

https://github.com/RRUZ/vcl-styles-plugins

如您有任何意见或反馈，都欢迎随时提出。这将有助于项目的持续改进和发展。