安装程序源码:易极OA协同办公系统

admin

1. 
   
2. #=========================================================================================
   
3. ; 头文件
   
4. !include "MUI.nsh"
   
5. !include "Sections.nsh"
   
6. !include "LogicLib.nsh"
   
7. #=========================================================================================
   
8. #=========================================================================================
   
9. ; 宏定义
   
10. !define STR_AppName "易极OA协同办公系统"
    
11. !define STR_Version "1.0"
    
12. !define STR_Publisher "亿级空间"
    
13. !define STR_HomepageUrl "http://www.yhxs3344.net"
    
14. !define REG_AppBase "Software\EgOA"
    
15. !define REG_Uninstall "Software\Microsoft\Windows\CurrentVersion\Uninstall\${STR_AppName}"
    
16. #=========================================================================================
    
17. #=========================================================================================
    
18. ; MUI 设置
    
19. !define MUI_ABORTWARNING
    
20. !define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\orange-install.ico"
    
21. !define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\orange-uninstall.ico"
    
22. !define MUI_WELCOMEFINISHPAGE_BITMAP "${NSISDIR}\Contrib\Graphics\Wizard\orange.bmp"
    
23. !define MUI_UNWELCOMEFINISHPAGE_BITMAP "${NSISDIR}\Contrib\Graphics\Wizard\orange-uninstall.bmp"
    
24. !define MUI_HEADERIMAGE
    
25. !define MUI_HEADERIMAGE_BITMAP "${NSISDIR}\Contrib\Graphics\Header\orange.bmp"
    
26. !define MUI_HEADERIMAGE_UNBITMAP "${NSISDIR}\Contrib\Graphics\Header\orange-uninstall.bmp"
    
27. ; 语言选择设置
    
28. !define MUI_LANGDLL_REGISTRY_ROOT "HKCU"
    
29. !define MUI_LANGDLL_REGISTRY_KEY "${REG_Uninstall}"
    
30. !define MUI_LANGDLL_REGISTRY_VALUENAME "NSIS:Language"
    
31. ; 组件页面设置
    
32. !define MUI_COMPONENTSPAGE_SMALLDESC
    
33. ; 开始菜单页面设置
    
34. var STR_GroupName
    
35. var TMP_GroupName
    
36. !define MUI_STARTMENUPAGE_REGISTRY_ROOT "HKCU"
    
37. !define MUI_STARTMENUPAGE_REGISTRY_KEY "${REG_Uninstall}"
    
38. !define MUI_STARTMENUPAGE_DEFAULTFOLDER "${STR_AppName}"
    
39. !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "NSIS:StartMenuDir"
    
40. ; 完成安装页面设置
    
41. !define MUI_FINISHPAGE_RUN "C:\Program Files\Internet Explorer\iexplore.exe -new www.google.com"
    
42. !define MUI_FINISHPAGE_SHOWREADME "$INSTDIR/help/index.html"
    
43. !define MUI_FINISHPAGE_SHOWREADME_TEXT "$(LNG_ShowHelp)"
    
44. !define MUI_FINISHPAGE_LINK "${STR_AppName} $(LNG_Homepage): ${STR_HomepageUrl}"
    
45. !define MUI_FINISHPAGE_LINK_LOCATION "${STR_HomepageUrl}"
    
46. ; 安装页面
    
47. !insertmacro MUI_PAGE_WELCOME
    
48. !insertmacro MUI_PAGE_LICENSE "$(LNG_License)"
    
49. !insertmacro MUI_PAGE_DIRECTORY
    
50. !insertmacro MUI_PAGE_COMPONENTS
    
51. !insertmacro MUI_PAGE_STARTMENU Application $STR_GroupName
    
52. !insertmacro MUI_PAGE_INSTFILES
    
53. !insertmacro MUI_PAGE_FINISH
    
54. ; 卸载页面
    
55. !insertmacro MUI_UNPAGE_WELCOME
    
56. !insertmacro MUI_UNPAGE_CONFIRM
    
57. !insertmacro MUI_UNPAGE_INSTFILES
    
