[inno setup]如何把安装的卸载程序放到其他目录

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

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

; 该脚本使用 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

转帖： http://restools.hanzify.org/article.asp?id=35