如何创建带外部文件的安装程序

admin

1. ; Inno Setup 脚本
   
2. ; 该示例脚本显示如何创建的带外部文件的安装程序。运行安装程序时用户可以根据外部文件存在的情况选择安装相应的组件。
   
3. ; 外部文件保存在安装程序所的目录中的子目录 data 中，外部文件是 ZIP 压缩文件，命名为 data1.dat、data2.dat 等等
   
4. ; 分别相应于组件 1、组件 2 等等。
   
5. ;
   
6. ; 汉化新世纪 gnatix 于 2006.09.14
   
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;

复制代码