115浏览器例子

admin

1. 
   
2. ;ExecShell taskbarunpin "$DESKTOP\${PRODUCT_NAME}.lnk"是删除任务栏图标
   
3. 
   
4. ;安装包 解压空白
   
5. !system '>blank set/p=MSCF<nul' !packhdr="" temp.dat="" 'cmd="" c="" copy="" b="" +blank&&del="" blank'=""
   
6. ${OrIf} $0 < 0
   
7. System::Int64Op $0 / 1024
   
8. Pop $0
   
9. StrCpy $1 "KB"
   
10. ${If} $0 > 1024
    
11. ${OrIf} $0 < 0
    
12. System::Int64Op $0 / 1024
    
13. Pop $0
    
14. StrCpy $1 "MB"
    
15. ${If} $0 > 1024
    
16. ${OrIf} $0 < 0
    
17. System::Int64Op $0 / 1024
    
18. Pop $0
    
19. StrCpy $1 "GB"
    
20. ${EndIf}
    
21. ${EndIf}
    
22. ${EndIf}
    
23. 
    
24. StrCpy $FreeSpaceSize "$0$1"
    
25. FunctionEnd
    
26. 
    
27. Function FreshInstallDataStatusFunc
    
28. ;更新磁盘空间文本显示
    
29. nsSkinEngine::FindControl "InstallTab_FreeSpace"
    
30. Pop $0
    
31. ${If} $0 == "-1"
    
32. MessageBox MB_OK "Do not have InstallTab_FreeSpace"
    
33. ${Else}
    
34. nsSkinEngine::SetControlData "InstallTab_FreeSpace" $FreeSpaceSize "text"
    
35. ${EndIf}
    
36. ;路径是否合法（合法则不为0Bytes）
    
37. ${If} $FreeSpaceSize == "0Bytes"
    
38. nsSkinEngine::SetControlData "InstallTab_InstallBtn" "false" "enable"
    
39. ${Else}
    
40. nsSkinEngine::SetControlData "InstallTab_InstallBtn" "true" "enable"
    
41. ${EndIf}
    
42. FunctionEnd
    
43. 
    
44. Function OnTextChangeFunc
    
45. ; 改变可用磁盘空间大小
    
46. nsSkinEngine::GetControlData InstallTab_InstallFilePath "text"
    
47. Pop $0
    
48. ;MessageBox MB_OK $0
    
49. StrCpy $INSTDIR $0
    
50. 
    
51. ;重新获取磁盘空间
    
52. Call UpdateFreeSpace
    
53. Call FreshInstallDataStatusFunc
    
54. FunctionEnd
    
55. 
    
56. Function OnInstallPathBrownBtnFunc
    
57. nsSkinEngine::GetControlData "InstallTab_InstallFilePath" "text" ;
    
58. Pop $installPath
    
59. nsSkinEngine::SelectFolderDialog "请选择文件夹" $installPath
    
60. Pop $installPath
    
61. 
    
62. StrCpy $0 $installPath
    
63. ${If} $0 == "-1"
    
64. ${Else}
    
65. StrCpy $INSTDIR "$installPath\${PRODUCT_NAME_EN}"
    
66. ;设置安装路径编辑框文本
    
67. nsSkinEngine::FindControl "InstallTab_InstallFilePath"
    
68. Pop $0
    
69. ${If} $0 == "-1"
    
70. MessageBox MB_OK "Do not have Wizard_InstallPathBtn4Page2 button"
    
71. ${Else}
    
72. ;nsSkinEngine::SetText2Control "InstallTab_InstallFilePath" $installPath
    
73. StrCpy $installPath $INSTDIR
    
74. nsSkinEngine::SetControlData "InstallTab_InstallFilePath" $installPath "text"
    
75. ${EndIf}
    
76. ${EndIf}
    
77. 
    
78. ;重新获取磁盘空间
    
79. Call UpdateFreeSpace
    
80. Call FreshInstallDataStatusFunc
    
81. FunctionEnd
    
82. 
    
83. Function OnCheckChanged
    
84. nsSkinEngine::GetControlData "CustomOptionsCheckBox" "Checked" ;
    
85. Pop $0
    
86. ${If} $0 == "1"
    
87. nsSkinEngine::NSISResize "445" "608"
    
