Inno setup极点中文脚本

Share

1. ; --------------------------------------------------------------------------------
   
2. ; 极点中文输入平台集成版安装脚本
   
3. ; ---------------------------------------------------------------------------------
   
4. 
   
5. ; 编译器要求: Inno Setup 5 与 ISPP.
   
6. 
   
7. ;#define debugmode
   
8. 
   
9. ; 最近更新:
   
10. #define LastUpdate "2005.03.10"
    
11. 
    
12. #define SetupPackMajorVersion "4"
    
13. #define SetupPackVersion SetupPackMajorVersion + "." + LastUpdate
    
14. 
    
15. #define hasMutex
    
16. 
    
17. #define MajorVersion "4"
    
18. #define DateVersion ".2.3.8"
    
19. #define AppName "极点中文输入平台"
    
20. #define AppShortName "极点中文"
    
21. #define ReleaseType "4.2正式版"
    
22. #define AboutInfo "秋枫 @ [五笔爱好者]"
    
23. #define SupportURL "http://www.freewb.net/"
    
24. 
    
25. #define SetupPackType "集成版"
    
26. #define OutputBase "Freewb.42Final.Deluxe"
    
27. 
    
28. ;; 码表宏处理
    
29. ;; 下面的一些预处理定义方便增减集成版中的mb组件以减少代码修改
    
30. ;; 如需要增减码表只需修改mbcount并增加相应的数组元素
    
31. #define i
    
32. #define mbcount 6
    
33. #dim mbIDArray[mbcount] ;码表的英文唯一标识符，用于脚本内部，不应与其它重复
    
34. #dim mbNameArray[mbcount] ;码表中文名称, 也是码表在mb目录下的文件夹名
    
35. #dim mbVerArray[mbcount] ;码表版本
    
36. #dim mbSizeArray[mbcount] ;码表词条数大小
    
37. 
    
38. #expr i=0
    
39. #define mbIDArray[i] "add_wozy"
    
40. #define mbNameArray[i] "五笔86[窝子极爽词库]"
    
41. #define mbVerArray[i] "5.0版"
    
42. #define mbSizeArray[i] "约6.0万词"
    
43. 
    
44. #expr i++
    
45. #define mbIDArray[i] "add_mb86wonderland"
    
46. #define mbNameArray[i] "五笔86[奇境简优词库]"
    
47. #define mbVerArray[i] "1.3版"
    
48. #define mbSizeArray[i] "约1.7万词"
    
49. 
    
50. #expr i++
    
51. #define mbIDArray[i] "add_mb86jyj"
    
52. #define mbNameArray[i] "五笔86[晋一剑词库]"
    
53. #define mbVerArray[i] "1.2版"
    
54. #define mbSizeArray[i] "约4.2万词"
    
55. 
    
56. #expr i++
    
57. #define mbIDArray[i] "add_mb86wm"
    
58. #define mbNameArray[i] "标准王码86"
    
59. #define mbVerArray[i] "原版"
    
60. #define mbSizeArray[i] "约1.4万词"
    
61. 
    
62. #expr i++
    
63. #define mbIDArray[i] "add_mb98"
    
64. #define mbNameArray[i] "五笔98[沧海词库]"
    
65. #define mbVerArray[i] "SeaLaugh-1.0版"
    
66. #define mbSizeArray[i] "约4.5万词"
    
67. 
    
68. #expr i++
    
69. #define mbIDArray[i] "add_mb2b"
    
70. #define mbNameArray[i] "二笔标版"
    
71. #define mbVerArray[i] "0425版"
    
72. #define mbSizeArray[i] "约5.1万词"
    
73. 
    
74. [Setup]
    
