如何阻止Visual Studio创建的MSI安装程序卸载时删除环境变量？

问题核心 #

你通过VS Installer Projects创建的MSI安装程序，会在卸载时自动删除它创建的环境变量，但你需要保留该变量供其他程序使用。此前尝试在BeforeUninstall事件备份变量、AfterInstall事件恢复的方法无效，因为MSI后续的清理流程仍会删除变量，且未正确刷新系统环境。

可行解决方案 #

1. 取消MSI对环境变量的管理，改用自定义动作维护 #

VS Installer Projects自带的环境变量配置会绑定到组件，卸载时MSI会自动清理组件关联的注册表项（环境变量存储于HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment）。改用自定义动作手动管理变量，可避免MSI自动删除：

• 移除Installer Projects中所有与该环境变量相关的配置；
• 创建自定义动作（如VBScript或C#控制台程序），在安装阶段写入/更新环境变量到注册表；
• 卸载阶段不添加删除变量的动作，或仅在变量是当前程序唯一设置来源时删除（可额外在注册表存一个标记，记录变量归属）。

示例VBScript（安装时设置变量）：

Set WshShell = CreateObject("WScript.Shell")
Set sysEnv = WshShell.Environment("SYSTEM")
' 设置环境变量，若已存在可根据需求选择覆盖或追加
sysEnv("YOUR_VAR_NAME") = "C:\Your\Target\Path"
' 刷新系统环境变量，重启Explorer让变量生效
WshShell.Run "cmd /c setx YOUR_VAR_NAME ""C:\Your\Target\Path"" /m", 0, True
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='explorer.exe'")
For Each objProcess in colProcesses
    objProcess.Terminate()
Next

2. 标记环境变量对应的组件为“永久” #

MSI组件的Permanent属性设为True后，卸载时不会删除该组件关联的所有资源（包括注册表项）：

• 在VS Installer Projects的Components视图中，找到关联环境变量的组件；
• 右键该组件，打开属性窗口，将Permanent设置为True。

注意：此方法会让该组件的所有资源永久保留，后续若需更新变量，需确保重装时能正确覆盖；且用户手动删除变量后，重装会自动恢复该变量。

3. 调整自定义动作执行时机并正确刷新环境 #

之前的方法失效是因为动作时机不对，MSI的环境变量清理在卸载后期执行，需在卸载完成后恢复变量，并刷新系统环境：

• 创建VBScript自定义动作，绑定到AfterUninstall阶段执行；
• 先在BeforeUninstall阶段将变量备份到其他注册表路径，卸载完成后恢复变量并刷新系统环境。

示例备份+恢复脚本：

Set WshShell = CreateObject("WScript.Shell")
Set sysEnv = WshShell.Environment("SYSTEM")
Dim backupRegPath : backupRegPath = "HKLM\SOFTWARE\YourAppBackup\Env"

' 卸载后恢复变量（绑定到AfterUninstall事件）
sysEnv("YOUR_VAR_NAME") = WshShell.RegRead(backupRegPath & "\YOUR_VAR_NAME")
' 刷新系统环境变量
WshShell.Run "cmd /c setx YOUR_VAR_NAME """ & sysEnv("YOUR_VAR_NAME") & """ /m", 0, True
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='explorer.exe'")
For Each objProcess in colProcesses
    objProcess.Terminate()
Next

操作注意事项 #

• 所有自定义动作需配置为管理员权限执行：在项目属性中设置InstallPrivileges为elevated；
• 添加自定义动作时，确保脚本文件的Build Action设为Content，且在Custom Actions中正确绑定到对应事件（Install/BeforeUninstall/AfterUninstall）。

内容的提问来源于stack exchange，提问作者Rena821