赞
踩
如果我们的软件开发的语言使用的是C#,使用的平台框架是Net.Framework,哪么在部署软件安装时,就需要考虑在安装过程检测是否需要安装net环境,并进行安装。
本文以 ScreenToGif 这款软件为例,详细讲解如何在安装的过程中检测并下载net包进行安装。
1、ScreenToGif 是一款开源的截屏软件,依赖于Net.Framework环境
2、本文讲解的NSIS安装过程为自定义界面,而非传统界面(需要传统界面的留言区留言)。
3、Win10系统好像是自动集成了Net.Framework4.8的环境
4、安装Net.Framework4.0以上的版本,需要先安装微软证书,再安装Net.Framework安装,否则可能安装不成功,如下图:
Net.Framework4.8离线包下载链接:https://download.visualstudio.microsoft.com/download/pr/014120d7-d689-4305-befd-3cb711108212/0fd66638cde16859462a6243a4629a50/ndp48-x86-x64-allos-enu.exe
本文中的安装示例包:
链接: 链接: https://pan.baidu.com/s/1aMUEs_F74whkGEzubInkfw
提取码: 2g6y
1、nsNiuniuSkin:基于Duilib的界面库(自定义界面的界面库)
2、nsis7zU:压缩及解压
3、inetc:下载文件(增加下载回调,当前进度,下载包大小,已下载大小,下载速度 ,剩余时间等信息)
4、KillProcDLL:结束进程(增加向结束进程发送主线程消息,进而实现被结束的进程安全退出,默认的结束方式为强制结束进程)
1、Win10系统使用NSIS创建任务栏图标会失败,Win10以下的系统无问题。
2、如果你的应用程序启动需要管理员身份启动,哪么添加开机启动将会失败。
1、验证系统当前的net版本是否低于 4.8.03761,如果低于 4.8.03761 则做如下逻辑:
- # ====================== 自定义宏 产品信息==============================
- !define PRODUCT_NAME "ScreenToGif"
- #安装卸载项用到的KEY
- !define PRODUCT_PATHNAME "ScreenToGif"
- #安装路径追加的名称
- !define INSTALL_APPEND_PATH "ScreenToGif"
- #默认生成的安装路径
- !define INSTALL_DEFALT_SETUPPATH ""
- #执行文件名称
- !define EXE_NAME "ScreenToGif.exe"
- #版本号
- !define PRODUCT_VERSION "1.0.0.0"
- #主页地址
- !define HOME_URL "https://www.screentogif.com/"
- #用户条款
- !define TERMS_URL ""
- #产品发布商
- !define PRODUCT_PUBLISHER "Nicke Manarin"
- #产品法律
- !define PRODUCT_LEGAL "Nicke Manarin Copyright(c)2020"
- #打包出来的文件名称
- !define INSTALL_OUTPUT_NAME "ScreenToGif_${PRODUCT_VERSION}.exe"
- #应用程序的数据目录
- !define LOCAL_APPDATA_DIR "$LOCALAPPDATA\ScreenToGif"
- #打包文件目录
- !define APP_FILE_DIR "D:\myCode\app\app-qt-client\PackageDirectory\ScreenToGif"
- #文件数量
- !define APP_FILE_COUNT 9
- #完整安装包下载地址
- !define ALL_SETUP_DL_URL ""
- #Net包名称
- !define NET_PACK_NAME "ndp48-x86-x64-allos-enu.exe"
- #Net包下载地址
- !define NET_PACK_DL_URL "https://download.visualstudio.microsoft.com/download/pr/014120d7-d689-4305-befd-3cb711108212/0fd66638cde16859462a6243a4629a50/ndp48-x86-x64-allos-enu.exe"
- #微软证书名称(win7安装net4.6以上版本需下载微软证书并安装,否则net安装会失败)
- #net4.0不需要安装微软证书
- !define MS_ROOT_CERT_NAME "MicrosoftRootCertificateAuthority2011.cer"
- #微软证书下载地址
- !define MS_ROOT_CERT_DL_URL "https://download.microsoft.com/download/2/4/8/248D8A62-FCCD-475C-85E7-6ED59520FC0F/MicrosoftRootCertificateAuthority2011.cer"
- ;获取.Net Framework版本支持
- Function GetNetFrameworkVersion
- Push $1
- Push $0
- ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" "Install"
- ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full" "Version"
- StrCmp $0 1 KnowNetFrameworkVersion +1
- ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5" "Install"
- ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5" "Version"
- StrCmp $0 1 KnowNetFrameworkVersion +1
- ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup" "InstallSuccess"
- ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup" "Version"
- StrCmp $0 1 KnowNetFrameworkVersion +1
- ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727" "Install"
- ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727" "Version"
- StrCmp $1 "" +1 +2
- StrCpy $1 "2.0.50727.832"
- StrCmp $0 1 KnowNetFrameworkVersion +1
- ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322" "Install"
- ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322" "Version"
- StrCmp $1 "" +1 +2
- StrCpy $1 "1.1.4322.573"
- StrCmp $0 1 KnowNetFrameworkVersion +1
- ReadRegDWORD $0 HKLM "SOFTWARE\Microsoft\.NETFramework\policy\v1.0" "Install"
- ReadRegDWORD $1 HKLM "SOFTWARE\Microsoft\.NETFramework\policy\v1.0" "Version"
- StrCmp $1 "" +1 +2
- StrCpy $1 "1.0.3705.0"
- StrCmp $0 1 KnowNetFrameworkVersion +1
- StrCpy $1 "not .NetFramework"
- KnowNetFrameworkVersion:
- Pop $0
- Exch $1
- FunctionEnd
- ; 微软证书下载回调
- Function MicrosoftCertificatePackDownLoadCallBack
- ; 0-当前进度(百分比)
- Pop $0
- ; 1-累计大小
- Pop $1
- ; 2-已下载大小
- Pop $2
- ; 3-下载速度
- Pop $3
- ; 4-剩余时间
- Pop $4
-
- ;更新包下载进度
- ; 当前进度
- push $0
- ; 当前剩余时间
- push $4
- FunctionEnd
-
- ;下载微软证书
- Function DownloadMicrosoftCertificate
- GetFunctionAddress $R9 MicrosoftCertificatePackDownLoadCallBack
- inetc::get "${MS_ROOT_CERT_DL_URL}" "$TEMP\${MS_ROOT_CERT_NAME}" $R9
- ; 读取值
- Pop $1
- ; 写入值($1="ok"表示下载成功)
- Push $1
- FunctionEnd
- AddCertificateToStore
- Exch $0
- Push $1
- Push $R0
- System::Call "crypt32::CryptQueryObject(i ${CERT_QUERY_OBJECT_FILE}, w r0, \
- i ${CERT_QUERY_CONTENT_FLAG_ALL}, i ${CERT_QUERY_FORMAT_FLAG_ALL}, \
- i 0, i 0, i 0, i 0, i 0, i 0, *i .r0) i .R0"
- ${If} $R0 <> 0
- System::Call "crypt32::CertOpenStore(i ${CERT_STORE_PROV_SYSTEM}, i 0, i 0, \
- i ${CERT_STORE_OPEN_EXISTING_FLAG}|${CERT_SYSTEM_STORE_LOCAL_MACHINE}, \
- w 'ROOT') i .r1"
- ${If} $1 <> 0
- System::Call "crypt32::CertAddCertificateContextToStore(i r1, i r0, \
- i ${CERT_STORE_ADD_ALWAYS}, i 0) i .R0"
- System::Call "crypt32::CertFreeCertificateContext(i r0)"
- ${If} $R0 = 0
- StrCpy $0 "Unable to add certificate to certificate store"
- ${Else}
- StrCpy $0 "success"
- ${EndIf}
- System::Call "crypt32::CertCloseStore(i r1, i 0)"
- ${Else}
- System::Call "crypt32::CertFreeCertificateContext(i r0)"
- StrCpy $0 "Unable to open certificate store"
- ${EndIf}
- ${Else}
- StrCpy $0 "Unable to open certificate file"
- ${EndIf}
-
- Pop $R0
- Pop $1
- Exch $0
- FunctionEnd
-
- ; 安装微软证书
- Function InstallMicrosoftCertificate
- Push $TEMP\${MS_ROOT_CERT_NAME}
- Call AddCertificateToStore
- Pop $0
- ${If} $0 == success
- ; 安装完成,删除文件
- Delete "$TEMP\${MS_ROOT_CERT_NAME}"
- ${EndIf}
- ; $0=success表示安装成功
- Push $0
- FunctionEnd
- ; Net安装包下载回调
- Function NetPackDownLoadCallBack
- ; 0-当前进度(百分比)
- Pop $0
- ; 1-累计大小
- Pop $1
- ; 2-已下载大小
- Pop $2
- ; 3-下载速度
- Pop $3
- ; 4-剩余时间
- Pop $4
- FunctionEnd
-
- ;下载 .NET Framework 4.0
- Function DownloadNetFramework4
- GetFunctionAddress $R9 NetPackDownLoadCallBack
- inetc::get "${NET_PACK_DL_URL}" "$TEMP\${NET_PACK_NAME}" $R9
- ; 读取值
- Pop $1
- ; 写入值($1="ok"表示下载成功)
- Push $1
- FunctionEnd
- ; 安装net包
- Function InstallDotNetPack
- ; 安装net包
- ExecWait '$TEMP\${NET_PACK_NAME} /q /norestart /ChainingPackage FullX64Bootstrapper' $R1
- ; 安装成功(安装成功返回0 16386 文件损坏 返回当前版本号 文件不存在)
- ${If} $R1 == 0
- ; 安装完成,删除安装包
- Delete "$TEMP\${NET_PACK_NAME}"
- ${EndIf}
- ; 返回值($R1=0表示安装成功)
- Push $R1
- FunctionEnd
- ; 检查net环境
- Function CheckNetCondition
- ; net版本验证及安装
- ;检测是否是需要的.NET Framework版本
- Call GetNetFrameworkVersion
- Pop $R1
- ; ${If} $R1 < '4.7.03062'
- ${If} $R1 < '4.8.03761'
- ; 下载微软证书
- GetFunctionAddress $0 DownloadMicrosoftCertificate
- ; 等待结果
- BgWorker::CallAndWait
-
- ; 弹出下载结果
- Pop $R1
- ; 下载成功验证
- ${If} $R1 == "ok"
- ; 微软证书
- GetFunctionAddress $0 InstallMicrosoftCertificate
- BgWorker::CallAndWait
- ; 弹出安装结果
- Pop $R2
- ; 安装结果验证
- ${If} $R2 != success
- #微软证书安装完成
- ${Endif}
- ${EndIf}
-
- ; 下载net安装包
- GetFunctionAddress $0 DownloadNetFramework4
- ; 等待结果
- BgWorker::CallAndWait
-
- ; 弹出下载结果
- Pop $R3
- ; 下载成功验证
- ${If} $R3 == "ok"
- ; 安装net包
- GetFunctionAddress $0 InstallDotNetPack
- BgWorker::CallAndWait
-
- ; 弹出安装结果
- Pop $R4
- ; 安装结果验证
- ${If} $R4 == 0
- #net包安装成功
- ${EndIf}
- ${EndIf}
- ${EndIf}
- FunctionEnd
- #注:ShowMsgBox 可更换为MessageBox使用系统提示框提示
-
- ; 结束进程
- ; 返回0 表示结束成功 返回1 表示退出安装
- Function KillProc
- #此处检测当前是否有程序正在运行,如果正在运行,提示先卸载再安装
- nsProcess::_FindProcess "${EXE_NAME}"
- Pop $R0
-
- #验证查询结果
- ${If} $R0 == 0
- ; 弹框提示
- StrCpy $R8 "检测到 ${EXE_NAME} 正在运行。点击 “确定” 结束进程${EXE_NAME},继续安装。点击 “取消” 退出安装程序。"
- StrCpy $R7 "1"
- Call ShowMsgBox
-
- Pop $0
- ; 结束进程
- ${If} $0 == 1
- ; 设置安装提示
- nsNiuniuSkin::SetControlAttribute $hInstallDlg "progress_tip" "text" "正在安全的结束进程,请稍后..."
- #结束进程
- KillProcDLL::KillProc"${EXE_NAME}"
- ${Else}
- #设置返回值
- push 1
- ; 退出
- goto KillProcEnd
- ${EndIf}
-
- #循环验证
- ${For} $R1 0 100
- #等待100毫秒再查询结果
- Sleep 100
- #接收结果
- nsProcess::_FindProcess "${EXE_NAME}"
- #检测进程
- Pop $R0
- ; 判断进程是否存在
- ${If} $R0 != 0
- #设置返回值
- push 0
- ; 查找进程结束
- goto KillProcEnd
- ${EndIf}
- ${Next}
-
- ; 弹框提示
- StrCpy $R8 "我们无法安全的结束正在运行的 ${EXE_NAME} 应用程序,请手动退出应用程序,再尝试安装!"
- StrCpy $R7 "0"
- Call ShowMsgBox
- #设置返回值
- push 1
- ; 结束
- KillProcEnd:
- ${EndIf}
- FunctionEnd
- ;创建桌面快捷方式
- Function CreateDeskTopIco
- #添加到桌面快捷方式的动作在此添加
- SetShellVarContext all
- CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\${EXE_NAME}"
- SetShellVarContext current
- FunctionEnd
注:Win10下可能存在问题,系统机制原因
- ;创建任务栏快捷方式
- Function CreateBarlnk
- ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" "CurrentVersion"
- ${if} $R0 >= 6.0
- SetOutPath $INSTDIR
- ;注意这句与下一句是有先后顺序的(与ExecShell taskbarpin关联)
- CreateShortCut "$DESKTOP\${PRODUCT_NAME}.lnk" "$INSTDIR\${EXE_NAME}"
- ;创建任务栏快捷方式(win10系统会失败,并且导致程序运行)
- ;ExecShell taskbarpin "$DESKTOP\${PRODUCT_NAME}.lnk"
- ${StdUtils.InvokeShellVerb} $0 "$INSTDIR" "${EXE_NAME}" ${StdUtils.Const.ShellVerb.PinToTaskbar}
- ${else}
- CreateShortCut "$QUICKLAUNCH\${PRODUCT_NAME}.lnk" "$INSTDIR\${EXE_NAME}"
- ${Endif}
- FunctionEnd
注:应用软件如果需要管理员身份启动,开机可能无法正常启动
- ; 创建开机启动
- ; 备注:开机启动的项目不能为管理员身份启动,否则会启动不起来
- Function CreateBootStart
- WriteRegStr HKCU "Software\Microsoft\Windows\CurrentVersion\Run" "${PRODUCT_NAME}" "$INSTDIR\${EXE_NAME}"
- FunctionEnd
- Function CreateAppShortcut
- SetShellVarContext all
- CreateDirectory "$SMPROGRAMS\${PRODUCT_NAME}"
- CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_NAME}.lnk" "$INSTDIR\${EXE_NAME}"
- CreateShortCut "$SMPROGRAMS\${PRODUCT_NAME}\卸载${PRODUCT_NAME}.lnk" "$INSTDIR\uninst.exe"
- SetShellVarContext current
- FunctionEnd
- # 生成卸载入口
- Function CreateUninstall
- #写入注册信息
- SetRegView 32
- WriteRegStr HKLM "Software\${PRODUCT_PATHNAME}" "InstPath" "$INSTDIR"
-
- ; WriteUninstaller "$INSTDIR\uninst.exe"
-
- # 添加卸载信息到控制面板
- WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_PATHNAME}" "DisplayName" "${PRODUCT_NAME}"
- WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_PATHNAME}" "UninstallString" "$INSTDIR\uninst.exe"
- WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_PATHNAME}" "DisplayIcon" "$INSTDIR\${EXE_NAME}"
- WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_PATHNAME}" "Publisher" "${PRODUCT_PUBLISHER}"
- WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_PATHNAME}" "DisplayVersion" "${PRODUCT_VERSION}"
- FunctionEnd
- ;卸载时删除任务栏快捷方式
- Function un.DelBarlnk
- ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" "CurrentVersion"
- ${if} $R0 >= 6.0
- ;win10系统会有问题
- ExecShell taskbarunpin "$DESKTOP\${PRODUCT_NAME}.lnk"
- ${StdUtils.InvokeShellVerb} $0 "$INSTDIR" "${EXE_NAME}" ${StdUtils.Const.ShellVerb.UnpinFromTaskbar}
-
- Delete "$DESKTOP\${PRODUCT_NAME}.lnk"
- ${else}
- delete "$QUICKLAUNCH\${PRODUCT_NAME}.lnk"
- ${Endif}
- FunctionEnd
-
- ;删除开始菜单,桌面图标
- Function un.DeleteShotcutAndInstallInfo
- SetRegView 32
- DeleteRegKey HKLM "Software\${PRODUCT_PATHNAME}"
- DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_PATHNAME}"
-
- ; 删除快捷方式
- SetShellVarContext all
- Delete "$SMPROGRAMS\${PRODUCT_NAME}\${PRODUCT_NAME}.lnk"
- Delete "$SMPROGRAMS\${PRODUCT_NAME}\卸载${PRODUCT_NAME}.lnk"
- RMDir "$SMPROGRAMS\${PRODUCT_NAME}\"
- Delete "$DESKTOP\${PRODUCT_NAME}.lnk"
-
- #删除开机启动
- Delete "$SMSTARTUP\${PRODUCT_NAME}.lnk"
- SetShellVarContext current
- FunctionEnd
- ;卸载时删除开机启动
- Function un.DelBootStart
- DeleteRegValue HKCU "Software\Microsoft\Windows\CurrentVersion\Run" "${PRODUCT_NAME}"
- FunctionEnd
- ; 打开链接
- !define OpenURL '!insertmacro "_OpenURL"'
-
- ; 打开链接
- !macro _OpenURL URL
- Push "${URL}"
- Call openLinkNewWindow
- !macroend
-
- ; 新窗口打开链接
- Function openLinkNewWindow
- Push $3
- Exch
- Push $2
- Exch
- Push $1
- Exch
- Push $0
- Exch
-
- ReadRegStr $0 HKCR "http\shell\open\command" ""
- # Get browser path
- DetailPrint $0
- StrCpy $2 '"'
- StrCpy $1 $0 1
- StrCmp $1 $2 +2 # if path is not enclosed in " look for space as final char
- StrCpy $2 ' '
- StrCpy $3 1
- loop:
- StrCpy $1 $0 1 $3
- DetailPrint $1
- StrCmp $1 $2 found
- StrCmp $1 "" found
- IntOp $3 $3 + 1
- Goto loop
-
- found:
- StrCpy $1 $0 $3
- StrCmp $2 " " +2
- StrCpy $1 '$1"'
-
- Pop $0
- Exec '$1 $0'
- Pop $0
- Pop $1
- Pop $2
- Pop $3
- FunctionEnd
-
- ;使用示例
- ${OpenURL} "www.baidu.com"
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。