58. !insertmacro MUI_UNPAGE_FINISH
    
59. ; 语言支持
    
60. !insertmacro MUI_LANGUAGE "SimpChinese"
    
61. ;!insertmacro MUI_LANGUAGE "English"
    
62. #=========================================================================================
    
63. #=========================================================================================
    
64. ; 语言相关字符串
    
65. LicenseLangString LNG_License ${LANG_ENGLISH} ".\resource\EULA.txt"
    
66. LangString LNG_BrandingText ${LANG_ENGLISH} "haijd Software"
    
67. LangString LNG_DefaultInstation ${LANG_ENGLISH} "Default installtion"
    
68. LangString LNG_FullInstation ${LANG_ENGLISH} "Full installtion"
    
69. LangString LNG_MinimalInstation ${LANG_ENGLISH} "Minimal installtion"
    
70. LangString LNG_Help ${LANG_ENGLISH} "Help"
    
71. LangString LNG_Homepage ${LANG_ENGLISH} "Homepage"
    
72. LangString LNG_Uninstall ${LANG_ENGLISH} "Uninstall"
    
73. LangString LNG_ShowHelp ${LANG_ENGLISH} "Show Help"
    
74. LangString LNG_ProgramFile ${LANG_ENGLISH} "Program Files"
    
75. LangString LNG_EgOA ${LANG_ENGLISH} "Main program"
    
76. LangString LNG_ServerEnv ${LANG_ENGLISH} "Services environment."
    
77. LangString LNG_CreateShortcut ${LANG_ENGLISH} "Create Shortcut"
    
78. LangString LNG_ProgramMenuShortcutGroup ${LANG_ENGLISH} "Program Menu Shortcut Group"
    
79. LangString LNG_DesktopShortcut ${LANG_ENGLISH} "Desktop Shortcut"
    
80. LangString LNG_QuickLaunchShortcut ${LANG_ENGLISH} "Quick Launch Bar Shortcut"
    
81. LangString LNG_ProgramFileDesc ${LANG_ENGLISH} "Install ${STR_AppName} program files."
    
82. LangString LNG_EgOADesc ${LANG_ENGLISH} "Install ${STR_AppName} main program files."
    
83. LangString LNG_ServerEnvDesc ${LANG_ENGLISH} "Install ${STR_AppName} services environment."
    
84. LangString LNG_CreateShortcutDesc ${LANG_ENGLISH} "Create shortcuts to launch the program easy."
    
85. LicenseLangString LNG_License ${LANG_SIMPCHINESE} ".\resource\EULA.txt"
    
86. LangString LNG_BrandingText ${LANG_SIMPCHINESE} "haijd Software"
    
87. LangString LNG_DefaultInstation ${LANG_SIMPCHINESE} "默认安装"
    
88. LangString LNG_FullInstation ${LANG_SIMPCHINESE} "完全安装"
    
89. LangString LNG_MinimalInstation ${LANG_SIMPCHINESE} "最小安装"
    
90. LangString LNG_Help ${LANG_SIMPCHINESE} "帮助"
    
91. LangString LNG_Homepage ${LANG_SIMPCHINESE} "主页"
    
92. LangString LNG_Uninstall ${LANG_SIMPCHINESE} "卸载"
    
93. LangString LNG_ShowHelp ${LANG_SIMPCHINESE} "查看帮助"
    
94. LangString LNG_ProgramFile ${LANG_SIMPCHINESE} "程序文件"
    
95. LangString LNG_EgOA ${LANG_SIMPCHINESE} "主程序"
    
96. LangString LNG_ServerEnv ${LANG_SIMPCHINESE} "服务环境"
    
97. LangString LNG_CreateShortcut ${LANG_SIMPCHINESE} "创建快捷方式"
    
98. LangString LNG_ProgramMenuShortcutGroup ${LANG_SIMPCHINESE} "程序菜单快捷方式组"
    
99. LangString LNG_DesktopShortcut ${LANG_SIMPCHINESE} "桌面快捷方式"
    
