Inno Setup 创建带外部文件的安装程序

Share

用 INNO 制作安装程序，通常是把软件的所有文件打包（压缩）到一个安装程序文件 setup.exe。其实 INNO 也可以制作带外部文件的安装程序，也就是制作安装程序时并不把文件打包，只是在运行安装程序时才把这些外部文件（比如从光盘中）复制到软件的安装目录或者系统中的其它位置。写 [Files] 段的脚本时，只要使用标签 external 就可以做到这一点，比如：
[Files]
Source: "{src}\*.doc"; DestDir: "{app}"; Flags: external

用这种方式制作的安装包有个缺点就是文件数量多，而且文件没有被压缩，因此占用的空间大。

下面介绍另外一种制作带外部文件的安装包的方法。假设你的软件除了必需安装的文件外，还可以包括某些常用的插件（组件1）以及某些高级插件（组件2）。你希望在你的安装程序中只是打包那些必需安装的文件，而组件1和组件2则分别单独打包（压缩）为外部文件。这样做的好处是，用户可以根据自己的需要只下载安装程序以及某些组件，而你的安装程序则可以根据这些外部文件存在的情况给用户相应的选择。

这些外部文件是用 ZIP 格式压缩过的，为了不让人一看就知道是 ZIP 文件，所以将它们命名为 data1.dat、data2.dat 等等。

示例中使用的是一个简单的 ZIP 文件解压插件。当然你也可以使用其它比如支持带密码保护的 ZIP 文件的插件。另外你也可以在脚本中增加对插件外部文件进行校验的功能。

1. ; Inno Setup 脚本
   
2. ; 该示例脚本显示如何创建的带外部文件的安装程序。运行安装程序时用户可以根据外部文件存在的情况选择安装相应的组件。
   
3. ; 外部文件保存在安装程序所的目录中的子目录 data 中，外部文件是 ZIP 压缩文件，命名为 data1.dat、data2.dat 等等
   
4. ; 分别相应于组件 1、组件 2 等等。
   
5. ;
   
6. ;
   
7. 
   
8. [Setup]
   
9. AppName=组件安装示例程序
   
10. AppVerName=组件安装示例程序 1.0
    
11. DefaultDirName={pf}\_组件安装示例程序
    
12. DefaultGroupName=组件安装示例程序
    
13. 
    
14. [Messages]
    
15. ComponentsDiskSpaceMBLabel=当前的选择至少需要 [mb] MB 磁盘空间(不包括解压后组件的大小)。
    
16. 
    
17. [Files]
    
18. ; 安装临时文件：解压外部文件所需的插件 unzipw32.dll
    
19. Source: "unzipw32.dll"; DestDir: "{tmp}"; Flags: dontcopy
    
20. ; 安装运行软件所必需的文件
    
21. Source: "MyProg.exe"; DestDir: "{app}"; components: installmust
    
22. Source: "MyProg.hlp"; DestDir: "{app}"; components: installmust
    
23. 
    
24. [Components]
    
25. Name: "installmust"; Description: "主程序（必需）"; Types: compact full custom; Flags: fixed
    
26. Name: "installdata1"; Description: "组件 1 （常用插件）"; Types: full custom
    
27. Name: "installdata2"; Description: "组件 2 （高级插件）"; Types: full custom
    
28. 
    
29. [UninstallDelete]
    
30. ; 卸载时删除外部解压的文件
    
31. Type: filesandordirs; Name: "{app}\data1"
    
32. Type: filesandordirs; Name: "{app}\data2"
    
33. 
    
34. [Code]
    
35. var dummysize, size1, size2: longint;
    
36. 
    
37. // 从 unzipw32.dll 插件中要调用的函数
    
38. function FileUnzipEx(SourceZipFile, TargetDirectory, FileSpecs: pChar ): integer;
    
39. external 'FileUnzipEx@files:unzipw32.dll stdcall delayload';
    
40. 
    
41. Function UnzipSize(SourceZipFile:pChar; Var Compressed:Longint):longint;
    
42. external 'UnzipSize@files:unzipw32.dll stdcall delayload';
    