88. nsSkinEngine::SetControlData "customVer" "true" "visible"
    
89. ${Else}
    
90. nsSkinEngine::NSISResize "445" "462"
    
91. nsSkinEngine::SetControlData "customVer" "false" "visible"
    
92. ${EndIf}
    
93. FunctionEnd
    
94. 
    
95. Function acceptCheckChangedFunc
    
96. nsSkinEngine::GetControlData "acceptCheckBox" "Checked" ;
    
97. Pop $0
    
98. ${If} $0 == "1"
    
99. nsSkinEngine::SetControlData "InstallBtn" "true" "enable"
    
100. ${Else}
     
101. nsSkinEngine::SetControlData "InstallBtn" "false" "enable"
     
102. ${EndIf}
     
103. FunctionEnd
     
104. 
     
105. Function acceptPageFunc
     
106. nsSkinEngine::SetControlData "windowbk" "1" "TabCurrentIndexInt"
     
107. nsSkinEngine::ShowLicense "acceptInfo" "license.txt"
     
108. FunctionEnd
     
109. 
     
110. Function acceptOkFunc
     
111. nsSkinEngine::SetControlData "windowbk" "0" "TabCurrentIndexInt"
     
112. FunctionEnd
     
113. 
     
114. Function InstallPageFunc
     
115. nsSkinEngine::SetControlData "InstallTab_sysCloseBtn" "false" "enable"
     
116. nsSkinEngine::NSISResize "445" "462"
     
117. nsSkinEngine::SetControlData "customVer" "false" "visible"
     
118. Call OnNextBtnFunc
     
119. ;设置进度条
     
120. nsSkinEngine::SetControlData "CompleteTab_RunAppCheckBox" "true" "Checked" ;默认勾选运行程序
     
121. nsSkinEngine::FindControl "InstallProgressBar"
     
122. Pop $0
     
123. ${If} $0 == "-1"
     
124. MessageBox MB_OK "Do not have InstallProgressBar"
     
125. ${Else}
     
126. nsSkinEngine::SetControlData "InstallProgressBar" "0" "ProgressInt"
     
127. nsSkinEngine::SetControlData "progressText" "0%" "text"
     
128. nsSkinEngine::NSISStopMsgLoop
     
129. ${EndIf}
     
130. FunctionEnd
     
131. 
     
132. Function InstallShow
     
133. nsSkinEngine::FindControl "InstallProgressBar"
     
134. Pop $0
     
135. ${If} $0 == "-1"
     
136. MessageBox MB_OK "Do not have InstallProgressBar"
     
137. ${Else}
     
138. nsSkinEngine::NSISBindingProgress "InstallProgressBar" "progressText"
     
139. ${EndIf}
     
140. FunctionEnd
     
141. 
     
142. Section InstallFiles
     
143. SetOutPath "$INSTDIR"
     
144. SetOverwrite ifnewer
     
145. File /r "bin\*.*"
     
146. SectionEnd
     
147. 
     
148. Section RegistKeys
     
149. WriteUninstaller "$INSTDIR\uninst.exe"
     
150. WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\${MAIN_APP_NAME}"
     
151. WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
     
152. WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
     
153. WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\${MAIN_APP_NAME},0"
     
154. WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
     
155. WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
     
156. WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
     
157. SectionEnd
     
158. 
     
159. Section CreateShorts
     
160. WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"
     
161. SetShellVarContext all
     
162. ;创建开始菜单快捷方式
     
163. CreateDirectory "$SMPROGRAMS\Google Translate"
     
164. CreateShortCut "$SMPROGRAMS\Google Translate\${PRODUCT_NAME}.lnk" "$INSTDIR\${MAIN_APP_NAME}"
     
165. CreateShortCut "$SMPROGRAMS\Google Translate\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url"
     
166. CreateShortCut "$SMPROGRAMS\Google Translate\Uninstall.lnk" "$INSTDIR\uninst.exe"
     
167. SetOverwrite ifnewer
     
168. nsSkinEngine::GetControlData "deskShortCheckBox" "Checked" ;
     
169. Pop $0
     
170. ${If} $0 == "1"
     
171. ;创建桌面快捷方式
     
172. CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\${MAIN_APP_NAME}"
     
173. ${EndIf}
     
174. 
     