100. LangString LNG_QuickLaunchShortcut ${LANG_SIMPCHINESE} "快速启动栏快捷方式"
     
101. LangString LNG_ProgramFileDesc ${LANG_SIMPCHINESE} "安装 ${STR_AppName} 程序文件。"
     
102. LangString LNG_EgOADesc ${LANG_SIMPCHINESE} "安装 ${STR_AppName} 主程序文件"
     
103. LangString LNG_ServerEnvDesc ${LANG_SIMPCHINESE} "安装 ${STR_AppName} 服务环境"
     
104. LangString LNG_CreateShortcutDesc ${LANG_SIMPCHINESE} "创建用于快速访问的快捷方式。"
     
105. #=========================================================================================
     
106. #=========================================================================================
     
107. ; 杂项
     
108. Name "${STR_AppName} ${STR_Version}"
     
109. OutFile "${STR_AppName}_${STR_Version}.exe"
     
110. InstallDir "$PROGRAMFILES\egoa"
     
111. InstallDirRegKey HKCU "${REG_AppBase}" "InstallDir"
     
112. ShowInstDetails SHOW
     
113. ShowUnInstDetails SHOW
     
114. BrandingText "$(LNG_BrandingText)"
     
115. #=========================================================================================
     
116. #=========================================================================================
     
117. ; 安装类型
     
118. !ifndef NOINSTTYPES
     
119. InstType "$(LNG_DefaultInstation)"
     
120. InstType "$(LNG_FullInstation)"
     
121. InstType "$(LNG_MinimalInstation)"
     
122. !endif
     
123. #=========================================================================================
     
124. #=========================================================================================
     
125. ; 程序文件
     
126. Section
     
127. LogSet on
     
128. SectionEnd
     
129. SectionGroup /e "$(LNG_ProgramFile)" SEC_ProgramFile
     
130. Section "$(LNG_EgOA)" SEC_EgOA
     
131. SectionIn 1 2 3 RO
     
132. SetOverwrite ON
     
133. SetOutPath "$INSTDIR"
     
134. File ".\resource\egoa.ico"
     
135. File /r ".\resource\program"
     
136. SectionEnd
     
137. Section "$(LNG_ServerEnv)" SEC_ServerEnv
     
138. SectionIn 1 2 3 RO
     
139. SetOutPath "$INSTDIR"
     
140. File /r ".\resource\server"
     
141. File /r ".\resource\database"
     
142. SectionEnd
     
143. Section "$(LNG_Help)" SEC_Help
     
144. SectionIn 1 2
     
145. SetOutPath "$INSTDIR"
     
146. File /r ".\resource\help"
     
147. SectionEnd
     
148. SectionGroupEnd
     
149. #=========================================================================================
     
150. #=========================================================================================
     
151. ; 快捷方式
     
152. SectionGroup "$(LNG_CreateShortcut)" SEC_Shortcut
     
153. ; 创建开始菜单程序组
     
154. SectionGroup "$(LNG_ProgramMenuShortcutGroup)" SEC_ProgramMenuShortcutGroup
     
155. Section "${STR_AppName}" SEC_AppNameShortcut
     
156. SectionIn 1 2
     
157. CreateDirectory "$SMPROGRAMS\$STR_GroupName"
     
158. WriteINIStr "$SMPROGRAMS\$STR_GroupName\${STR_AppName}.url" "InternetShortcut" "URL" "$INSTDIR/program/www/index.html"
     
159. SectionEnd
     
160. Section "${STR_AppName} $(LNG_Help)" SEC_HelpShortcut
     
161. SectionIn 1 2
     
162. CreateDirectory "$SMPROGRAMS\$STR_GroupName"
     
163. WriteINIStr "$SMPROGRAMS\$STR_GroupName\${STR_AppName} $(LNG_Help).url" "InternetShortcut" "URL" "$INSTDIR/program/www/help/index.html"
     
164. SectionEnd
     
165. Section "${STR_AppName} $(LNG_Homepage)" SEC_HomePageShortcut
     
166. SectionIn 1 2
     
167. CreateDirectory "$SMPROGRAMS\$STR_GroupName"
     
