Inno 多目录选择安装

Share

1. [Setup]
   
2. ShowLanguageDialog=yes
   
3. AppCopyright=版权所有(C) 2005, BitWorld Inc.
   
4. AppName={cm:License} {cm:Packagename}
   
5. AppVerName={cm:License} {cm:Packagename} {cm:Packagever}
   
6. LicenseFile=
   
7. OutputDir=E:\install
   
8. UninstallFilesDir={code:getmingwdir}\uninstall
   
9. ExtraDiskSpaceRequired=0
   
10. UserInfoPage=false
    
11. VersionInfoVersion=2.0
    
12. VersionInfoCompany=BitWorld Inc.
    
13. VersionInfoDescription=BitWorld
    
14. EnableDirDoesntExistWarning=true
    
15. AppID={{007F4590-89DE-4F87-9608-10F07CEFBBE9}
    
16. LanguageDetectionMethod=uilanguage
    
17. UsePreviousSetupType=true
    
18. DisableStartupPrompt=true
    
19. DirExistsWarning=no
    
20. WizardImageFile=D:\Program Files\Inno Setup 5\WizModernImage-IS.bmp
    
21. WizardSmallImageFile=D:\Program Files\Inno Setup 5\WizModernSmallImage-IS.bmp
    
22. OutputBaseFilename=Binutils-2.15-MingW32-Msys-setup
    
23. VersionInfoTextVersion=2.0
    
24. AppPublisher=heromyth
    
25. AppPublisherURL=http://www.donews.net/heromyth
    
26. AppVersion=1.0
    
27. AppContact=zxpmyth@yahoo.com.cn
    
28. UsePreviousTasks=false
    
29. UsePreviousAppDir=false
    
30. AllowRootDirectory=true
    
31. CreateAppDir=false
    
32. 
    
33. [Languages]
    
34. Name: en; MessagesFile: compiler:Languages\English.isl; LicenseFile: E:\install\gnu-readme-en-mingw32.txt
    
35. Name: chs; MessagesFile: compiler:Languages\ChineseSimp-11-5.1.0.isl; LicenseFile: E:\install\gnu-readme-zh-mingw32.txt
    
36. [Messages]
    
37. en.BeveledLabel=Created by Heromyth
    
38. chs.BeveledLabel=由张雪平创建
    
39. [Components]
    
40. Name: bininstall; Description: {cm:installBinFile}; Types: full compact; Flags: disablenouninstallwarning
    
41. Name: libinstall; Description: {cm:installLibFile}; Types: full; Flags: disablenouninstallwarning; Languages:
    
42. [_ISTool]
    
43. OutputExeFilename=E:\install\Binutils-2.15-MingW32-Msys-setup.exe
    
44. [Files]
    
45. Source: dd\vv\logo_board.gif; DestDir: {code:getmingwdir}\vv\; Components: libinstall
    
46. Source: dd\33\logo_board.jpg; DestDir: {code:getmsysdir}\33\; Components: bininstall
    
47. Source: dd\33\cppunit-1.10.2.tar.gz; DestDir: {code:getmsysdir}\33\; Components: bininstall
    
48. Source: dd\ttt.bmp; DestDir: {code:getmsysdir}; Components: bininstall
    
49. [Dirs]
    
50. Name: {code:getmingwdir}\vv; Components: libinstall
    
51. Name: {code:getmsysdir}\33; Components: bininstall
    
52. 
    
53. [CustomMessages]
    
54. License=GNU
    
55. Packagename=Binutils
    
56. Packagever=2.15
    
57. 
    
58. en.installBinFile=install EXE files
    
59. chs.installBinFile=安装可执行文件
    
60. en.installLibFile=install LIB files
    
61. chs.installLibFile=安装库文件
    
62. 
    
63. en.choicedirCaption=Select Destination Location
    
64. chs.choicedirCaption=选择目标位置
    
65. en.choicedirDescription=Where should %1 be installed?
    
66. chs.choicedirDescription=你想将 %1 安装在什么地方？
    
67. en.SelectDirLabel=Setup will install %1 into the following folder.
    
68. chs.SelectDirLabel=安装程序将安装 %1 到下列文件夹中。
    
69. en.choicedir=Choice for installation directory of %1
    
70. chs.choicedir=选择%1的安装目录
    
71. 
    
72. en.SelectDirBrowseLabel=To continue, click Next. If you would like to select a different folder, click Browse.
    
73. chs.SelectDirBrowseLabel=单击“下一步”继续。如果您想选择其它文件夹，请单击“浏览”。
    
74. en.Button1Browse=&Browse...
    
75. chs.Button1Browse=浏览(&B)...
    
76. en.Button2Browse=B&rowse...
    
77. chs.Button2Browse=浏览(&R)...
    
78. 
    
79. en.msyslabel=(store something that run in Shell)
    
80. chs.msyslabel=(主要用于存放一些需要在Shell环境里使用程序及数据)
    
81. en.mingwlabel=(store something that run in win32 with mingw)
    
82. chs.mingwlabel=(主要用于存放一些需要在win32模式下使用的头文件和库)
    
83. 
    
84. en.installedDir=installation directory of %1
    
85. chs.installedDir=%1安装目录
    
86. [Code]
    
87. //Source: dd\cppunit-docs-1.10.2.tar.gz; DestDir: {code:getmsysdir}; Components: bininstall
    
88. //Source: dd\vv\headbg.jpg; DestDir: {code:getmingwdir}\vv\; Components: libinstall
    
89. var
    
90. Mingwdir: TLabel;
    
91. Msysdir: TLabel;
    
92. BitmapImage1: TBitmapImage;
    
93. Label1: TLabel;
    
94. Label2: TLabel;
    
95. Edit1: TEdit;
    
96. Edit2: TEdit;
    
97. Button1: TButton;
    
98. Button2: TButton;
    
99. NewStaticText1: TNewStaticText;
    
100. NewStaticText2: TNewStaticText;
     
101. 
     
102. procedure ChoseMingwFoldersClick(Sender: TObject);
     
103. var
     
104. choicedDIR:String;
     
105. begin
     
106. if BrowseForFolder(ExpandConstant('{cm:choicedir,Mingw}'),choicedDIR,True) then
     
107.    Edit1.Text := choicedDIR;
     
108. end;
     
109. 
     
110. procedure ChoseMsysFoldersClick(Sender: TObject);
     
111. var
     
112. choicedDIR:String;
     
113. begin
     
114. // if BrowseForFolder('选择Msys的安装目录',choicedDIR,True) then
     
115. if BrowseForFolder(ExpandConstant('{cm:choicedir,Msys}'),choicedDIR,True) then
     
116.    Edit2.Text := choicedDIR+'\1.0';
     
117. end;
     
118. 
     
119. procedure choicedir_Activate(Page: TWizardPage);
     
120. begin
     
121. end;
     
122. 
     
123. function choicedir_ShouldSkipPage(Page: TWizardPage): Boolean;
     
124. begin
     
125. Result := False;
     
126. end;
     
127. 
     
128. function choicedir_BackButtonClick(Page: TWizardPage): Boolean;
     
129. begin
     
130. Result := True;
     
131. end;
     
132. 
     
133. function choicedir_NextButtonClick(Page: TWizardPage): Boolean;
     
134. begin
     
135. Result := True;
     
136. end;
     
137. 
     
138. procedure choicedir_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);
     
