NSIS工具打包实例--实现多组件选择，基本参数配置功能

最近工作中遇到一个需要打包程序的任务，学习了下NSIS和XML插件的使用，解决了工作中遇到的需要多组件可选安装和配置XML文件的问题。

基本的知识就不介绍了，可以去看NSIS的文档，我就把写的代码来出来分享下，供大家参考下。

;安装可选，卸载全部

; 导入插件

!include MUI.nsh

!include nsDialogs.nsh

!include LogicLib.nsh

!include xml.nsh

; 安装程序初始定义常量

!define PRODUCT_NAME "通用模块"

!define PRODUCT_VERSION "1.0"

!define PRODUCT_PUBLISHER "科技有限公司"

!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"

!define PRODUCT_UNINST_ROOT_KEY "HKLM"

SetCompressor lzma

XPStyle on

; MUI 预定义常量

!define MUI_ABORTWARNING

!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\arrow2-install.ico"

!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\arrow2-uninstall.ico"

BrandingText "科技有限公司"

;定义变量

Var Dialog

Var Label

Var  ip

Var  port

Var  sid

Var  isConfig

; 欢迎页面

!insertmacro MUI_PAGE_WELCOME

; 许可协议页面

!insertmacro MUI_PAGE_LICENSE "安装说明.txt"

; 组件选择页面

!insertmacro MUI_PAGE_COMPONENTS

; 安装目录选择页面

!insertmacro MUI_PAGE_DIRECTORY

; 安装过程页面

!insertmacro MUI_PAGE_INSTFILES

;调用数据库基本配置页面

Page custom ConfigDBPage

;调用数据导入配置页面

;Page custom impPage

;调用数据库导入程序

;Page custom executeImp

Page instfiles

; 安装完成页面

!insertmacro MUI_PAGE_FINISH

; 卸载欢迎页面

!insertmacro MUI_UNPAGE_WELCOME

; 卸载组件选择页面

;!insertmacro MUI_UNPAGE_COMPONENTS

; 卸载过程页面

!insertmacro MUI_UNPAGE_INSTFILES

; 卸载完成页面

!insertmacro MUI_UNPAGE_FINISH

; 安装界面包含的语言设置

!insertmacro MUI_LANGUAGE "SimpChinese"

; 安装预释放文件

!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS

; ------ MUI 现代界面定义结束 ------

Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"

OutFile "模块SetUp.exe"

InstallDir "$PROGRAMFILES\company\模块"

InstallDirRegKey HKLM "${PRODUCT_UNINST_KEY}" "UninstallString"

ShowInstDetails show

ShowUnInstDetails show

Section "模块1" SEC01

 SetOutPath "$INSTDIR\msgServer"

 SetOverwrite ifnewer

 File /r "E:\模块\MsgServer\msgServer\*.*"

SectionEnd

Section "模块2" SEC02

 SetOutPath "$INSTDIR\alarmReceiver"

 SetOverwrite ifnewer

 File /r "E:\模块\AlarmReceiver\adapter_alarmReceiver\*.*"

 StrCpy $isConfig "1"

SectionEnd

Section "模块3" SEC03

 SetOutPath "$INSTDIR\pref_receiver\"

 SetOverwrite ifnewer

 File /r "E:\模块\PrefReceiver\sdh_pref_receiver\*.*"

 StrCpy $isConfig "1"

SectionEnd

Section "模块4" SEC04

 SetOutPath "$INSTDIR\sysmonitor\"

 SetOverwrite ifnewer

 File /r "E:\模块\SysMonitor\sysmonitor\*.*"

 StrCpy $isConfig "1"

SectionEnd

Section -Post

 ;调用配置函数

 Call configXML

 WriteUninstaller "$INSTDIR\uninst.exe"

 WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"

 WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"

 WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"

 WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"

SectionEnd

#-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#

; 区段组件描述

!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN

 !insertmacro MUI_DESCRIPTION_TEXT ${SEC01} "模块1"

 !insertmacro MUI_DESCRIPTION_TEXT ${SEC02} "模块2"

 !insertmacro MUI_DESCRIPTION_TEXT ${SEC03} "模块3"

 !insertmacro MUI_DESCRIPTION_TEXT ${SEC04} "模块4"

!insertmacro MUI_FUNCTION_DESCRIPTION_END

/******************************

*  以下是安装程序的卸载部分  *

******************************/

;实现了可选组件卸载(但是写死的，不能安装实际安装情况进行显示需要卸载的组件)

;Section  Un.全部组件 SEC10

;  RMDir /r "$INSTDIR"

; SectionEnd

; Section Un.模块1 SEC11

;  RMDir /r "$INSTDIR\msgServer"

; SectionEnd

; Section Un.模块2 SEC12

;  RMDir /r "$INSTDIR\alarmReceiver"