168. WriteINIStr "$SMPROGRAMS\$STR_GroupName\${STR_AppName} $(LNG_Homepage).url" "InternetShortcut" "URL" "${STR_HomepageUrl}"
     
169. SectionEnd
     
170. Section "$(LNG_Uninstall) ${STR_AppName}" SEC_UninstallShortcut
     
171. SectionIn 1 2
     
172. CreateDirectory "$SMPROGRAMS\$STR_GroupName"
     
173. CreateShortCut "$SMPROGRAMS\$STR_GroupName\$(LNG_Uninstall) ${STR_AppName}.lnk" "$INSTDIR\Uninstall.exe"
     
174. SectionEnd
     
175. SectionGroupEnd
     
176. ; 桌面
     
177. Section "$(LNG_DesktopShortcut)" SEC_DesktopShortcut
     
178. SectionIn 1 2
     
179. WriteINIStr "$DESKTOP\${STR_AppName}.url" "InternetShortcut" "URL" "http://127.0.0.1/"
     
180. SectionEnd
     
181. ; 快速启动
     
182. Section "$(LNG_QuickLaunchShortcut)" SEC_QuickLaunchShortcut
     
183. SectionIn 2
     
184. WriteINIStr "$QUICKLAUNCH\${STR_AppName}.url" "InternetShortcut" "URL" "http://127.0.0.1/"
     
185. SectionEnd
     
186. SectionGroupEnd
     
187. #=========================================================================================
     
188. #=========================================================================================
     
189. # 替换文件内容用的宏
     
190. !macro ReplaceConfig FileName StringOld StringNew
     
191. Push `${StringOld}` #text to be replaced
     
192. Push `${StringNew}` #replace with
     
193. Push all #replace all occurrences
     
194. Push all #replace all occurrences
     
195. Push `${FileName}` #file to replace in
     
196. Call AdvReplaceInFile
     
197. !macroend
     
198. #=========================================================================================
     
199. #=========================================================================================
     
200. ; 配置服务
     
201. Section "-SettingServer"
     
202. ; 修改配置文件
     
203. !insertmacro ReplaceConfig "$INSTDIR\server\Apache2.2\conf\httpd.conf" "EGOA_BASE_PATH" "$INSTDIR"
     
204. !insertmacro ReplaceConfig "$INSTDIR\server\MySQL4.1\my.ini" "EGOA_BASE_PATH" "$INSTDIR"
     
205. !insertmacro ReplaceConfig "$INSTDIR\server\php5\php.ini" "EGOA_BASE_PATH" "$INSTDIR"
     
206. ; 创建服务
     
207. nsExec::ExecToLog '"$INSTDIR\server\MySQL4.1\bin\mysqld-nt.exe" --install MySQL4.1 --defaults-file="$INSTDIR\server\MySQL4.1\my.ini"'
     
208. nsExec::ExecToLog '"$INSTDIR\server\Apache2.2\bin\httpd.exe" -k install'
     
209. ; 启动服务
     
210. nsExec::ExecToLog 'net start MySQL4.1'
     
211. nsExec::ExecToLog 'net start Apache2.2'
     
212. SectionEnd
     
213. #=========================================================================================
     
214. #=========================================================================================
     
215. ; 完成安装
     
216. Section "-PostInstall"
     
217. ; 输出卸载程序
     
218. WriteUninstaller "$INSTDIR\Uninstall.exe"
     
219. ; 写注册表
     
220. WriteRegStr HKCU "${REG_AppBase}" "InstallDir" "$INSTDIR" ; 安装的目录
     
221. WriteRegStr HKCU "${REG_AppBase}" "GroupName" "$STR_GroupName" ; 软件在开始菜单中的名称
     
222. WriteRegStr HKCU "${REG_AppBase}" "Version" "${STR_Version}" ; 版本号
     
223. WriteRegStr HKCU "${REG_Uninstall}" "DisplayName" "$(^Name)"
     
224. WriteRegStr HKCU "${REG_Uninstall}" "UninstallString" "$INSTDIR\Uninstall.exe"
     
