NSIS使用技巧集合

 

如何在NSIS组件页面之前根据注册表预设组件勾选状态

引用来自 2005-11-8 上午 10:45:07

[color=#000080]!include "MUI.nsh"
   OutFile "test.exe"

   !define MUI_PAGE_CUSTOMFUNCTION_Pre ComponentsPre
   !insertmacro MUI_PAGE_COMPONENTS
   !insertmacro MUI_PAGE_INSTFILES

   !insertmacro MUI_LANGUAGE "Simpchinese"

Section "组件A"SecA
SectionEnd

Section "组件B" SecB
SectionEnd

Section "组件C" SecC
SectionEnd

Function ComponentsPre
; 如果注册表 HKEY_CURRENT_USER\Software\Test 下存在 SecA 键，且其值为 0 ，那么第一个组件默认就不勾选。
; 以下同。
ReadRegStr $0 HKCU "Software\Test" "SecA"
IfErrors + 2
   StrCmp $0 0 0 + 2
     SectionSetFlags ${SecA} 0

ReadRegStr $0 HKCU "Software\Test" "SecB"
IfErrors + 2
   StrCmp $0 0 0 + 2
     SectionSetFlags ${SecB} 0

ReadRegStr $0 HKCU "Software\Test" "SecC"
IfErrors + 2
   StrCmp $0 0 0 + 2
     SectionSetFlags ${SecC} 0

Functionend
[/color]

如何使用NSIS实现多目录安装设置
有些时候，我们需要让用户设置多个安装目录，如果大家用过 Delphi 就知道了，安装 Delphi 的时候我们可以选择为不同功能的程序（例如共享文件目录，主程序目录，数据库设置程序目录等等）设置不同的安装目录，而这样的功能怎么实现呢，以下为一个很好的例子脚本。

引用来自 2005-11-8 上午 10:46:08

[color=#000080]!include "MUI.nsh"

Name "Test App"
OutFile "test.exe"

!insertmacro MUI_PAGE_COMPONENTS
Page custom SetCustom LeaveCustom
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "SimpChinese"

;--------------------------------

Section "SectionA"SecA
   ReadINIStr $0 " $PLUGINSDIR \test.ini" "Field 4"State
   MessageBox MB_OK "SectionA 的安装路径为： $0 "
SectionEnd

Section "SectionB" SecB
   ReadINIStr $0 " $PLUGINSDIR \test.ini" "Field 5"State
   MessageBox MB_OK "SectionB 的安装路径为： $0 "
SectionEnd

Section "SectionC" SecC
   ReadINIStr $0 " $PLUGINSDIR \test.ini" "Field 6"State
   MessageBox MB_OK "SectionC 的安装路径为： $0 "
SectionEnd

Function .Oninit
   InitPluginsDir
  File /oname= $PLUGINSDIR\test.ini ".\test.ini"
FunctionEnd

Function SetCustom
; 判断勾选的组件，并把未勾选组件的安装路径控件设为不可用
   SectionGetFlags ${SecA} $0
   StrCmp $0 0 0 + 2
     WriteINIStr " $PLUGINSDIR \test.ini" "Field 4" "Flags" "Disabled"
   StrCmp $0 1 0 + 2     ; 如果组件勾选了，还需要去掉 Disabled，这两行代码不能省略
     WriteINIStr " $PLUGINSDIR \test.ini" "Field 4" "Flags" ""

   SectionGetFlags ${SecB} $0
   StrCmp $0 0 0 + 2
     WriteINIStr " $PLUGINSDIR \test.ini" "Field 5" "Flags" "Disabled"
   StrCmp $0 1 0 + 2
     WriteINIStr " $PLUGINSDIR \test.ini" "Field 5" "Flags" ""

   SectionGetFlags ${SecC} $0
   StrCmp $0 0 0 + 2
     WriteINIStr " $PLUGINSDIR \test.ini" "Field 6" "Flags" "Disabled"
   StrCmp $0 1 0 + 2
     WriteINIStr " $PLUGINSDIR \test.ini" "Field 6" "Flags" ""

; 预定义组件安装路径
   WriteINIStr " $PLUGINSDIR \test.ini" "Field 4" "State" " $ProgramFiles "
   WriteINIStr " $PLUGINSDIR \test.ini" "Field 5" "State" " $DeskTop "
   WriteINIStr " $PLUGINSDIR \test.ini" "Field 6" "State" " $WinDir "

   InstallOptions::initDialog /NOUNLOAD " $PLUGINSDIR \test.ini"
   !insertmacro MUI_HEADER_TEXT "选择各组件的安装路径" "必须输入有效路径"
   InstallOptions::show
   Pop $R0

FunctionEnd

Function LeaveCustom
; 判断用户输入的路径是否合法。

   ReadINIStr $0 " $PLUGINSDIR \test.ini" "Field 4" "State"
   StrCmp $0 "" + 2
   IfFileExists " $0 \*"+ 3
       MessageBox MB_OK| MB_ICONSTOP "组件 A 的安装路径无效！"
       Abort

  ReadINIStr $0 " $PLUGINSDIR \test.ini" "Field 5" "State"
   StrCmp $0 "" + 2
   IfFileExists " $0 \*"+ 3
       MessageBox MB_OK| MB_ICONSTOP "组件 B 的安装路径无效！"
       Abort

  ReadINIStr $0 " $PLUGINSDIR \test.ini" "Field 6" "State"
   StrCmp $0 "" + 2
   IfFileExists " $0 \*"+ 3
       MessageBox MB_OK| MB_ICONSTOP "组件 C 的安装路径无效！"
       Abort
FunctionEnd
[/color][/font]

引用来自 2005-11-8 上午 10:46:40

[font=Fixedsys] [color=#008000]; Ini file generated by the HM NIS Edit IO designer.
[Settings]
NumFields= 6

[Field 1]
Type=Label
Text=A 组件安装路径:
Left= 8
Right= 68
Top= 6
Bottom= 13

[Field 2]
Type=Label
Text=B 组件安装路径:
Left= 5
Right= 65
Top= 44
Bottom= 51

[Field 3]
Type=Label
Text=C 组件安装路径:
Left= 8
Right= 68
Top= 82
Bottom= 89

[Field 4]
Type=DirRequest
Left= 14
Right= 253
Top= 19
Bottom= 32

[Field 5]
Type=DirRequest
Left= 14
Right= 254
Top= 57
Bottom= 70

[Field 6]
Type=DirRequest
Left= 14
Right= 254
Top= 94
Bottom= 107
[/color]

NSIS 自定义页面结合组件选择安装

问题：
如何控制一个自定义页面的显示与否，例如把一个"数据库操作"做为一个组件选项，而组件选项的下一页(即自定义页面)就是输入数据库连接信息，但是，当用户没有选择"数据库操作"这个组件时，点下一步仍然会出现输入数据库密码页面，怎样做出一个判断：当用户选择"数据库操作"时，下一页为提示输入数据库密码页面，当用户没有选择"数据库操作"时，下一页为安装页面(MUI_PAGE_INSTFILES)，即跳过了提示输入数据库密码页面。
以下是一个脚本例子，没有作数据库操作的内容，把问题简单化。 (顺便测试一下 VNISEdit 的 UBB 代码生成功能，^_^v)

引用来自 2005-11-8 上午 10:49:46

[color=#008000]/*---------------------------------------
自定义页面结合组件选择安装测试简单脚本。
-----------------------------------------*/

!include "MUI.nsh"
!include "Sections.nsh"

Name "自定义页面结合组件选择测试"
OutFile "Setup.exe"

!insertmacro MUI_PAGE_COMPONENTS
Page custom PageInitFunc PageLeaveFunc ""   # 自定义页面
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "SimpChinese"   # 设置安装界面语言

ShowInstDetails show # 显示安装进度信息

ReserveFile "io.ini" # 预先打包文件，方便安装加速释放 io.ini
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS   # 预先打包文件，方便安装加速释放

Var SHOW_PAGE   # 是否显示自定义页面

Function .onInit
   StrCpy $SHOW_PAGE "show" # 初始化设显示自定义页面, 如果你默认不打勾,请用 StrCpy $SHOW_PAGE ""
   !insertmacro MUI_INSTALLOPTIONS_EXTRACT "io.ini"   # 初始化页面
FunctionEnd

Function PageInitFunc
   StrCmp $SHOW_PAGE "show" 0 + 2 # 如果没有设置“show”则跳过下面的页面显示
   !insertmacro MUI_INSTALLOPTIONS_DISPLAY "io.ini"   # 显示页面
FunctionEnd

Function PageLeaveFunc
   MessageBox MB_OK "自定义页面离开时操作，即点击下一步后触发的事件"
FunctionEnd

Section "数据库处理(自定义页面)" SEC1
   # 所有数据库处理在这里写
   MessageBox MB_OK "“数据库处理(自定义页面)”操作内容"
SectionEnd

Section "其他操作" SEC2
# 这里填写其他组件的操作
   MessageBox MB_OK "“其他操作”操作内容"
SectionEnd

Function .onSelChange
   Push $0
     SectionGetFlags ${SEC1} $0   # 检测 SEC1 的选择状态，1为已勾选该组件
     IntOp $0 $0& ${SF_selectED} # 只过滤勾选的状态，Checkbox 的状态可能包含多位
    ;如果为 1 则设置显示自定义页面
     IntCmp $0 ${SF_selectED}showpage
       StrCpy $SHOW_PAGE "" # 设置不显示自定义页面
       Goto done
    showpage:
       StrCpy $SHOW_PAGE "show" # 设置显示自定义页面
    done:
   Pop $0
FunctionEnd
[/color]

引用来自 2005-11-8 上午 10:50:37

[Settings]
NumFields=[color=#FF0080]7

[Field 1]
Type=label
Text=SQLServer 连接?
Left= 0
Right=- 1
Top= 0
Bottom= 9

[Field 2]
Type=Text
Left= 40
Right= 163
Top= 22
Bottom= 35

[Field 3]
Type=Text
Left= 39
Right= 163
Top= 43
Bottom= 54

[Field 4]
Type=Password
Left= 39
Right= 163
Top= 62
Bottom= 75

[Field 5]
Type=Label
Text=密码:
Left= 8
Right= 36
Top= 65
Bottom= 75

[Field 6]
Type=Label
Text=账号:
Left= 8
Right= 38
Top= 46
Bottom= 56

[Field 7]
Type=Label
Text=服务器:
Left= 6
Right= 34
Top= 27
Bottom= 36

[/color]

实现 NSIS 自定义页面中的控件操作代码
问题：
NSIS 中，自定义页面中，有一个 勾选框 和 一个 目录选择编辑框，能否实现勾选 CheckBox 后，目录选择编辑框 可用，如果不勾选，目录选择编辑框 变为不可用。

问题涉及到 NSIS 中自定义页面中的关于控件的消息传递问题，还有怎样进入回调函数处理的问题。
关于自定义页面的预先声明格式： Page custom [创建函数] [离开函数] [标题]
这里解释一下，关于自定义页面的控件回调处理，原来是在 [离开函数] 中处理的。以下是一个例子。另外，要注意 控件 在自定义页面中要设置 Flags 包含 NOTIFY 属性，才可以令程序在 [离开函数] 中处理相关操作。

引用来自 2005-11-8 上午 10:52:02

[color=#008000]/*----------------------------------------/
/ 关于 NSIS 自定义页面控件操作的简单脚本。/
/----------------------------------------*/

!include "MUI.nsh"

Name "test"
OutFile "Setup.exe"

Var hwnd ; 自定义页面的窗口句柄

Page customPageInitFunc PageLeaveFunc   # 自定义页面
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "SimpChinese"   # 设置安装界面语言

ReserveFile "io.ini" # 预先打包文件，方便安装加速释放 io.ini

Function .onInit
   InitPluginsDir
  File /oname= $PLUGINSDIR\io.ini "io.ini"   ; 释放 io.ini 文件
FunctionEnd

Function PageInitFunc
   InstallOptions::initDialog /NOUNLOAD " $PLUGINSDIR \io.ini"
   Pop $hwnd             ; 获取自定义页面的窗口句柄
   InstallOptions::show   ; 显示自定义页面
   Pop $0
FunctionEnd

Function PageLeaveFunc
   ReadINIStr $0 " $PLUGINSDIR \io.ini" "Settings" "State"   ; 读取那个控件正在使用 state 就是 Field 后面的序数
   StrCmp $0 0 NextBtn   ; 点击下一步按钮
   StrCmp $0 1 CkBox   ; 点击 checkbox -- 1 为控件的 FieldNum
   Goto NextBtn
  CkBox:
     ReadINIStr $0 " $PLUGINSDIR \io.ini" "Field 1" "State"   ; 获取checkbox 状态
     GetDlgItem $1 $hwnd 1201 ; 控件句柄获取公式 (1200 + field 2 - 1)
     EnableWindow $1 $0     ; 设置状态，根据 checkbox
     GetDlgItem $1 $hwnd 1202 ; 目录设置按钮为 1200 加 1 后的控件
     EnableWindow $1 $0   ; 设置状态，根据 checkbox
;    GetDlgItem $1 $hwnd 1203 ; 如果还有控件要处理，公式变为 (1200 + field 3 - 1 + 1) 因为前面多了个浏览按钮，所以要再加 1 ，如此类推
;    EnableWindow $1 $0
     Abort     ; 禁止进入下一页面，因为点击的并不是“下一步”按钮
  NextBtn:
FunctionEnd

Section "sec a" SEC1
SectionEnd
[/color]

引用来自 2005-11-8 上午 10:52:22

[Settings]
NumFields=[color=#FF0080]3

[Field 1]
Type=Checkbox
Text=选我才能使用目录框?
Left= 22
Right= 109
Top= 1
Bottom= 17
Flags=NOTIFY
State= 1

[Field 2]
Type=DirRequest
Left= 114
Right= 275
Top= 1
Bottom= 16

[Field 3]
Type=Checkbox
Text=第 3个控件?
Left= 133
Right= 198
Top= 33
Bottom= 44
[/color]

NSIS 自定义页面结合组件选择安装（二）
以前有一个例子是一个在 .onSelChange 中实现实时设定是否显示下一个自定义页面的方法。
http://restools.hanzify.org/blogview.asp?logID=56
但是这种方法需要定义一个变量，而且需要每次点击“组件”的时候都会触发事件，显得过于累赘。下面这个例子是在下一个页面的初始化时检测组件选择，从而达到是否显示自定义页面的效果。

引用来自 2005-11-8 上午 10:53:09

[color=#008000]/*---------------------------------------
自定义页面结合组件选择安装测试简单脚本。
-----------------------------------------*/

!include "MUI.nsh"
!include "Sections.nsh"

Name "自定义页面结合组件选择测试"
OutFile "Setup.exe"

!insertmacro MUI_PAGE_COMPONENTS
Page custom PageInitFunc PageLeaveFunc ""   # 自定义页面
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "SimpChinese"   # 设置安装界面语言

ShowInstDetails show # 显示安装进度信息

ReserveFile "io.ini" # 预先打包文件，方便安装加速释放 io.ini
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS   # 预先打包文件，方便安装加速释放

Function .onInit
   !insertmacro MUI_INSTALLOPTIONS_EXTRACT "io.ini"   # 初始化页面
FunctionEnd

Function PageInitFunc
   SectionGetFlags ${SEC1} $0   # 检测 SEC1 的选择状态，1为已勾选该组件
   IntOp $0 $0& ${SF_selectED} # 只过滤勾选的状态，Checkbox 的状态可能包含多位
   IntCmp $0 ${SF_selectED}showpage hidepage hidepage
  showpage:
   !insertmacro MUI_INSTALLOPTIONS_DISPLAY "io.ini"   # 显示页面
  hidepage:
FunctionEnd

Function PageLeaveFunc
   MessageBox MB_OK "自定义页面离开时操作，即点击下一步后触发的事件"
FunctionEnd

Section "数据库处理(自定义页面)" SEC1
   # 所有数据库处理在这里写
   MessageBox MB_OK "“数据库处理(自定义页面)”操作内容"
SectionEnd

Section "其他操作" SEC2
# 这里填写其他组件的操作
   MessageBox MB_OK "“其他操作”操作内容"
SectionEnd
[/color]

引用来自 2005-11-8 上午 10:53:30

[Settings]
NumFields=[color=#FF0080]7

[Field 1]
Type=label
Text=SQLServer 连接?
Left= 0
Right=- 1
Top= 0
Bottom= 9

[Field 2]
Type=Text
Left= 40
Right= 163
Top= 22
Bottom= 35

[Field 3]
Type=Text
Left= 39
Right= 163
Top= 43
Bottom= 54

[Field 4]
Type=Password
Left= 39
Right= 163
Top= 62
Bottom= 75

[Field 5]
Type=Label
Text=密码:
Left= 8
Right= 36
Top= 65
Bottom= 75

[Field 6]
Type=Label
Text=账号:
Left= 8
Right= 38
Top= 46
Bottom= 56

[Field 7]
Type=Label
Text=服务器:
Left= 6
Right= 34
Top= 27
Bottom= 36
[/color]

使用 NSIS 作安装程序时如何检测 SQLServer 的连接正确性
当我们要安装一个后台数据库为 SQLServer 的数据库前台程序时，很多时候无可避免地要涉及到对 SQLServer 后台数据库的初始化设置操作，如何使用 NSIS 对用户输入的连接信息进行验证，然后利用这些连接信息进行数据库操作呢，如下脚本简单的实现了一个数据库连接测试的功能。

引用来自 2005-11-8 上午 10:54:15

[color=#008000]/*-----------------------------------------
SQLServer 连接测试脚本，这是最简化的脚本，基本上只做了连接测试，其他的操作，例如 数据库还原操作等等这里都没有实现。
-------------------------------------------*/

!include "MUI.nsh"

Name "SQLServer 连接操作"
OutFile "Setup.exe"

Page customPageInitFunc PageLeaveFunc ""   # 自定义页面
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "SimpChinese"   # 设置安装界面语言

ShowInstDetails show # 显示安装进度信息

ReserveFile "io.ini" # 预先打包文件，方便安装加速释放 io.ini
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS   # 预先打包文件，方便安装加速释放

Var SERVERNAME   # 服务器名 例如: server ; user5 ...... 通常是计算机名
Var LOGINNAME     # 登陆名 例如: sa ..... SQLServer 安全性属性那里的用户名
Var LOGINPASSWORD   # 登陆密码, 如果你用的是 sa 登陆，这里就要 sa 的密码
Var isql_DIR # isql.exe 的所在位置

Function .onInit
   !insertmacro MUI_INSTALLOPTIONS_EXTRACT "io.ini"   # 初始化页面
FunctionEnd

Function PageInitFunc
   !insertmacro MUI_INSTALLOPTIONS_DISPLAY "io.ini"   # 显示页面
FunctionEnd

Function PageLeaveFunc
   !insertmacro MUI_INSTALLOPTIONS_READ $SERVERNAME "io.ini" "Field 2" "State"
   !insertmacro MUI_INSTALLOPTIONS_READ $LOGINNAME "io.ini" "Field 3" "State"
   !insertmacro MUI_INSTALLOPTIONS_READ $LOGINPASSWORD "io.ini" "Field 4" "State"
   ReadRegStr $isql_DIR HKLM "SOFTWARE\Microsoft\Microsoft SQL Server\80\Tools\ClientSetup" "SQLPath"
   nsExec::ExecToStack `" $isql_DIR \Binn\isql" -S $SERVERNAME -U $LOGINNAME -P $LOGINPASSWORD -Q"select 'ok'" -o $PLUGINSDIR \result.txt`
   # 这里只是简单的测试返回值 $0 为 0 则连接通过, 为其他值则连接出错,证明账号密码等参数输入错误, 这里只是很简单的检测,较为安全的操作是读取 result.txt 文件，如果里面第 3 行 显示为 ok 则连接正常且顺利运行了一个 SQL 语句。
   Pop $0
   StrCmp $0 0 pass
   MessageBox MB_OK "连接错误，请重新输入连接信息，否则无法进行后面的操作"
   Abort
pass:
   MessageBox MB_OK "输入连接信息正确，接下来执行其他操作"
FunctionEnd

Section "-SetupFunc" SEC1
   DetailPrint "这里执行你要做的数据库操作"
   DetailPrint "isql 可以完成所有数据库操作，请看SQLServer的相关帮助"
SectionEnd
[/color]

引用来自 2005-11-8 上午 10:54:31

[Settings]
NumFields=[color=#FF0080]7

[Field 1]
Type=label
Text=SQLServer 连接?
Left= 0
Right=- 1
Top= 0
Bottom= 9

[Field 2]
Type=Text
Left= 40
Right= 163
Top= 22
Bottom= 35

[Field 3]
Type=Text
Left= 39
Right= 163
Top= 43
Bottom= 54

[Field 4]
Type=Password
Left= 39
Right= 163
Top= 62
Bottom= 75

[Field 5]
Type=Label
Text=密码:
Left= 8
Right= 36
Top= 65
Bottom= 75

[Field 6]
Type=Label
Text=账号:
Left= 8
Right= 38
Top= 46
Bottom= 56

[Field 7]
Type=Label
Text=服务器:
Left= 6
Right= 34
Top= 27
Bottom= 36
[/color]

如何把安装的卸载程序放到其他目录
问题： 如何把卸载程序放到其他地方而能够正常卸载安装的软件。

  当因为特殊原因要把卸载程序写到系统的其他目录时，我们会认为直接就是把 uninst.exe 放到其他目录就可以了，但是实际上，NSIS 在卸载时 $INSTDIR 是指向 uninst.exe 的当前目录的。所以我写了一个例子，首先，用向导生成一个基本脚本，然后修改，以下红色注释的行为修改过的。

引用来自 2005-11-8 上午 10:56:18

[color=#008000]; 该脚本使用 HM VNISEdit 脚本编辑器向导产生

; 安装程序初始定义常量
!define PRODUCT_NAME "testapp"
!define PRODUCT_VERSION "1.0"
!define PRODUCT_PUBLISHER "test, Inc."
!define PRODUCT_WEB_SITE "http://testapp.com"
!define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\testapp.exe"
!define PRODUCT_REGKEY "Software\testapp"   # 创建注册表自己程序的键
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\ ${PRODUCT_NAME} "
!define PRODUCT_UNINST_ROOT_KEY "HKLM"

Name " ${PRODUCT_NAME} ${PRODUCT_VERSION} "
OutFile "Setup.exe"
LoadLanguageFile " ${NSISDIR} \Contrib\Language files\SimpChinese.nlf"
InstallDir " $PROGRAMFILES \testapp"
Icon " ${NSISDIR} \Contrib\Graphics\Icons\modern-install.ico"
UninstallIcon " ${NSISDIR} \Contrib\Graphics\Icons\modern-uninstall.ico"
InstallDirRegKey HKLM " ${PRODUCT_UNINST_KEY} " "UninstallString"
DirText "安装程序将安装 $(^Name) 在下列文件夹。 $ \r $ \n $ \r $ \n要安装在不同文件夹，单击 [浏览] 并选择其他文件夹。"
ShowInstDetails show
ShowUnInstDetails show

Section "MainSection"SEC01
   SetOutPath " $INSTDIR "
   SetOverwrite ifnewer
   File "/oname=testapp.exe" "C:\Program Files\NSIS\NSIS.exe"   # 把 NSIS.exe 改名作为测试例子程序
   createDirectory " $SMPROGRAMS \测试安装"
   createShortCut " $SMPROGRAMS \测试安装\testapp.lnk" " $INSTDIR \testapp.exe"
SectionEnd

Section -AdditionalIcons
   createShortCut " $SMPROGRAMS \测试安装\Uninstall.lnk" " $WINDIR \uninst_testapp.exe" # 卸载程序的路径也要改
SectionEnd

Section -Post
   WriteUninstaller " $WINDIR \uninst_testapp.exe"   # 把卸载程序放到了 "C:\Windows" ，注意，放到可能造成重复文件的地方，一定要把卸载程序改为特殊的名字，防止给另外的卸载程序覆盖。
   WriteRegStr HKLM " ${PRODUCT_DIR_REGKEY} " "" " $INSTDIR \testapp.exe"
   WriteRegStr HKLM " ${PRODUCT_REGKEY} " "" " $INSTDIR " # 写入安装时的安装路径。
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} " "DisplayName" " $(^Name) "
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} " "UninstallString" " $WINDIR \uninst_testapp.exe" # 卸载程序的路径也要改
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} " "DisplayIcon" " $INSTDIR \testapp.exe"
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} " "DisplayVersion" " ${PRODUCT_VERSION} "
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} " "URLInfoAbout" " ${PRODUCT_WEB_SITE} "
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} " "Publisher" " ${PRODUCT_PUBLISHER} "
SectionEnd

Function un.onUninstSuccess
   HideWindow
  MessageBox MB_ICONINFORMATION| MB_OK " $(^Name) 已成功地从你的计算机移除。"
FunctionEnd

Function un.onInit
   MessageBox MB_ICONQUESTION| MB_YESNO| MB_DEFBUTTON2 "你确实要完全移除 $(^Name) ，其及所有的组件？" IDYES + 2
   Abort
FunctionEnd

Section Uninstall
   ReadRegStr $INSTDIR HKLM " ${PRODUCT_REGKEY} " ""
   # 在注册表中强行读入安装路径到变量 $INSTDIR，因为卸载程序默认只认为自己所在路径为 $INSTDIR 路径
   delete " $WINDIR \uninst_testapp.exe" # 卸载程序的路径也要改
   delete " $INSTDIR \testapp.exe"

   delete " $SMPROGRAMS \测试安装\Uninstall.lnk"
   delete " $SMPROGRAMS \测试安装\testapp.lnk"

   RMDir " $SMPROGRAMS \测试安装"

   RMDir " $INSTDIR "

   deleteRegKey ${PRODUCT_UNINST_ROOT_KEY} " ${PRODUCT_UNINST_KEY} "
   deleteRegKey HKLM " ${PRODUCT_DIR_REGKEY} "
   SetAutoClose true
SectionEnd
[/color]

关于如何打破 NSIS 的 8192 字节限制
所以我写了个插件。打破这个限制。如下：下载插件，附插件源码，里面有例子脚本。在这里先附上例子脚本。
----已找到更加简单的方法来实现这个功能，请看 [关于打破 NSIS 的 8192 字节限制的更简单方法]
---- 这里作为一个功能测试的另类方法吧。

引用来自 2005-11-8 上午 10:57:12

[color=#008000]/*----------------------------------------------/
/ 关于 NSIS 自定义控件写入超过 8192 字节的插件。/
/ 理论上如果控件能够容纳，多大的文本都能放入    /
/----------------------------------------------*/

!include "MUI.nsh"

Name "test"
OutFile "Setup.exe"

SetCompressor lzma   ; 设置 lzma 压缩方式

Var hwnd ; 自定义页面的窗口句柄

Page customPageInitFunc PageLeaveFunc   # 自定义页面
!insertmacro MUI_PAGE_INSTFILES

!insertmacro MUI_LANGUAGE "SimpChinese"   # 设置安装界面语言

ReserveFile "io.ini" # 预先打包文件，方便安装加速释放 io.ini
ReserveFile "license.txt" # 预先打包文件，方便安装加速释放 io.ini

Function .onInit
   InitPluginsDir
  File "/oname= $PLUGINSDIR \io.ini" "io.ini"   ; 释放 io.ini 文件
   File "/oname= $PLUGINSDIR \license.txt" "license.txt"   ; 释放 license.txt 文件
FunctionEnd

Function PageInitFunc
   InstallOptions::initDialog /NOUNLOAD " $PLUGINSDIR \io.ini"
   Pop $hwnd             ; 获取自定义页面的窗口句柄
   GetDlgItem $1 $hwnd 1200 ; 控件句柄获取公式 (1200 + field 1 - 1)
   nsExStr::SetWindowText $1 " $PLUGINSDIR \license.txt"   ; 写入一个超过 8012 字节的文件到一个控件，我这里写入的是一个超过 30KB 的文本文件。理论上大小没有限制，只要控件能够接受多大，它就能有多大。
   InstallOptions::show   ; 显示自定义页面
   Pop $0
FunctionEnd

Function PageLeaveFunc
FunctionEnd

Section "sec a" SEC1
SectionEnd
[/color]

引用来自 2005-11-8 上午 10:57:45

[Settings]
NumFields=[color=#FF0080]1

[Field 1]
Type=Text
Flags=MULTILINE|VSCROLL
State=Text
Left= 2
Right= 299
Top= 3
Bottom= 137
[/color]

nsExStr::SetWindowText 调用格式：
nsExStr::SetWindowText [控件窗口句柄] [想加入控件中的文本文件]
返回值： $0 如果是 0 是正常返回，如果是 1 则执行错误。
抛弃那个 NSIS 的编译特别版吧，实在是限制多多，最大也不过是 8192 字节，对于我来说，那是不能满足的。
有了这个插件，你将可以在任何的控件中放入超大文本，你可以预先打包文件，例如协议之类的文本文件，也可以动态写入一个文本文件，然后调用这个插件来把文本写入一个控件
本来如果这个控件用 VC++ 来写可以很小的，无奈偶的 VC++ 本事实在太差，而 Delphi 的代码却是如此的简单，在 exdll.dll 的基础上只加了不到 10 句，这是 VC++ 无法相比的。而且相信在 lzma 的强大压缩之下，当安装文件越来越大时，这个损耗会越来越小。
尽管如此，偶测试过，用 lzma 算法压缩，安装程序只增加了 28 KB 不到。我想如果要我在 VC++ 里面大费周章，我想我还是增加 28 KB 字节算了。

使用方法：把 nsExStr.dll 文件放到 plugins 中，然后就可以像调用其他插件那样做了。
插件下载： http://restools.hanzify.org/nsis/nsExStr.zip

关于打破 NSIS 的 8192 字节限制的更简单方法
上次那个要做一个插件，花去了二十几个 KB，对于更加节省资源，这里提供一个更简单的方法，无需插件。生成安装文件更加的小。
看来偶的功力还有待提升，否则每次做无用功，还真是无趣呢~~  

引用来自 2005-11-8 上午 10:59:55

[color=#008000]/*----------------------------------------------/
/ 关于 NSIS 自定义控件写入超过 8192 字节的插件。/
/ 理论上如果控件能够容纳，多大的文本都能放入    /
/----------------------------------------------*/

!include "MUI.nsh"
!include "LogicLib.nsh"

Name "test"
OutFile "Setup.exe"

SetCompressor lzma   ; 设置 lzma 压缩方式

Var hwnd ; 自定义页面的窗口句柄

Page customPageInitFunc ""   # 自定义页面
!insertmacro MUI_PAGE_INSTFILES   # 安装过程页面

!insertmacro MUI_LANGUAGE "SimpChinese"   # 设置安装界面语言

ReserveFile "io.ini" # 预先打包文件，方便安装加速释放
ReserveFile "license.txt" # 预先打包文件，方便安装加速释放

Function .onInit
   InitPluginsDir
  File "/oname= $PLUGINSDIR \io.ini" "io.ini"   ; 释放 io.ini 文件
   File "/oname= $PLUGINSDIR \license.txt" "license.txt"   ; 释放 license.txt 文件，该文件是一个超过 30 KB 的文本文件
   FunctionEnd

Function PageInitFunc
   InstallOptions::initDialog /NOUNLOAD " $PLUGINSDIR \io.ini"
   Pop $hwnd             ; 获取自定义页面的窗口句柄
   GetDlgItem $1 $hwnd 1200 ; 控件句柄获取公式 (1200 + field 1 - 1)
   Push " $PLUGINSDIR \license.txt" # 在堆栈中压入 大文本文件
   Push $1         # 在堆栈中压入 控件句柄
   Call ShowText   # 调用过程，在控件中加入大文本
   InstallOptions::show   ; 显示自定义页面
   Pop $0
FunctionEnd

Function ShowText
# 如果你对程序设计不熟悉，那么你可以不用理解这个过程，把它复制到你的脚本中就可以了。
   Exch $R0 ;控件句柄
   Exch
  Exch $R1 ;文件
   Push $R2
   Push $R3
   Push $R4
   Push $R5

   ClearErrors
  FileOpen $R2 $R1 r ;$R2 = 文件句柄
   ${Unless} ${Errors} ;确保打开文件没有发生错误
     System::Call /NOUNLOAD "Kernel32::GetFileSize(i, i) i (R2, 0) .R3" ;$R3 = 文件大小
     IntOp $R3 $R3+ 1
     System::Alloc /NOUNLOAD $R3 ;分配内存
     Pop $R4 ;内存地址
       ${If} $R4 U> 0 ;确保分配了内存
           System::Call /NOUNLOAD "*(i 0) i .R5"
           System::Call /NOUNLOAD `Kernel32::ReadFile(i, i, i, i, i) i (R2, R4R4, R3, R5R5, 0)`
           System::Call /NOUNLOAD "* $R5 (i .R1)"
           ${If} $R1 > 0
             System::Call /NOUNLOAD "User32::SendMessage(i, i, i, i) i (R0, ${WM_SETTEXT} , 0, R4)"
           ${EndIf}
           System::Free /NOUNLOAD $R5
         System::Free $R4 ;释放内存
     ${EndIf}
     FileClose $R2
  ${EndUnless}

     Pop $R5
     Pop $R4
     Pop $R3
     Pop $R2
     Pop $R1
   Pop $R0
FunctionEnd

Section "sec a" SEC1
SectionEnd
[/color]

引用来自 2005-11-8 上午 11:00:23

[Settings]
NumFields=[color=#FF0080]1

[Field 1]
Type=Text
Flags=MULTILINE|VSCROLL
State=Text
Left= 2
Right= 299
Top= 3
Bottom= 137
[/color]