; SectionEnd

;Section Un.模块3 SEC13

;  RMDir /r "$INSTDIR\pref_receiver\"

;SectionEnd

;Section Un.模块4 SEC14

;  RMDir /r "$INSTDIR\sysmonitor\"

;SectionEnd

Section Uninstall

 RMDir /r "$INSTDIR"

 DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"

 SetAutoClose true

SectionEnd

#-- 根据 NSIS 脚本编辑规则，所有 Function 区段必须放置在 Section 区段之后编写，以避免安装程序出现未可预知的问题。--#

Function un.onInit

 MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "您确实要完全移除 $(^Name) ，及其所有的组件？" IDYES +2

 Abort

FunctionEnd

Function un.onUninstSuccess

 HideWindow

 MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地从您的计算机移除。"

FunctionEnd

;配置数据库相关信息的页面

Function ConfigDBPage

${if} $isConfig == "1"

nsDialogs::Create /NOUNLOAD 1018

Pop $Dialog

${If} $Dialog == error

Abort

${EndIf}

;配置数据库IP地址

${NSD_CreateLabel} 0 0 100% 12u "请输入数据库ip地址："

Pop $Label

${NSD_CreateText} 0 13u 100% 12u ""

Pop $ip

${NSD_SetText} $ip $R1

 ${NSD_OnChange} $ip IPChange

;配置数据库端口号

 ${NSD_CreateLabel} 0 26u 100% 12u "请输入数据库端口号："

Pop $Label

${NSD_CreateText} 0 39u 100% 12u ""

Pop $port

${NSD_SetText} $port $R2

${NSD_OnChange} $port PortChange

;配置数据库sid

${NSD_CreateLabel} 0 52u 100% 12u "请输入数据库sid："

${NSD_CreateText} 0 65u 100% 12u ""

Pop $sid

${NSD_SetText} $sid $R3

${NSD_OnChange} $sid SidChange

nsDialogs::Show

Call CheckPage

${EndIf}

FunctionEnd

Function ConfigXML

;依次修改beans.xml文件的中strDBHostIP，strDBHostPort，strDBServerSID

 ${xml::LoadFile} "$INSTDIR\模块1\conf\Beans.xml" $6

 ${xml::GotoPath} "/beans/bean/property[1]/value" $0

 ${xml::SetText} $R1 $0

 ${xml::GotoPath} "/beans/bean/property[2]/value" $0

 ${xml::SetText} $R2 $0

 ${xml::GotoPath} "/beans/bean/property[3]/value" $0

 ${xml::SetText} $R3 $0

 ${xml::SaveFile} "$INSTDIR\模块1\conf\Beans.xml" $6

 ${xml::LoadFile} "$INSTDIR\模块2\conf\Beans.xml" $6

 ${xml::GotoPath} "/beans/bean/property[1]/value" $0

 ${xml::SetText} $R1 $0

 ${xml::GotoPath} "/beans/bean/property[2]/value" $0

 ${xml::SetText} $R2 $0

 ${xml::GotoPath} "/beans/bean/property[3]/value" $0

 ${xml::SetText} $R3 $0

 ${xml::SaveFile} "$INSTDIR\模块2\conf\Beans.xml" $6

 ${xml::LoadFile} "$INSTDIR\模块3\conf\Beans.xml" $6

 ${xml::GotoPath} "/beans/bean/property[1]/value" $0

 ${xml::SetText} $R1 $0

 ${xml::GotoPath} "/beans/bean/property[2]/value" $0

 ${xml::SetText} $R2 $0

 ${xml::GotoPath} "/beans/bean/property[3]/value" $0

 ${xml::SetText} $R3 $0

 ${xml::SaveFile} "$INSTDIR\模块3\conf\Beans.xml" $6

FunctionEnd

;校验输入的配置信息

Function checkPage

 ${if} $R1 == ""

MessageBox MB_ICONINFORMATION|MB_OK  "Ip地址不能为空!"

;退回到数据库配置信息页面

call ConfigDBPage

${endif}

${if} $R2 == ""

MessageBox MB_ICONINFORMATION|MB_OK  "数据库端口号不能为空!"

;退回到数据库配置信息页面

call ConfigDBPage

${endif}

${if} $R3 == ""

MessageBox MB_ICONINFORMATION|MB_OK  "数据库Sid不能为空!"

;退回到数据库配置信息页面

call ConfigDBPage

${endif}

FunctionEnd

Function IPChange

;将ip的值存入到$R1中

 ${NSD_GetText} $ip $R1

FunctionEnd

Function PortChange

;将port的值存入到$R2中

 ${NSD_GetText} $port $R2

FunctionEnd

Function SidChange

;将sid的值存入到$R3中

 ${NSD_GetText} $sid $R3

FunctionEnd