安装包卸载时如何删除安装时写在系统环境变量中的内容

admin

在用InstallShield制作安装包时，有时我们会在脚本中通过操作注册表，配置系统环境变量，比如在Path中追加，但卸载时如何清除追加的路径变量，一直有些模糊。

1. function OnBegin()  
   
2.     STRING svSearchPath;
   
3. begin
   
4.     // Set up the search path to pass as a parameter to PathSet.
   
5.     svSearchPath = "C:\\DOS;C:\\WINDOWS;C:\\TEMP;" +
   
6.                    "D:\\Program Files\\Kevin Wan\\InstallShield;" +
   
7.                    "C:\\EXAMPLE\\SOURCE;D:\\WORK\\TEMP";
   
8. 
   
9.     // Initialize the path buffer.
   
10.     PathSet (svSearchPath);
    
11. 
    
12.     // Display the initial search path.
    
13.     // Delete D:\Program Files\Kevin Wan\InstallShield from the path buffer.                     
    
14.     if (PathDelete ("Kevin Wan", PARTIAL) <0) then   
    
15. 
    
16.         MessageBox ("First call to PathDelete failed.", SEVERE);
    
17.     endif;
    
18. 
    
19.     // Get the search path from the path buffer; this call also releases
    
20.     // the memory allocated for the path buffer.
    
21. 
    
22.     PathGet (svSearchPath);
    
23.     MessageBox(svSearchPath, INFORMATION);
    
24. end;

复制代码

这里我将Sample添加到了事件响应函数OnBegin中，大家实际操作时可以写到OnUninstall中。

Sample中我删除了和Kevin Wan相关的路径，但也要注意，这里最好选择唯一标示的字符串，否则可能会把其他程序写入的路径变量也同时删除了。

1. STRING  szKey , svValue;
   
2. NUMBER nvType , nvSize;
   
3. 
   
4. begin
   
5.     szKey = "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment";
   
6.     RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);
   
7.     if(RegDBGetKeyValueEx(szKey,"Path",nvType,svValue,nvSize)=0) then           //读取Path
   
8.         svValue = "C:\\ABC;" + svValue; //添加路径
   
9.         if(RegDBSetKeyValueEx(szKey, "Path", REGDB_STRING, svValue, -1)<0) then //更新Path
   
10.             MessageBox ("Path add failed!", SEVERE);
    
11.         endif;
    
12.     endif;
    
13. end;

复制代码

这样添加的话卸载的时候会产生一个问题，那就是整个Path变量都被删掉了（不是清空，而是整个删除）。解决办法有二：

1.首先你在你写path的那句话前后加上Disable(LOGGING); Enable(LOGGING);，表示阻止掉IS的安装日志，这样就不会记录你的动作，卸载时候也不会卸载掉path了
2.在卸载那里自己写脚本，读到path后去掉你自己的路径C:\ABC，然后再设回去。