[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 showShowUnInstDetails showSection "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"SectionEndSection -AdditionalIcons  createShortCut "$SMPROGRAMS\测试安装\Uninstall.lnk" "$WINDIR\uninst_testapp.exe" # 卸载程序的路径也要改SectionEndSection -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}"SectionEndFunction un.onUninstSuccess  HideWindow  MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地从你的计算机移除。"FunctionEndFunction un.onInit  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "你确实要完全移除 $(^Name) ，其及所有的组件？" IDYES +2  AbortFunctionEndSection 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 trueSectionEnd

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