225. WriteRegStr HKCU "${REG_Uninstall}" "DisplayIcon" "$INSTDIR\EgOA.ico"
     
226. WriteRegStr HKCU "${REG_Uninstall}" "DisplayVersion" "${STR_Version}"
     
227. WriteRegStr HKCU "${REG_Uninstall}" "URLInfoAbout" "${STR_HomepageUrl}"
     
228. WriteRegStr HKCU "${REG_Uninstall}" "Publisher" "${STR_Publisher}"
     
229. SectionEnd
     
230. #=========================================================================================
     
231. #=========================================================================================
     
232. ; 初始化回调函数
     
233. Function .onInit
     
234. !insertmacro MUI_LANGDLL_DISPLAY
     
235. ; 判断是否已安装
     
236. Var /GLOBAL OLD_REG_Version
     
237. ReadRegStr $OLD_REG_Version "HKCU" "${REG_APPBASE}" "Version"
     
238. ${If} $OLD_REG_Version <> ''
     
239. Abort '系统中已安装有本程序，请先卸载后再安装！'
     
240. ${EndIf}
     
241. FunctionEnd
     
242. #=========================================================================================
     
243. #=========================================================================================
     
244. # 替换文件中的字符串
     
245. Function AdvReplaceInFile
     
246. Exch $0 ;file to replace in
     
247. Exch
     
248. Exch $1 ;number to replace after
     
249. Exch
     
250. Exch 2
     
251. Exch $2 ;replace and onwards
     
252. Exch 2
     
253. Exch 3
     
254. Exch $3 ;replace with
     
255. Exch 3
     
256. Exch 4
     
257. Exch $4 ;to replace
     
258. Exch 4
     
259. Push $5 ;minus count
     
260. Push $6 ;universal
     
261. Push $7 ;end string
     
262. Push $8 ;left string
     
263. Push $9 ;right string
     
264. Push $R0 ;file1
     
265. Push $R1 ;file2
     
266. Push $R2 ;read
     
267. Push $R3 ;universal
     
268. Push $R4 ;count (onwards)
     
269. Push $R5 ;count (after)
     
270. Push $R6 ;temp file name
     
271. GetTempFileName $R6
     
272. FileOpen $R1 $0 r ;file to search in
     
273. FileOpen $R0 $R6 w ;temp file
     
274. StrLen $R3 $4
     
275. StrCpy $R4 -1
     
276. StrCpy $R5 -1
     
277. loop_read:
     
278. ClearErrors
     
279. FileRead $R1 $R2 ;read line
     
280. IfErrors exit
     
281. StrCpy $5 0
     
282. StrCpy $7 $R2
     
283. loop_filter:
     
284. IntOp $5 $5 - 1
     
285. StrCpy $6 $7 $R3 $5 ;search
     
286. StrCmp $6 "" file_write2
     
287. StrCmp $6 $4 0 loop_filter
     
288. StrCpy $8 $7 $5 ;left part
     
289. IntOp $6 $5 + $R3
     
290. IntCmp $6 0 is0 not0
     
291. is0:
     
292. StrCpy $9 ""
     
293. Goto done
     
294. not0:
     
295. StrCpy $9 $7 "" $6 ;right part
     
296. done:
     
297. StrCpy $7 $8$3$9 ;re-join
     
298. IntOp $R4 $R4 + 1
     
299. StrCmp $2 all file_write1
     
300. StrCmp $R4 $2 0 file_write2
     
301. IntOp $R4 $R4 - 1
     
302. IntOp $R5 $R5 + 1
     
303. StrCmp $1 all file_write1
     
304. StrCmp $R5 $1 0 file_write1
     
305. IntOp $R5 $R5 - 1
     
306. Goto file_write2
     
307. file_write1:
     
308. FileWrite $R0 $7 ;write modified line
     
309. Goto loop_read
     
310. file_write2:
     
311. FileWrite $R0 $R2 ;write unmodified line
     
312. Goto loop_read
     
313. exit:
     
314. FileClose $R0
     
315. FileClose $R1
     