139. begin
     
140. end;
     
141. 
     
142. function choicedir_CreatePage(PreviousPageId: Integer): Integer;
     
143. var
     
144. Page: TWizardPage;
     
145. begin
     
146. Page := CreateCustomPage(
     
147.     PreviousPageId,
     
148.     ExpandConstant('{cm:choicedirCaption}'),
     
149.     ExpandConstant('{cm:choicedirDescription,{cm:Packagename}}')
     
150. );
     
151. 
     
152. { Mingwdir }
     
153. Mingwdir := TLabel.Create(Page);
     
154. with Mingwdir do
     
155. begin
     
156.     Parent := Page.Surface;
     
157.     Left := ScaleX(0);
     
158.     Top := ScaleY(88);
     
159.     Width := ScaleX(24);
     
160.     Height := ScaleY(16);
     
161. //    Caption := 'Mingw安装目录'+ExpandConstant('{cm:NameAndVersion,fdd,1.0}') ;
     
162.     Caption := ExpandConstant('{cm:installedDir,Mingw}') ;
     
163.     Font.Color := -16777208;
     
164.     Font.Height := ScaleY(-13);
     
165.     Font.Name := 'Tahoma';
     
166.     Font.Style := [fsBold];
     
167. end;
     
168. 
     
169. { Msysdir }
     
