收藏本站
切换到窄版

杉宫竹苑工作室

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
杉宫竹苑工作室»论坛 › 软件封包 › NSIS › 脚本示例 › NSIS 仿QQ安装包
返回列表 发新帖
查看: 2743|回复: 0

NSIS 仿QQ安装包

[复制链接]
admin
发表于 2018-8-12 19:55:03 | 显示全部楼层 |阅读模式

正式会员享受无限制浏览网站功能和高速网盘下载，赶快加入本站吧！

您需要 登录 才可以下载或查看，没有账号？立即注册

x

  2. # ====================== 自定义宏 ==============================
  3. !define PRODUCT_NAME           "腾讯QQ"
  4. !define EXE_NAME               "QQ.exe"
  5. !define PRODUCT_VERSION        "1.0.0.1"
  6. !define PRODUCT_PUBLISHER      "Tencent"
  7. !define PRODUCT_LEGAL          "Copyright (C) 1999-2014 Tencent, All Rights Reserved"


  10. # ===================== 外部插件以及宏 =============================
  11. !include "LogicLib.nsh"
  12. !include "nsDialogs.nsh"
  13. !include "..\..\include\common.nsh"

  15. # ===================== 安装包版本 =============================
  16. VIProductVersion                    "${PRODUCT_VERSION}"
  17. VIAddVersionKey "ProductVersion"    "${PRODUCT_VERSION}"
  18. VIAddVersionKey "ProductName"       "${PRODUCT_NAME}"
  19. VIAddVersionKey "CompanyName"       "${PRODUCT_PUBLISHER}"
  20. VIAddVersionKey "FileVersion"       "${PRODUCT_VERSION}"
  21. VIAddVersionKey "InternalName"      "${EXE_NAME}"
  22. VIAddVersionKey "FileDescription"   "${PRODUCT_NAME}"
  23. VIAddVersionKey "LegalCopyright"    "${PRODUCT_LEGAL}"

  25. # ==================== NSIS属性 ================================

  27. #SetCompressor zlib

  29. ; 安装包名字.
  30. Name "${PRODUCT_NAME}"

  32. # 安装程序文件名.
  33. OutFile "QQ Setup.exe"

  35. # 默认安装位置.
  36. InstallDir "$PROGRAMFILES\Tencent\${PRODUCT_NAME}"


  39. # 针对Vista和win7 的UAC进行权限请求.
  40. # RequestExecutionLevel none|user|highest|admin
  41. RequestExecutionLevel admin

  43. # 安装和卸载程序图标
  44. Icon              "image\logo.ico"
  45. UninstallIcon     "image\logo.ico"



  49. # 自定义页面
  50. Page custom DUIPage


  53. # 卸载程序显示进度
  54. UninstPage instfiles

  56. # ======================= DUILIB 自定义页面 =========================
  57. Var hInstallDlg

  59. Function DUIPage
  60.     !insertmacro Trace "$TEMP $PLUGINSDIR"
  61.     nsDui::InitDUISetup
  62.     Pop $hInstallDlg
  63.    
  64.     # License页面
  65.     nsDui::FindControl "btnLicenseClose"
  66.     Pop $0
  67.     ${If} $0 == 0
  68.         GetFunctionAddress $0 OnExitDUISetup
  69.         nsDui::OnControlBindNSISScript "btnLicenseClose" $0
  70.     ${EndIf}
  71.    
  72.     nsDui::FindControl "btnLicenseMin"
  73.     Pop $0
  74.     ${If} $0 == 0
  75.         GetFunctionAddress $0 OnBtnMin
  76.         nsDui::OnControlBindNSISScript "btnLicenseMin" $0
  77.     ${EndIf}
  78.    
  79.     nsDui::FindControl "btnLicenseNext"
  80.     Pop $0
  81.     ${If} $0 == 0
  82.         GetFunctionAddress $0 OnBtnLicenseNextClick
  83.         nsDui::OnControlBindNSISScript "btnLicenseNext" $0
  84.     ${EndIf}
  85.    
  86.     # 目录选择 页面
  87.     nsDui::FindControl "btnDirClose"
  88.     Pop $0
  89.     ${If} $0 == 0
  90.         GetFunctionAddress $0 OnExitDUISetup
  91.         nsDui::OnControlBindNSISScript "btnDirClose" $0
  92.     ${EndIf}
  93.    
  94.     nsDui::FindControl "btnDirMin"
  95.     Pop $0
  96.     ${If} $0 == 0
  97.         GetFunctionAddress $0 OnBtnMin
  98.         nsDui::OnControlBindNSISScript "btnDirMin" $0
  99.     ${EndIf}
  100.    
  101.     nsDui::FindControl "btnSelectDir"
  102.     Pop $0
  103.     ${If} $0 == 0
  104.         GetFunctionAddress $0 OnBtnSelectDir
  105.         nsDui::OnControlBindNSISScript "btnSelectDir" $0
  106.     ${EndIf}
  107.    
  108.     nsDui::FindControl "btnDirPre"
  109.     Pop $0
  110.     ${If} $0 == 0
  111.         GetFunctionAddress $0 OnBtnDirPre
  112.         nsDui::OnControlBindNSISScript "btnDirPre" $0
  113.     ${EndIf}
  114.    
  115.     nsDui::FindControl "btnDirCancel"
  116.     Pop $0
  117.     ${If} $0 == 0
  118.         GetFunctionAddress $0 OnBtnCancel
  119.         nsDui::OnControlBindNSISScript "btnDirCancel" $0
  120.     ${EndIf}
  121.         
  122.     nsDui::FindControl "btnDirInstall"
  123.     Pop $0
  124.     ${If} $0 == 0
  125.         GetFunctionAddress $0 OnBtnInstall
  126.         nsDui::OnControlBindNSISScript "btnDirInstall" $0
  127.     ${EndIf}
  128.    

  130.    
  131.     # 安装进度 页面
  132.     nsDui::FindControl "btnDetailClose"
  133.     Pop $0
  134.     ${If} $0 == 0
  135.         GetFunctionAddress $0 OnExitDUISetup
  136.         nsDui::OnControlBindNSISScript "btnDetailClose" $0
  137.     ${EndIf}
  138.    
  139.     nsDui::FindControl "btnDetailMin"
  140.     Pop $0
  141.     ${If} $0 == 0
  142.         GetFunctionAddress $0 OnBtnMin
  143.         nsDui::OnControlBindNSISScript "btnDetailMin" $0
  144.     ${EndIf}

  146.     # 安装完成 页面
  147.     nsDui::FindControl "btnFinished"
  148.     Pop $0
  149.     ${If} $0 == 0
  150.         GetFunctionAddress $0 OnFinished
  151.         nsDui::OnControlBindNSISScript "btnFinished" $0
  152.     ${EndIf}
  153.    
  154.     nsDui::FindControl "btnFinishedMin"
  155.     Pop $0
  156.     ${If} $0 == 0
  157.         GetFunctionAddress $0 OnBtnMin
  158.         nsDui::OnControlBindNSISScript "btnFinishedMin" $0
  159.     ${EndIf}
  160.    
  161.     nsDui::FindControl "btnFinishedClose"
  162.     Pop $0
  163.     ${If} $0 == 0
  164.         GetFunctionAddress $0 OnExitDUISetup
  165.         nsDui::OnControlBindNSISScript "btnFinishedClose" $0
  166.     ${EndIf}
  167.    
  168.     nsDui::ShowPage
  169. FunctionEnd

  171. Function OnBtnLicenseNextClick
  172.     nsDui::GetCheckboxStatus "chkAgree"
  173.     Pop $0
  174.     ${If} $0 == "1"
  175.         nsDui::SetDirValue "$INSTDIR"
  176.         nsDui::NextPage "wizardTab"
  177.     ${EndIf}
  178. FunctionEnd

  180. # 开始安装
  181. Function OnBtnInstall
  182.     nsDui::GetDirValue
  183.     Pop $0
  184.     StrCmp $0 "" InstallAbort 0
  185.     StrCpy $INSTDIR "$0"
  186.     nsDui::NextPage "wizardTab"
  187.     nsDui::SetSliderRange "slrProgress" 0 100
  188.    
  189.     # 覆盖安装时，指定不覆盖的文件
  190.     # 将这些文件暂存到临时目录
  191.     CreateDirectory "$TEMP\qq_file_translate"
  192.     CopyFiles /SILENT "$INSTDIR\gf-config.xml" "$TEMP\qq_file_translate"
  193.    
  194.     #启动一个低优先级的后台线程
  195.     GetFunctionAddress $0 ExtractFunc
  196.     BgWorker::CallAndWait
  197.    
  198.     # 文件释放完成以后，还原暂存的文件
  199.     CopyFiles /SILENT "$TEMP\qq_file_translate\gf-config.xml" "$INSTDIR"
  200.     RMDir /r "$TEMP\qq_file_translate"
  201.    
  202.     Call CreateShortcut
  203.     Call CreateUninstall
  204. InstallAbort:
  205. FunctionEnd

  207. Function ExtractFunc
  208.     SetOutPath $INSTDIR
  209.     File "app\app.7z"
  210.     GetFunctionAddress $R9 ExtractCallback
  211.     Nsis7z::ExtractWithCallback "$INSTDIR\app.7z" $R9
  212.     #Delete "$INSTDIR\app.7z"
  213. FunctionEnd


  216. Function ExtractCallback
  217.     Pop $1
  218.     Pop $2
  219.     System::Int64Op $1 * 100
  220.     Pop $3
  221.     System::Int64Op $3 / $2
  222.     Pop $0
  223.    
  224.     nsDui::SetSliderValue "slrProgress" $0

  226.     ${If} $1 == $2
  227.         nsDui::SetSliderValue "slrProgress" 100
  228.         nsDui::NextPage "wizardTab"
  229.     ${EndIf}
  230. FunctionEnd


  233. Function OnExitDUISetup
  234.     nsDui::ExitDUISetup
  235. FunctionEnd

  237. Function OnBtnMin
  238.     SendMessage $hInstallDlg ${WM_SYSCOMMAND} 0xF020 0
  239. FunctionEnd

  241. Function OnBtnCancel
  242. FunctionEnd

  244. Function OnFinished
  245.     # 开机启动
  246.     nsDui::GetCheckboxStatus "chkBootStart"
  247.     Pop $R0
  248.     ${If} $R0 == "1"
  249.         SetShellVarContext all
  250.         CreateShortCut "$SMSTARTUP\QQ.lnk" "$INSTDIR\Bin\QQ.exe"
  251.     ${EndIf}
  252.    
  253.     # 立即启动
  254.     nsDui::GetCheckboxStatus "chkStartNow"
  255.     Pop $R0
  256.     ${If} $R0 == "1"
  257.         Exec "$INSTDIR\Bin\QQ.exe"
  258.     ${EndIf}
  259.    
  260.     # 设置主页
  261.     nsDui::GetCheckboxStatus "chkSetHomePage"
  262.     Pop $R0
  263.     ${If} $R0 == "1"
  264.         WriteRegStr HKCU "Software\Microsoft\Internet Explorer\Main" "Start Page" "http://www.qq.com"
  265.     ${EndIf}
  266.    
  267.     # 显示新特征
  268.     nsDui::GetCheckboxStatus "chkShowFeature"
  269.     Pop $R0
  270.     ${If} $R0 == "1"
  271.         ExecShell "open" "$INSTDIR\QQWhatsnew.txt"
  272.     ${EndIf}
  273.    
  274.     Call OnExitDUISetup
  275. FunctionEnd

  277. Function OnBtnSelectDir
  278.     nsDui::SelectInstallDir
  279.     Pop $0
  280. FunctionEnd

  282. Function OnBtnDirPre
  283.     nsDui::PrePage "wizardTab"
  284. FunctionEnd


  287. # ========================= 安装步骤 ===============================

  289. Function CreateShortcut
  290.   SetShellVarContext all
  291.   CreateDirectory "$SMPROGRAMS\${PRODUCT_NAME}"
  292.   CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_NAME}.lnk" "$INSTDIR\Bin\${EXE_NAME}"
  293.   CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\卸载${PRODUCT_NAME}.lnk" "$INSTDIR\uninst.exe"
  294.   CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\Bin\${EXE_NAME}"
  295.   SetShellVarContext current
  296. FunctionEnd



  300. Function CreateUninstall

  302.         # 生成卸载程序
  303.         WriteUninstaller "$INSTDIR\uninst.exe"
  304.         
  305.         # 添加卸载信息到控制面板
  306.         WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "DisplayName" "${PRODUCT_NAME}"
  307.         WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "UninstallString" "$INSTDIR\uninst.exe"
  308.         WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "DisplayIcon" "$INSTDIR\${EXE_NAME}"
  309.         WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}" "Publisher" "$INSTDIR\${PRODUCT_PUBLISHER}"
  310. FunctionEnd

  312. # 添加一个空的Section，防止编译器报错
  313. Section "None"
  314. SectionEnd


  317. # 卸载区段
  318. Section "Uninstall"

  320.   ; 删除快捷方式
  321.   SetShellVarContext all
  322.   Delete "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_NAME}.lnk"
  323.   Delete "$SMPROGRAMS\${PRODUCT_NAME}\卸载${PRODUCT_NAME}.lnk"
  324.   RMDir "$SMPROGRAMS\${PRODUCT_NAME}"
  325.   Delete "$DESKTOP\${PRODUCT_NAME}.lnk"
  326.   SetShellVarContext current
  327.   
  328.   SetOutPath "$INSTDIR"

  330.   ; 删除安装的文件
  331.   Delete "$INSTDIR\*.*"

  333.   SetOutPath "$DESKTOP"

  335.   RMDir /r "$INSTDIR"
  336.   RMDir "$INSTDIR"
  337.   
  338.   SetAutoClose true
  339. SectionEnd





  345. # ============================== 回调函数 ====================================

  347. # 函数名以“.”开头的一般作为回调函数保留.
  348. # 函数名以“un.”开头的函数将会被创建在卸载程序里，因此，普通安装区段和函数不能调用卸载函数，而卸载区段和卸载函数也不能调用普通函数。

  350. Function .onInit

  352. FunctionEnd


  355. # 安装成功以后.
  356. Function .onInstSuccess

  358. FunctionEnd

  360. # 在安装失败后用户点击“取消”按钮时被调用.
  361. Function .onInstFailed
  362.     MessageBox MB_ICONQUESTION|MB_YESNO "安装成功！" /SD IDYES IDYES +2 IDNO +1
  363. FunctionEnd


  366. # 每次用户更改安装路径的时候这段代码都会被调用一次.
  367. Function .onVerifyInstDir

  369. FunctionEnd

  371. # 卸载操作开始前.
  372. Function un.onInit
  373.     MessageBox MB_ICONQUESTION|MB_YESNO "您确定要卸载${PRODUCT_NAME}吗?" /SD IDYES IDYES +2 IDNO +1
  374.     Abort
  375. FunctionEnd

  377. # 卸载成功以后.
  378. Function un.onUninstSuccess

  380. FunctionEnd


复制代码
全额附件
游客，本帖隐藏的内容需要积分高于 500 才可浏览，您当前积分为 0

回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|小黑屋|手机版|Archiver|SgzyStudio

GMT+8, 2024-5-18 00:20 , Processed in 0.107818 second(s), 19 queries .

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表