75. OutputBaseFilename={#OutputBase}.{#SetupPackVersion}
    
76. 
    
77. VersionInfoVersion={#SetupPackVersion}
    
78. VersionInfoDescri ption={#AppName} {#SetupPackType}
    
79. VersionInfoTextVersion=极点内核版本: {#MajorVersion}{#DateVersion}
    
80. AppPublisher={#AboutInfo}
    
81. AppVersion={#SetupPackVersion}
    
82. AppPublisherURL={#SupportURL}
    
83. AppContact=秋枫<arcqiufeng@hotmail.com>
    
84. 
    
85. #if defined(debugmode)
    
86. Compression=none
    
87. #else
    
88. Compression=lzma/ultra
    
89. SolidCompression=true
    
90. #endif
    
91. 
    
92. AppName={#AppName}
    
93. AppVerName={#AppName} {#ReleaseType} {#MajorVersion}{#DateVersion}
    
94. DefaultDirName={pf}\freewb
    
95. PrivilegesRequired=admin
    
96. DefaultGroupName=极点中文
    
97. LicenseFile=license.rtf
    
98. RestartIfNeededByRun=true
    
99. WizardImageFile=side5.bmp
    
100. WizardSmallImageFile=WizModernSmallImage10.bmp
     
101. WizardImageStretch=true
     
102. ShowTasksTreeLines=true
     
103. ; AppMutex=mutex_freeime,Global\mutex_freeime
     
104. InfoBeforeFile=info.txt
     
105. AllowNoIcons=yes
     
106. 
     
107. [Files]
     
108. ;;; ***** main *****
     
109. Source: freewb\*.*; DestDir: {app}; Flags: restartreplace uninsrestartdelete ignoreversion; Components: Main
     
110. Source: freewb\freewb.ime; DestDir: {sys}; Flags: restartreplace uninsrestartdelete ignoreversion; Components: Main
     
111. Source: freewb\freewb.htm; DestDir: {app}; Flags: isreadme ignoreversion; Components: Main
     
112. Source: freewb\skin\*.*; DestDir: {app}\skin; Flags: recursesubdirs restartreplace; Components: Main
     
113. Source: freewb\background\*.*; DestDir: {app}\background; Flags: recursesubdirs restartreplace; Components: Main
     
114. Source: freewb\Internet Shortcuts\*.*; DestDir: {app}\Internet Shortcuts; Components: Main
     
115. 
     
116. ;;; 安装程序中用的图标
     
117. Source: freewb\ui_icon\*.*; DestDir: {tmp}; flags: dontcopy
     
118. 
     
119. ;;; ***** 码表 *****
     
120. 
     
121. ;;; ~~~~~~~ 标准码表
     
122. Source: freewb\mb\default\attach.mb; DestDir: {app}\mb\default; Components: Main
     
123. Source: freewb\mb\default\freewb.dat; DestDir: {app}\mb\default; Components: Main
     
124. Source: freewb\mb\default\freewb.mb; DestDir: {app}\mb\default; Components: Main
     
125. Source: freewb\mb\default\freewb.usr; DestDir: {app}\mb\default; Components: Main; Flags: onlyifdoesntexist
     
126. Source: freewb\mb\default\freewbcht.mb; DestDir: {app}\mb\default; Components: Main
     
127. Source: freewb\mb\default\quick.mb; DestDir: {app}\mb\default; Components: Main
     
128. Source: freewb\mb\default\smart.mb; DestDir: {app}\mb\default; Components: Main
     
129. Source: freewb\mb\default\user.ini; DestDir: {app}\mb\default; Components: Main
     
130. 
     
131. ;;; ~~~~~~~ 扩展码表
     
132. #sub AddMbFiles
     
133. Source: freewb\add_mb\{#mbNameArray[i]}\attach.mb; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}; Flags: skipifsourcedoesntexist
     
134. Source: freewb\add_mb\{#mbNameArray[i]}\freewb.dat; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}
     
135. Source: freewb\add_mb\{#mbNameArray[i]}\freewb.mb; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}
     
136. Source: freewb\add_mb\{#mbNameArray[i]}\freewb.usr; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}; Flags: onlyifdoesntexist
     
137. Source: freewb\add_mb\{#mbNameArray[i]}\freewbcht.mb; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}; Flags: skipifsourcedoesntexist
     
138. Source: freewb\add_mb\{#mbNameArray[i]}\quick.mb; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}; Flags: skipifsourcedoesntexist
     
139. Source: freewb\add_mb\{#mbNameArray[i]}\smart.mb; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}; Flags: skipifsourcedoesntexist
     
140. Source: freewb\add_mb\{#mbNameArray[i]}\user.ini; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]}; Flags: onlyifdoesntexist
     
141. #endsub
     
142. 
     
143. #for {i = 0; i < mbcount; i++} AddMbFiles
     
144. 
     
145. ;;; ***** 拼音词库 *****
     
146. Source: freewb\attach\attach.mb; DestDir: {app}\mb\default; Components: pinyin
     
147. 
     
148. #sub AddPymbFiles
     
149. Source: freewb\attach\attach.mb; DestDir: {app}\mb\{#mbNameArray[i]}; Components: add_mb\{#mbIDArray[i]} and pinyin
     
150. #endsub
     
151. 
     
152. #for {i = 0; i < mbcount; i++} AddPymbFiles
     
153. 
     
154. ;;; ***** 扩充皮肤与背景图 *****
     
155. Source: freewb\add_skin\*.*; DestDir: {app}\skin; Components: add_skin; Flags: recursesubdirs
     
156. Source: freewb\add_background\*.*; DestDir: {app}\background; Components: add_skin; Flags: recursesubdirs
     
157. 
     
158. ;;; ***** dtool *******
     
159. Source: freewb\dtool\dtool.exe; DestDir: {app}\dtool; Flags: restartreplace; Components: dtool
     
160. 
     
161. ;;; ***** diy setup *******
     
162. Source: freewb\diysetup\Jd_DIY_Setup_Wizard.exe; DestDir: {app}; Flags: ignoreversion; Components: diysetup
     
163. 
     
164. ;;; ***** BigPayne’s jdtools *****
     
165. Source: freewb\BigPayne\*.*; DestDir: {app}\BigPayne; Components: BigPayne; Flags: ignoreversion
     
166. 
     
167. ;;; ***** Silence’s imetools *****
     
168. Source: freewb\imetool\*.*; DestDir: {app}\imetool; Components: imetools
     
169. Source: freewb\imetool\imetool.exe; DestDir: {sys}; Components: imetools
     
170. 
     
171. [Icons]
     
172. Name: {group}\极点目录; Filename: {app}
     
173. Name: {group}\极点配置文件; Filename: {app}\freewb.ini
     
174. Name: {group}\卸载{#AppName}; Filename: {uninstallexe}
     
175. 
     
176. Name: {group}\快速入门\极点中文快速入门; Filename: {app}\freewb.htm
     
177. Name: {group}\快速入门\快捷键位表; Filename: {app}\Internet shortcuts\ShortcutKeys.url
     
178. Name: {group}\快速入门\快捷命令表; Filename: {app}\Internet shortcuts\ShortcutCommands.url
     
179. Name: {group}\快速入门\极点常见问题及解答; Filename: {app}\Internet shortcuts\FAQ.url
     
180. Name: {group}\快速入门\极点应用技巧; Filename: {app}\Internet shortcuts\Skill.url
     
181. Name: {group}\快速入门\极点帮助文档; Filename: {app}\freewb.chm
     
182. Name: {group}\链接\访问极点中文主页; Filename: {app}\Internet shortcuts\极点中文主页.url
     
183. Name: {group}\链接\访问五笔爱好者论坛; Filename: {app}\Internet shortcuts\五笔爱好者论坛.url
     
184. 
     
185. Name: {group}\极点工具箱2.2; Filename: {app}\dtool\dtool.exe; Components: dtool
     
186. Name: {group}\输入法调整工具; Filename: {app}\imetool\imetool.exe; WorkingDir: {app}\imetool; Components: imetools
     
187. Name: {group}\极点便携定制向导; Filename: {app}\Jd_DIY_Setup_Wizard.exe; Components: diysetup
     
188. Name: {group}\词库信息统计工具; Filename: {app}\BigPayne\mbInfo.xls; Components: BigPayne
     
189. 
     
190. [InstallDelete]
     
191. Name: {sys}\freewb.ime; Type: files
     
192. [UninstallDelete]
     
193. Name: {app}\Info.ini; Type: files
     
194. Name: {sys}\freewb.ime; Type: files
     
195. Name: {sys}\freewbcode.dll; Type: files
     
196. Name: {app}\Internet shortcuts; Type: filesandordirs
     
197. Name: {app}\background\Thumbs.db; Type: files
     
198. Name: {app}\background; Type: dirifempty
     
199. 
     
200. [Run]
     
201. ;Filename: {app}\registry.exe
     
202. Filename: {app}\imetool\imetool.exe; Workingdir: {app}\imetool; Descri ption: 运行输入法调整工具; Flags: postinstall nowait; Components: imetools
     
203. 
     
204. [UninstallRun]
     
205. Filename: {app}\unInstallIME.exe; Parameters: " /c freewb.ime"; RunOnceId: UnloadKeyboardLayout
     
206. 
     
207. [Types]
     
208. Name: typical; Descri ption: 典型安装
     
209. Name: full; Descri ption: 完全安装
     
210. Name: compact; Descri ption: 最小安装
     
211. Name: custom; Descri ption: 自定义安装; Flags: iscustom
     
212. 
     
213. [Components]
     
214. Name: Main; Descri ption: 主程序文件（含默认五笔86码表及皮肤背景）; Flags: fixed; Types: custom compact full typical
     
215. Name: dtool; Descri ption: 极点工具箱2.2; Types: full typical
     
216. Name: diysetup; Descri ption: 极点便携定制向导; Types: full typical
     
217. Name: add_mb; Descri ption: 词库与码表; Types: full
     
218. 
     
219. #sub AddmbComponents
     
220. Name: add_mb\{#mbIDArray[i]}; Descri ption: {#mbNameArray[i]}-{#mbVerArray[i]}({#mbSizeArray[i]}); Types: full
     
221. #endsub
     
222. 
     
223. #for {i = 0; i < mbcount; i++} AddmbComponents
     
224. 
     
225. Name: add_skin; Descri ption: 附加的背景图与皮肤; Types: full typical
     
226. Name: imetools; Descri ption: 输入法调整工具[Silence]; Types: full typical
     
227. Name: pinyin; Descri ption: 22万词条拼音词库; Types: full
     
228. Name: BigPayne; Descri ption: 词库信息统计工具[BigPayne]; Types: full
     
229. 
     
230. [Languages]
     
231. Name: Simplified_Chinese; MessagesFile: Simple Chinese.isl
     
232. 
     
233. [Tasks]
     
234. Name: SetDefaultMB; Descri ption: 指定默认码表与词库，如果不指定默认码表及词库将使用极点默认码表; Components: add_mb; Flags: unchecked
     
235. #sub AddMbTasks ; 此处借用码表文件夹名作为Task名
     
236. Name: SetDefaultMB\{#mbIDArray[i]}; Descri ption: {#mbNameArray[i]}-{#mbVerArray[i]}({#mbSizeArray[i]}); Components: add_mb\{#mbIDArray[i]}; Flags: unchecked exclusive
     
237. #endsub
     
238. ; 循环加入任务
     
239. #for {i = 0; i < mbcount; i++} AddMbTasks
     
240. 
     
241. [Messages]
     
242. WelcomeLabel2=本程序将安装 [name/ver] 到您的计算机中。%n%n强烈建议您在继续安装之前关闭其他所有正在运行的程序，以避免安装过程中可能产生的相互冲突。%n%n★ 安装包版本: {#SetupPackType} {#SetupPackVersion}%n★ {#AppShortName}版本: {#ReleaseType} {#MajorVersion}{#DateVersion}
     
243. BeveledLabel={#AppShortName}{#SetupPackType}
     
244. FinishedRestartLabel=由于原来版本的部分 [name] 核心文件正在使用中，需要重启计算机才能完成更新。要最后完成 [name] 的安装，必须重新启动计算机。%n%n是否立即重新启动？
     
245. FinishedRestartMessage=由于原来版本的部分 [name] 核心文件正在使用中，需要重启计算机才能完成更新。要最后完成 [name] 的安装，必须重新启动计算机。%n%n是否立即重新启动？
     
246. AboutSetupNote={#AppName} 主页: http://www.freewb.net/%n五笔爱好者 主页: http://www.wbfans.com/ %n%n秋枫@[五笔爱好者]: arcqiufeng@hotmail.com
     
247. 
     
248. [Registry]
     
249. Root: HKLM; Subkey: SOFTWARE\极点中文; ValueType: string; ValueName: 系统目录; ValueData: {app}\; Flags: uninsdeletekeyifempty uninsdeletevalue
     
250. [code]
     
251. const
     
252. DI_NORMAL = 3;
     
253. var
     
254. InstalledWarningPage, RunningWarningPage: TWizardPage;
     
255. InstalledCheckBox, RunningCheckBox: TCheckBox;
     
256. 
     
257. function ImmInstallIME(lpszIMEFileName, lpszLayoutText: String): LongInt;
     
258. external ’ImmInstallIMEA@imm32.dll stdcall’;
     
259. 
     
260. function GetModuleHandle(lpModuleName: LongInt): LongInt;
     
261. external ’GetModuleHandleA@kernel32.dll stdcall’;
     
262. function ExtractIcon(hInst: LongInt; lpszExeFileName: PChar; nIconIndex: LongInt): LongInt;
     
263. external ’ExtractIconA@shell32.dll stdcall’;
     
264. function DrawIconEx(hdc: LongInt; xLeft, yTop: Integer; hIcon: LongInt; cxWidth, cyWidth: Integer; istepIfAniCur: LongInt; hbrFlickerFreeDraw, diFlags: LongInt): LongInt;
     
265. external ’DrawIconEx@user32.dll stdcall’;
     
266. function DestroyIcon(hIcon: LongInt): LongInt;
     
267. external ’DestroyIcon@user32.dll stdcall’;
     
268. 
     
269. procedure CurPageChanged(CurPageID: Integer);
     
270. var i: LongInt;
     
271. begin
     
272. if (CurPageID = InstalledWarningPage.ID) then
     
273. WizardForm.NextButton.Enabled := InstalledCheckBox.Checked;
     
274. 
     
275. if (CurPageID = RunningWarningPage.ID) then
     
276. WizardForm.NextButton.Enabled := RunningCheckBox.Checked;
     
277. 
     
278. if (CurPageID = wpFinished) then
     
279. begin
     
280. // 注册输入法
     
281. // ------------------------------------------
     
282. if usingWinNT then
     
283. i:=ImmInstallIME(expandConstant(’{sys}\freewb.ime’),’中文 (简体) - 极点中文’)
     
284. else
     
285. i:=ImmInstallIME(expandConstant(’{sys}\freewb.ime’),’极点中文’);
     
286. 
     
287. if i<>0 then
     
288. // SetIniInt(’General’, ’KeyboardLayout’, i, ExpandConstant(’{app}\Info.ini’))
     
289. else
     
290. MsgBox(’输入法加载失败’, mbCriticalError, mb_Ok);
     
291. end;
     
292. end;
     
293. 
     
294. procedure CurStepChanged(CurStep: TSetupStep);
     
295. begin
     
296. if CurStep = ssDone then
     
297. begin
     
298. 
     
299. // 设置默认码表
     
300. // -------------------------------------------
     
301. #sub SetDefaultMB
     
302. if IsTaskSelected(’SetDefaultMB\{#mbIDArray[i]}’) then
     
303. SetIniString(’系统设置’, ’当前输入方案’, ’{#mbNameArray[i]}’, ExpandConstant(’{app}\freewb.ini’));
     
304. #endsub
     
305. 
     
306. #for {i = 0; i < mbcount; i++} SetDefaultMB
     
307. 
     
308. // 创建快捷方式
     
309. // --------------------------------------------
     
310. 
     
311. // 快捷键位表; Filename: {app}\Internet shortcuts\ShortcutKeys.url
     
312. SetIniString(’InternetShortcut’, ’url’,
     
313. ExpandConstant(’mk:@MSITStore:{app}\freewb.chm::/6_1_shortcut.htm’),
     
314. ExpandConstant(’{app}\Internet shortcuts\ShortcutKeys.url’));
     
315. 
     
316. // 快捷命令表; Filename: {app}\Internet shortcuts\ShortcutCommands.url
     
317. SetIniString(’InternetShortcut’, ’url’,
     
318. ExpandConstant(’mk:@MSITStore:{app}\freewb.chm::/6_3_command.htm’),
     
319. ExpandConstant(’{app}\Internet shortcuts\ShortcutCommands.url’));
     
320. 
     
321. // FAQ
     
322. SetIniString(’InternetShortcut’, ’url’,
     
323. ExpandConstant(’mk:@MSITStore:{app}\FREEWB.CHM::/7_1_introduction.htm’),
     
324. ExpandConstant(’{app}\Internet shortcuts\FAQ.url’));
     
325. 
     
326. // 极点应用技巧; Filename: {app}\Internet shortcuts\Skill.url
     
327. SetIniString(’InternetShortcut’, ’url’,
     
328. ExpandConstant(’mk:@MSITStore:{app}\freewb.chm::/0_1_skill.htm’),
     
329. ExpandConstant(’{app}\Internet shortcuts\Skill.url’));
     
330. 
     
331. end; //end if ssDone
     
332. 
     
333. end;
     
334. 
     
335. function FreewbAlreadyInstalled: boolean;
     
336. begin
     
337. result := RegValueExists(HKLM, ’Software\极点中文’, ’系统目录’);
     
338. end;
     
339. 
     
340. #ifndef hasMutex
     
341. // 4.0（2004.2.27）公测版及其以前的极点内核代码
     
342. function FreewbUsing: boolean;
     
343. var FreewbName, TempFileName: string;
     
344. begin
     
345. result := false;
     
346. TempFileName := ExpandConstant(’{sys}\freewb_tempRenamed.ime.tmp’);
     
347. FreewbName := ExpandConstant(’{sys}\freewb.ime’);
     
348. if fileexists(FreewbName) then
     
349. begin
     
350. FileCopy(FreewbName, TempFileName, false); // make a backup copy of freewb.ime
     
351. if DeleteFile(FreewbName) then
     
352. RenameFile(TempFileName, FreewbName) // revert to origin name
     
353. else
     
354. begin
     
355. DeleteFile(TempFileName);
     
356. result := true;
     
357. end;
     
358. end;
     
359. result := result or (0 <> FindWindowByClassName(’JDCLASS_UI’)); //双保险.
     
360. end;
     
361. #endif
     
362. 
     
363. #ifdef hasMutex
     
364. // 4.0B2 (2004.3.2)内测版及以后的极点内核代码
     
365. function FreewbUsing(): boolean;
     
366. begin
     
367. result := CheckForMutexes(’mutex_freeime,Global\mutex_freeime’) // For Freewb4.0b2 and later.
     
368. or (0 <> FindWindowByClassName(’JDCLASS_UI’)); //This line is for old version compatible reason.
     
369. end;
     
370. #endif
     
371. 
     
372. function CreateCustomOptionPage(AAfterId: Integer; ACaption, ASubCaption, AIconFileName, ALabel1Caption, ALabel2Caption,
     
373. ACheckCaption: String; var CheckBox: TCheckBox): TWizardPage;
     
374. var
     
375. Page: TWizardPage;
     
376. Rect: TRect;
     
377. hIcon: LongInt;
     
378. Label1, Label2: TNewStaticText;
     
379. begin
     
380. Page := CreateCustomPage(AAfterID, ACaption, ASubCaption);
     
381. 
     
382. AIconFileName := ExpandConstant(’{tmp}\’ + AIconFileName);
     
383. if not FileExists(AIconFileName) then
     
384. ExtractTemporaryFile(ExtractFileName(AIconFileName));
     
385. 
     
386. Rect.Left := 0;
     
387. Rect.Top := 0;
     
388. Rect.Right := 32;
     
389. Rect.Bottom := 32;
     
390. 
     
391. hIcon := ExtractIcon(GetModuleHandle(0), AIconFileName, 0);
     
392. try
     
393. with TBitmapImage.Create(Page) do begin
     
394. with Bitmap do begin
     
395. Width := 32;
     
396. Height := 32;
     
397. Canvas.Brush.Color := WizardForm.Color;
     
398. Canvas.FillRect(Rect);
     
399. DrawIconEx(Canvas.Handle, 0, 0, hIcon, 32, 32, 0, 0, DI_NORMAL);
     
400. end;
     
401. Parent := Page.Surface;
     
402. end;
     
403. finally
     
404. DestroyIcon(hIcon);
     
405. end;
     
406. 
     
407. Label1 := TNewStaticText.Create(Page);
     
408. with Label1 do begin
     
409. AutoSize := False;
     
410. Left := WizardForm.SelectDirLabel.Left;
     
411. Width := Page.SurfaceWidth - Left;
     
412. WordWrap := True;
     
413. Caption := ALabel1Caption;
     
414. Parent := Page.Surface;
     
415. end;
     
416. WizardForm.AdjustLabelHeight(Label1);
     
417. 
     
418. Label2 := TNewStaticText.Create(Page);
     
419. with Label2 do begin
     
420. Top := Label1.Top + Label1.Height + ScaleY(12);
     
421. Caption := ALabel2Caption;
     
422. Parent := Page.Surface;
     
423. end;
     
424. WizardForm.AdjustLabelHeight(Label2);
     
425. 
     
426. CheckBox := TCheckBox.Create(Page);
     
427. with CheckBox do begin
     
428. Top := Label2.Top + Label2.Height + ScaleY(12);
     
429. Width := Page.SurfaceWidth;
     
430. Caption := ACheckCaption;
     
431. Parent := Page.Surface;
     
432. end;
     
433. 
     
434. Result := Page;
     
435. end;
     
436. 
     
437. procedure CreateCustomPages;
     
438. var
     
439. Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption: String;
     
440. begin
     
441. //极点已经安装
     
442. Caption := ’提示’;
     
443. SubCaption1 := ’系统中已经安装有{#AppName}’;
     
444. IconFileName := ’info.ico’;
     
445. Label1Caption :=
     
446. ’您的系统中已经安装有{#AppName}。’#13#10#13#10 +
     
447. ’尽管安装程序将尽量保存你的原来的设置，但仍然建议您备份好自己的词库，安装新版本之前最好先卸载原来的版本。’ ;
     
448. Label2Caption := ’请选择是否继续安装。选择[下一步]继续安装，或[取消]退出安装程序。’;
     
449. CheckCaption := ’继续安装’;
     
450. 
     
451. InstalledWarningPage := CreateCustomOptionPage(wpWelcome, Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption, InstalledCheckBox);
     
452. 
     
453. //极点正在运行
     
454. Caption := ’警告’;
     
455. SubCaption1 := ’旧版的{#AppName}正在使用中’;
     
456. IconFileName := ’confirm.ico’;
     
457. Label1Caption :=
     
458. ’您的系统中已经安装有{#AppName}并且正在使用中。’#13#10#13#10 +
     
459. ’尽管安装程序将尽量保存你的原来的设置，但仍然建议您备份好自己的词库，安装新版本之前最好先卸载原来的版本。’#13#10#13#10 +
     
460. ’如果您要强制覆盖安装，建议您关闭所有正在使用{#AppName}的程序。否则安装完后将需要重启计算机。’;
     
461. Label2Caption := ’请选择是否强制安装。选择[下一步]继续安装，或[取消]退出安装程序。’;
     
462. CheckCaption := ’强制覆盖安装，安装完后重启计算机’;
     
463. 
     
464. RunningWarningPage := CreateCustomOptionPage(InstalledWarningPage.ID, Caption, SubCaption1, IconFileName, Label1Caption, Label2Caption, CheckCaption, RunningCheckBox);
     
465. end;
     
466. 
     
467. procedure RunningCheckBoxOnClick(Sender: TObject);
     
468. begin
     
469. WizardForm.NextButton.Enabled := RunningCheckBox.Checked;
     
470. end;
     
471. 
     
472. procedure InstalledCheckBoxOnClick(Sender: TObject);
     
473. begin
     
474. WizardForm.NextButton.Enabled := InstalledCheckBox.Checked;
     
475. end;
     
476. 
     
477. procedure InitializeWizard();
     
478. begin
     
479. CreateCustomPages;
     
480. 
     
481. InstalledCheckBox.Checked := true;
     
482. RunningCheckBox.Checked := false;
     
483. InstalledCheckBox.OnClick := @InstalledCheckBoxOnClick;
     
484. RunningCheckBox.OnClick := @RunningCheckBoxOnClick;
     
485. 
     
486. // 默认按钮：我同意
     
487. // WizardForm.LICENSEACCEPTEDRADIO.Checked := true;
     
488. 
     
489. // 更新 ReaMe 日期信息
     
490. WizardForm.InfoBeforeMemo.Lines.Insert(0, ’秋枫 <arcqiufeng@163.com> {#LastUpdate}’);
     
491. WizardForm.InfoBeforeMemo.Lines.Insert(0, ’******************************************’);
     
492. WizardForm.InfoBeforeMemo.Lines.Insert(0, ’安装包信息及历史更新’);
     
493. 
     
494. end;
     
495. 
     
496. function ShouldSkipPage(PageID: Integer): Boolean;
     
497. begin
     
498. Result := false;
     
499. 
     
500. if (PageID = InstalledWarningPage.ID) then //已经安装警告页跳过的情况：极点没有安装 或 极点正在使用(用另一个警告页)
     
501. begin
     
502. Result := (not FreewbAlreadyInstalled)
     
503. or FreewbUsing;
     
504. end;
     
505. 
     
506. if (PageID = RunningWarningPage.ID) then //正在使用警告页跳过的情况：极点没有安装 或 极点装了但没有在用(只需显示已经安装警告框就行)
     
507. begin
     
508. Result := (not FreewbAlreadyInstalled)
     
509. or (FreewbAlreadyInstalled and (not FreewbUsing));
     
510. end;
     
511. 
     
512. end;
     
513. 
     
514. function InitializeSetup(): Boolean;
     
515. var
     
516. SplashImage : TBitmapImage;
     
517. SplashForm : TForm;
     
518. SplashFileName : String;
     
519. Splash_x : integer;
     
520. Splash_y : integer;
     
521. Splash_t : double;
     
522. begin
     
523. // -------------------------
     
524. // Create Start Splash
     
525. // -------------------------
     
526. Splash_x := 450;
     
527. Splash_y := 200;
     
528. Splash_t := 3; // in seconds
     
529. SplashFileName := ExpandConstant(’{tmp}\splash.bmp’);
     
530. ExtractTemporaryFile(’Splash.bmp’);
     
531. SplashForm := TForm.create(nil);
     
532. with SplashForm do
     
533. begin
     
534. BorderStyle := bsNone;
     
535. Position := poScreenCenter;
     
536. ClientWidth := Splash_x;
     
537. ClientHeight := Splash_y;
     
538. end;
     
539. 
     
540. SplashImage := TBitmapImage.Create(SplashForm);
     
541. with SplashImage do
     
542. begin
     
543. Bitmap.LoadFromFile(SplashFileName);
     
544. Stretch := true;
     
545. Align := alClient;
     
546. Parent := SplashForm;
     
547. end;
     
548. 
     
549. with SplashForm do
     
550. begin
     
551. Show;
     
552. Repaint;
     
553. Sleep(round(Splash_t*1000));
     
554. Close;
     
555. Free;
     
556. end;
     
557. // ------- end splash ----------------
     
558. 
     
559. result := true;
     
560. end;

复制代码