170. Msysdir := TLabel.Create(Page);
     
171. with Msysdir do
     
172. begin
     
173.     Parent := Page.Surface;
     
174.     Left := ScaleX(0);
     
175.     Top := ScaleY(160);
     
176.     Width := ScaleX(24);
     
177.     Height := ScaleY(16);
     
178.     Caption := ExpandConstant('{cm:installedDir,Msys}') ;
     
179.     Font.Color := -16777208;
     
180.     Font.Height := ScaleY(-13);
     
181.     Font.Name := 'Tahoma';
     
182.     Font.Style := [fsBold];
     
183. end;
     
184. 
     
185. { BitmapImage1 }
     
186. BitmapImage1 := TBitmapImage.Create(Page);
     
187. with BitmapImage1 do
     
188. begin
     
189.     Parent := Page.Surface;
     
190.     Left := ScaleX(8);
     
191.     Top := ScaleY(8);
     
192.     Width := ScaleX(57);
     
193.     Height := ScaleY(41);
     
194. //Bitmap.LoadFromFile(BitmapFileName);
     
195. end;
     
196. 
     
197. { Label1 }
     
198. Label1 := TLabel.Create(Page);
     
199. with Label1 do
     
200. begin
     
201.     Parent := Page.Surface;
     
202.     Left := ScaleX(16);
     
203.     Top := ScaleY(136);
     
204.     Width := ScaleX(18);
     
205.     Height := ScaleY(13);
     
206. //    Caption := '(主要用于存放一些需要在win32模式下使用的头文件和库)';
     
207.     Caption := ExpandConstant('{cm:mingwlabel}');
     
208.     Color := -16777206;
     
209.     Font.Color := 32768;
     
210.     Font.Height := ScaleY(-12);
     
211.     Font.Name := 'Tahoma';
     
212. end;
     
213. 
     
214. { Label2 }
     
215. Label2 := TLabel.Create(Page);
     
216. with Label2 do
     
217. begin
     
218.     Parent := Page.Surface;
     
219.     Left := ScaleX(16);
     
220.     Top := ScaleY(216);
     
221.     Width := ScaleX(18);
     
222.     Height := ScaleY(13);
     
223. //    Caption := '(主要用于存放一些需要在Shell环境里使用程序及数据)';
     
224.     Caption := ExpandConstant('{cm:msyslabel}');
     
225.     Font.Color := 32768;
     
226.     Font.Height := ScaleY(-12);
     
227.     Font.Name := 'Tahoma';
     
228. end;
     
229. 
     
230. { Edit1 }
     
231. Edit1 := TEdit.Create(Page);
     
232. with Edit1 do
     
233. begin
     
234.     Parent := Page.Surface;
     
235.     Left := ScaleX(16);
     
236.     Top := ScaleY(112);
     
237.     Width := ScaleX(313);
     
238.     Height := ScaleY(21);
     
239.     TabOrder := 0;
     
240.     Text := 'C:\mingw';
     