316. SetDetailsPrint none
     
317. Delete $0
     
318. Rename $R6 $0
     
319. Delete $R6
     
320. SetDetailsPrint both
     
321. Pop $R6
     
322. Pop $R5
     
323. Pop $R4
     
324. Pop $R3
     
325. Pop $R2
     
326. Pop $R1
     
327. Pop $R0
     
328. Pop $9
     
329. Pop $8
     
330. Pop $7
     
331. Pop $6
     
332. Pop $5
     
333. Pop $0
     
334. Pop $1
     
335. Pop $2
     
336. Pop $3
     
337. Pop $4
     
338. FunctionEnd
     
339. #=========================================================================================
     
340. #=========================================================================================
     
341. # 根据安装日志卸载文件的调用宏
     
342. !macro DelFileByLog LogFile
     
343. ifFileExists `${LogFile}` 0 +4
     
344. Push `${LogFile}`
     
345. Call un.DelFileByLog
     
346. Delete `${LogFile}`
     
347. !macroend
     
348. #=========================================================================================
     
349. #=========================================================================================
     
350. ; 卸载
     
351. Section "Uninstall"
     
352. ; 停止服务
     
353. nsExec::ExecToLog 'net stop Apache2.2'
     
354. nsExec::ExecToLog 'net stop MySQL4.1'
     
355. ; 卸载服务
     
356. nsExec::ExecToLog '"$INSTDIR\server\MySQL4.1\bin\mysqld-nt.exe" --remove MySQL4.1'
     
357. nsExec::ExecToLog '"$INSTDIR\server\Apache2.2\bin\httpd.exe" -k uninstall'
     
358. ; 从注册表中取得软件在开始菜单中的名称
     
359. ReadRegStr $TMP_GroupName HKCU "${REG_AppBase}" "GroupName"
     
360. ; 删除开始菜单中的快捷方式与目录
     
361. Delete "$SMPROGRAMS\$TMP_GroupName\${STR_AppName}.url"
     
362. Delete "$SMPROGRAMS\$TMP_GroupName\${STR_AppName} $(LNG_Help).url"
     
363. Delete "$SMPROGRAMS\$TMP_GroupName\${STR_AppName} $(LNG_Homepage).url"
     
364. Delete "$SMPROGRAMS\$TMP_GroupName\$(LNG_Uninstall) ${STR_AppName}.lnk"
     
365. RMDir "$SMPROGRAMS\$TMP_GroupName"
     
366. Delete /REBOOTOK "$DESKTOP\${STR_AppName}.url" ; 删除桌面快捷方式
     
367. Delete /REBOOTOK "$QUICKLAUNCH\${STR_AppName}.url" ; 删除快速启动快捷方式
     
368. ; 调用宏根据安装日志卸载安装程序自己安装过的文件
     
369. !insertmacro DelFileByLog "$INSTDIR\install.log"
     
370. ; 删除安装目录中的文件
     
371. RMDir "$INSTDIR"
     
372. RMDir "$INSTDIR\help"
     
373. RMDir "$INSTDIR\program"
     
374. RMDir /r /REBOOTOK "$INSTDIR\server"
     
375. RMDir /r /REBOOTOK "$INSTDIR\help"
     
376. ; 删除注册表内容
     
377. DeleteRegKey HKCU "${REG_Uninstall}"
     
378. DeleteRegKey HKCU "${REG_AppBase}"
     
379. SetAutoClose True
     
380. SectionEnd
     
381. #=========================================================================================
     
382. #=========================================================================================
     
383. ; 卸载初始化
     
384. Function un.onInit
     
385. !insertmacro MUI_UNGETLANGUAGE
     
386. FunctionEnd
     
387. #=========================================================================================
     
388. #=========================================================================================
     
389. # 卸载程序通过安装日志卸载文件函数
     
390. Function un.DelFileByLog
     
391. Exch $R0
     
392. Push $R1
     
393. Push $R2
     
394. Push $R3
     
395. FileOpen $R0 $R0 r
     
396. ${Do}
     