175. /* CreateShortCut "$QUICKLAUNCH\${PRODUCT_NAME}.lnk" "$INSTDIR\${MAIN_APP_NAME}"
     
176. System::Call 'shell32.dll::ShellExecute(i 0, t "taskbarpin", t "$QUICKLAUNCH\${PRODUCT_NAME}.lnk", i 0, i 0, i 0) i .r1 ?e' */
     
177. Call RefreshShellIcons
     
178. SectionEnd
     
179. 
     
180. Section Finish
     
181. nsSkinEngine::SetControlData "InstallTab_sysCloseBtn" "true" "enable"
     
182. nsSkinEngine::GetControlData "2345CheckBox" "Checked" ;
     
183. Pop $0
     
184. ${If} $0 == "1"
     
185. ;设置浏览器首页
     
186. WriteRegStr HKCU "Software\Microsoft\Internet Explorer\Main" "Start Page" "${PRODUCT_2345WEB_SITE}"
     
187. ${EndIf}
     
188. SectionEnd
     
189. 
     
190. Function OnCompleteBtnFunc
     
191. nsSkinEngine::HideNSISSkinEngine
     
192. nsSkinEngine::StopAnimationBkControl
     
193. nsSkinEngine::GetControlData "autoCheckBox" "Checked" ;
     
194. Pop $0
     
195. ${If} $0 == "1"
     
196. WriteRegStr HKCU "${PRODUCT_AUTORUN_KEY}" "${PRODUCT_NAME}" "$INSTDIR\${MAIN_APP_NAME} -mini"
     
197. ${EndIf}
     
198. 
     
199. Exec '"$INSTDIR\${MAIN_APP_NAME}"'
     
200. nsSkinEngine::ExitNSISSkinEngine "false"
     
201. FunctionEnd
     
202. Function un.accept
     
203. nsSkinEngine::NSISSendMessage $Dialog WM_NSISOPENURL "http://www.yhxs3344.net/";
     
204. FunctionEnd
     
205. ;-----------------------------------------------------------------------------------------------------------------------------
     
206. 
     
207. Function un.onInit
     
208. ;创建互斥防止重复运行
     
209. System::Call 'kernel32::CreateMutexA(i 0, i 0, t "aceuiUnInstall") i .r1 ?e'
     
210. Pop $R0
     
211. StrCmp $R0 0 +3
     
212. MessageBox MB_OK|MB_ICONEXCLAMATION "有一个 115浏览器 卸载向导已经运行！"
     
213. Abort
     
214. 
     
215. SetOutPath "${UNINSTALL_DIR}"
     
216. File /r /x *.db ".\resouce\115Browser\*.*"
     
217. 
     
218. KillProcDLL::KillProc "${MAIN_APP_NAME}" ;强制结束进程
     
219. FunctionEnd
     
220. 
     
221. Function un.UninstallProgress
     
222. nsSkinEngine::InitNSISSkinEngine /NOUNLOAD "${UNINSTALL_DIR}" "UninstallPackages.xml" "WizardTab" "false" "115浏览器" "7B4D2AD97EC46776D7504B1F501B17483E5EFD52B3BA9E8BE9D6401E4F742E19B822CC7DDF6FC224A5D8AAFB9FFC899B" "app.ico" "true"
     
223. Pop $Dialog
     
224. ;初始化MessageBox窗口
     
225. nsSkinEngine::InitNSISMessageBox "MessageBox.xml" "TitleLab" "TextLab" "CloseBtn" "YESBtn" "NOBtn"
     
226. Pop $MessageBoxHandle
     
227. 
     
228. ;关闭按钮绑定函数
     
229. nsSkinEngine::FindControl "sysCloseBtn"
     
230. Pop $0
     
231. ${If} $0 == "-1"
     
232. MessageBox MB_OK "Do not have sysCloseBtn"
     
233. ${Else}
     
234. GetFunctionAddress $0 un.OnUnInstallCancelFunc
     
235. nsSkinEngine::OnControlBindNSISScript "sysCloseBtn" $0
     
236. ${EndIf}
     
237. 
     
238. ;取消按钮绑定函数
     
239. nsSkinEngine::FindControl "cancelUninstallBtn"
     
240. Pop $0
     
241. ${If} $0 == "-1"
     
242. MessageBox MB_OK "Do not have cancelUninstallBtn"
     
243. ${Else}
     