43. 
    
44. // 点击组件列表后刷新显示的内容
    
45. procedure ComponentsListOnClick(Sender: TObject);
    
46. begin
    
47. if WizardForm.ComponentsList.CHECKED[1] then
    
48.   WizardForm.ComponentsList.ITEMSUBITEM[1]:= '解压后 ' + intTOstr(size1 div 1024) + ' KB';
    
49. if not WizardForm.ComponentsList.ITEMENABLED[1] then
    
50.   WizardForm.ComponentsList.ITEMSUBITEM[1]:= '无安装数据';
    
51. if WizardForm.ComponentsList.CHECKED[2] then
    
52.   WizardForm.ComponentsList.ITEMSUBITEM[2]:= '解压后 ' + intTOstr(size2 div 1024) + ' KB';
    
53. if not WizardForm.ComponentsList.ITEMENABLED[2] then
    
54.   WizardForm.ComponentsList.ITEMSUBITEM[2]:= '无安装数据';
    
55. end;
    
56. 
    
57. // 初始化安装向导
    
58. procedure InitializeWizard();
    
59. begin
    
60. // 释放临时文件
    
61. ExtractTemporaryFile(ExpandConstant('unzipw32.dll'));
    
62. WizardForm.TYPESCOMBO.Visible:= false;
    
63. WizardForm.ComponentsList.Onclick:= @ComponentsListOnClick;
    
64. // 根据外部文件存在的情况确定哪些组件可用
    
65. if not FileExists(ExpandConstant('{src}\data\data1.dat')) then
    
66.   begin
    
67.   WizardForm.ComponentsList.ITEMENABLED[1]:= false;
    
68.   WizardForm.ComponentsList.CHECKED[1]:= false;
    
69.   WizardForm.ComponentsList.ITEMSUBITEM[1]:= '无安装数据';
    
70.   end
    
71. else
    
72.   begin
    
73.   WizardForm.ComponentsList.ITEMENABLED[1]:= true;
    
74.   WizardForm.ComponentsList.CHECKED[1]:= true;
    
75.   size1 := UnzipSize(PChar(ExpandConstant('{src}\data\data1.dat')), dummysize);
    
76.   WizardForm.ComponentsList.ITEMSUBITEM[1]:= '解压后 ' + intTOstr(size1 div 1024) + ' KB';
    
77.   end;
    
78. if not FileExists(ExpandConstant('{src}\data\data2.dat')) then
    
79.   begin
    
80.   WizardForm.ComponentsList.ITEMENABLED[2]:= false;
    
81.   WizardForm.ComponentsList.CHECKED[2]:= false;
    
82.   WizardForm.ComponentsList.ITEMSUBITEM[2]:= '无安装数据';
    
83.   end
    
84. else
    
85.   begin
    
86.   WizardForm.ComponentsList.ITEMENABLED[2]:= true;
    
87.   WizardForm.ComponentsList.CHECKED[2]:= true;
    
88.   size2 := UnzipSize(PChar(ExpandConstant('{src}\data\data2.dat')), dummysize);
    
89.   WizardForm.ComponentsList.ITEMSUBITEM[2]:= '解压后 ' + intTOstr(size2 div 1024) + ' KB';
    
90.   end;
    
91. end;
    
92. 
    
93. // 根据组件选择的情况从外部文件中解压组件到指定的位置，比如子目录 {app}\data1 和 {app}\data2
    
94. procedure CurStepChanged(CurStep: TSetupStep);
    
95. var n: integer;
    
96. begin
    
97. if CurStep=ssInstall then
    
98.   begin
    
99.   if IsComponentSelected('installdata1') then
    
100.     n:= FileUnzipEx(PChar(ExpandConstant('{src}\data\data1.dat')), PChar(ExpandConstant('{app}\data1')), '*.*');
     
101.   if IsComponentSelected('installdata2') then
     
102.     n:= FileUnzipEx(PChar(ExpandConstant('{src}\data\data2.dat')), PChar(ExpandConstant('{app}\data2')), '*.*');
     
103.   end;
     
104. end;

复制代码