397. FileRead $R0 $R1
     
398. ${IfThen} $R1 == `` ${|} ${ExitDo} ${|}
     
399. StrCpy $R1 $R1 -2
     
400. StrCpy $R2 $R1 11
     
401. StrCpy $R3 $R1 20
     
402. ${If} $R2 == "File: wrote"
     
403. ${OrIf} $R2 == "File: skipp"
     
404. ${OrIf} $R3 == "CreateShortCut: out:"
     
405. ${OrIf} $R3 == "created uninstaller:"
     
406. Push $R1
     
407. Push `"`
     
408. Call un.DelFileByLog.StrLoc
     
409. Pop $R2
     
410. ${If} $R2 != ""
     
411. IntOp $R2 $R2 + 1
     
412. StrCpy $R3 $R1 "" $R2
     
413. Push $R3
     
414. Push `"`
     
415. Call un.DelFileByLog.StrLoc
     
416. Pop $R2
     
417. ${If} $R2 != ""
     
418. StrCpy $R3 $R3 $R2
     
419. Delete /REBOOTOK $R3
     
420. ${EndIf}
     
421. ${EndIf}
     
422. ${EndIf}
     
423. StrCpy $R2 $R1 7
     
424. ${If} $R2 == "Rename:"
     
425. Push $R1
     
426. Push "->"
     
427. Call un.DelFileByLog.StrLoc
     
428. Pop $R2
     
429. ${If} $R2 != ""
     
430. IntOp $R2 $R2 + 2
     
431. StrCpy $R3 $R1 "" $R2
     
432. Delete /REBOOTOK $R3
     
433. ${EndIf}
     
434. ${EndIf}
     
435. ${Loop}
     
436. FileClose $R0
     
437. Pop $R3
     
438. Pop $R2
     
439. Pop $R1
     
440. Pop $R0
     
441. FunctionEnd
     
442. Function un.DelFileByLog.StrLoc
     
443. Exch $R0
     
444. Exch
     
445. Exch $R1
     
446. Push $R2
     
447. Push $R3
     
448. Push $R4
     
449. Push $R5
     
450. StrLen $R2 $R0
     
451. StrLen $R3 $R1
     
452. StrCpy $R4 0
     
453. ${Do}
     
454. StrCpy $R5 $R1 $R2 $R4
     
455. ${If} $R5 == $R0
     
456. ${OrIf} $R4 = $R3
     
457. ${ExitDo}
     
458. ${EndIf}
     
459. IntOp $R4 $R4 + 1
     
460. ${Loop}
     
461. ${If} $R4 = $R3
     
462. StrCpy $R0 ""
     
463. ${Else}
     
464. StrCpy $R0 $R4
     
465. ${EndIf}
     
466. Pop $R5
     
467. Pop $R4
     
468. Pop $R3
     
469. Pop $R2
     
470. Pop $R1
     
471. Exch $R0
     
472. FunctionEnd
     
473. #=========================================================================================
     
474. #=========================================================================================
     
475. # 节描述
     
476. !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
     
477. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_ProgramFile} "$(LNG_ProgramFileDesc)"
     
478. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_EgOA} "$(LNG_EgOADesc)"
     
479. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_ServerEnv} "$(LNG_ServerEnvDesc)"
     
480. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_Shortcut} "$(LNG_CreateShortcutDesc)"
     
481. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_DesktopShortcut} "$(LNG_CreateShortcutDesc)"
     
482. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_QuickLaunchShortcut} "$(LNG_CreateShortcutDesc)"
     
483. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_AppNameShortcut} "$(LNG_CreateShortcutDesc)"
     
484. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_HelpShortcut} "$(LNG_CreateShortcutDesc)"
     
485. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_HomePageShortcut} "$(LNG_CreateShortcutDesc)"
     
486. !insertmacro MUI_DESCRIPTION_TEXT ${SEC_UninstallShortcut} "$(LNG_CreateShortcutDesc)"
     
487. !insertmacro MUI_FUNCTION_DESCRIPTION_END
     
488. #=========================================================================================
     
489. 
     

复制代码