241. end;
     
242. 
     
243. { Edit2 }
     
244. Edit2 := TEdit.Create(Page);
     
245. with Edit2 do
     
246. begin
     
247.     Parent := Page.Surface;
     
248.     Left := ScaleX(16);
     
249.     Top := ScaleY(184);
     
250.     Width := ScaleX(313);
     
251.     Height := ScaleY(21);
     
252.     TabOrder := 1;
     
253.     Text := 'C:\MSYS\1.0';
     
254. end;
     
255. 
     
256. { Button1 }
     
257. Button1 := TButton.Create(Page);
     
258. with Button1 do
     
259. begin
     
260.     Parent := Page.Surface;
     
261.     Left := ScaleX(336);
     
262.     Top := ScaleY(112);
     
263.     Width := ScaleX(75);
     
264.     Height := ScaleY(23);
     
265.     Caption :=ExpandConstant('{cm:Button1Browse}');
     
266.     TabOrder := 2;
     
267.     OnClick := @ChoseMingwFoldersClick;
     
268. end;
     
269. 
     
270. { Button2 }
     
271. Button2 := TButton.Create(Page);
     
272. with Button2 do
     
273. begin
     
274.     Parent := Page.Surface;
     
275.     Left := ScaleX(336);
     
276.     Top := ScaleY(184);
     
277.     Width := ScaleX(75);
     
278.     Height := ScaleY(23);
     
279.     Caption := ExpandConstant('{cm:Button2Browse}');
     
280.     TabOrder := 3;
     
281.     OnClick := @ChoseMsysFoldersClick;
     
282. end;
     
283. 
     
284. { NewStaticText1 }
     
285. NewStaticText1 := TNewStaticText.Create(Page);
     
286. with NewStaticText1 do
     
287. begin
     
288.     Parent := Page.Surface;
     
289.     Left := ScaleX(16);
     
290.     Top := ScaleY(16);
     
291.     Width := ScaleX(22);
     
292.     Height := ScaleY(17);
     
293.     Caption := ExpandConstant('{cm:SelectDirLabel,{cm:Packagename}}');
     
294.     Font.Color := -16777208;
     
295.     Font.Height := ScaleY(-13);
     
296.     TabOrder := 4;
     
297. end;
     
298. 
     
299. { NewStaticText2 }
     
300. NewStaticText2 := TNewStaticText.Create(Page);
     
301. with NewStaticText2 do
     
302. begin
     
303.     Parent := Page.Surface;
     
304.     Left := ScaleX(16);
     
305.     Top := ScaleY(50);
     
306.     Width := ScaleX(22);
     
307.     Height := ScaleY(17);
     
308. //    Caption := '单击“下一步”继续。如果你想选择其它文件夹，请单击“浏览”。';
     
309.     Caption := ExpandConstant('{cm:SelectDirBrowseLabel,{cm:Packagename}}');
     
310.     Font.Color := -16777208;
     
311. end;
     
312. 
     
313. 
     
314. with Page do
     
315. begin
     
316.     OnActivate := @choicedir_Activate;
     
317.     OnShouldSkipPage := @choicedir_ShouldSkipPage;
     
318.     OnBackButtonClick := @choicedir_BackButtonClick;
     
319.     OnNextButtonClick := @choicedir_NextButtonClick;
     
320.     OnCancelButtonClick := @choicedir_CancelButtonClick;
     
321. end;
     
322. 
     
323. Result := Page.ID;
     
324. end;
     
325. 
     
326. function getmingwdir(Param: String): String;
     
327. begin
     
328. Result := Edit1.Text;
     
329. end;
     
330. 
     
331. function getmsysdir(Param: String): String;
     
332. begin
     
333. Result := Edit2.Text;
     
334. end;
     
335. 
     
336. procedure InitializeWizard();
     
337. begin
     
338. choicedir_CreatePage(wpUserInfo);
     
339. end;

复制代码