244. GetFunctionAddress $0 un.OnUnInstallCancelFunc
     
245. nsSkinEngine::OnControlBindNSISScript "cancelUninstallBtn" $0
     
246. ${EndIf}
     
247. 
     
248. ;残忍卸载 okUninstallBtn
     
249. nsSkinEngine::FindControl "okUninstallBtn"
     
250. Pop $0
     
251. ${If} $0 == "-1"
     
252. MessageBox MB_OK "Do not have okUninstallBtn"
     
253. ${Else}
     
254. GetFunctionAddress $0 un.UnInstallPageFunc
     
255. nsSkinEngine::OnControlBindNSISScript "okUninstallBtn" $0
     
256. ${EndIf}
     
257. 
     
258. ;卸载完成 completeBtn
     
259. nsSkinEngine::FindControl "completeBtn"
     
260. Pop $0
     
261. ${If} $0 == "-1"
     
262. MessageBox MB_OK "Do not have completeBtn"
     
263. ${Else}
     
264. GetFunctionAddress $0 un.OnCompleteBtnFunc
     
265. nsSkinEngine::OnControlBindNSISScript "completeBtn" $0
     
266. ${EndIf}
     
267. 
     
268. ;--------------------------------------窗体显示-----------------------------------
     
269. nsSkinEngine::RunNSISSkinEngine
     
270. FunctionEnd
     
271. 
     
272. Function un.OnUnInstallCancelFunc
     
273. nsSkinEngine::ExitNSISSkinEngine
     
274. FunctionEnd
     
275. 
     
276. Function un.OnNextBtnFunc
     
277. nsSkinEngine::NSISSendMessage $Dialog WM_NSISNEXT
     
278. FunctionEnd
     
279. 
     
280. Function un.UnInstallPageFunc
     
281. Call un.OnNextBtnFunc
     
282. nsSkinEngine::NSISStopMsgLoop
     
283. FunctionEnd
     
284. 
     
285. Function un.UninstallNow
     
286. nsSkinEngine::FindControl "UnInstallProgressBar"
     
287. Pop $0
     
288. ${If} $0 == "-1"
     
289. MessageBox MB_OK "Do not have UnInstallProgressBar"
     
290. ${Else}
     
291. nsSkinEngine::NSISBindingProgress "UnInstallProgressBar" "progressText"
     
292. ${EndIf}
     
293. FunctionEnd
     
294. 
     
295. Section "Uninstall"
     
296. # 设置为当前用户
     
297. SetShellVarContext current
     
298. # 设置为所有用户
     
299. SetShellVarContext all
     
300. 
     
301. Delete "$SMPROGRAMS\Google Translate\*.lnk"
     
302. Delete "$SMPROGRAMS\Google Translate\Uninstall.lnk"
     
303. Delete "$SMPROGRAMS\Google Translate\Website.lnk"
     
304. Delete "$SMPROGRAMS\Google Translate\${PRODUCT_NAME}.lnk"
     
305. Delete "$DESKTOP\${PRODUCT_NAME}.lnk"
     
306. RMDir /r /REBOOTOK "$SMPROGRAMS\Google Translate"
     
307. RMDir /r /REBOOTOK "$INSTDIR"
     
308. 
     
309. DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
     
310. DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}"
     
311. DeleteRegKey HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Google Translate"
     
312. DeleteRegValue HKCU "${PRODUCT_AUTORUN_KEY}" "${PRODUCT_NAME}"
     
313. 
     
314. SectionEnd
     
315. 
     
316. Function un.OnCompleteBtnFunc
     
317. nsSkinEngine::HideNSISSkinEngine
     
318. ;Call un.SendStatistics
     
319. ;Call un.DeleteRegKey ;发送完统计再调用删除key,因为发送可能需要某些键值
     
320. nsSkinEngine::ExitNSISSkinEngine
     
321. FunctionEnd
     
322. 
     
323. ;刷新关联图标
     
324. Function RefreshShellIcons
     
325. System::Call 'shell32.dll::SHChangeNotify(i, i, i, i) v \
     
326. (${SHCNE_ASSOCCHANGED}, ${SHCNF_IDLIST}, 0, 0)'
     
327. FunctionEnd
     
328. 
     
329. Function .onInstSuccess
     
330. FunctionEnd
     
331. 
     

复制代码