如何找到一个程序的安装位置？

徒然客

 比如我在电脑上安装了winrar这个软件。有时候我会安装在D盘或者其他的位置，并不一定就会安装在C盘的Program Files目录下面。那么我要在编程中通过什么方法，找到程序软件的安装位置？

yvhf

老板，用api去返回WINRAR在注册中的程序路径信息，具体做法，忘了

northwolves

访问注册表

徒然客

如果这个软件是绿色软件？方方面面都要考虑一些啊。

相关的API函数是什么？我找了半天没有找到？

northwolves

Sub GetWINRARPath()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
MsgBox "WINRAR安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\winrar.EXE\Path")
End Sub

northwolves

'EXCEL安装路径

Sub GetEXCELPath()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
MsgBox "EXCEL安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE\Path")
End Sub

徒然客

不错的方法，在XP系统下通过了，谢谢楼上了。

yoyoooer

InstallShield windows是基于Windows平台的为软件发行方提供领先的基于windows的安装程序解决方案，能够制作强大可

靠的Windows Installer（MSI）、InstallScript以及跨平台的安装程序。InstallShield windows能够制作带有直接安装向导

和专门视图的安装程序，全面的控制用户的安装过程。
这里有详细的介绍和各种资料下载http://www.xlsoft.com.cn/product.asp?fid=240&action=1&id=241

（该图片超链接指向http://www.xlsoft.com.cn/index.asp）

[此贴子已经被作者于2007-3-7 10:30:22编辑过]

冰山上的来客

QUOTE:

以下是引用northwolves在2006-11-25 10:45:15的发言：

'EXCEL安装路径

Sub GetEXCELPath()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
MsgBox "EXCEL安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE\Path")
End Sub

遇到有的程序安装后并没有在注册表的这个("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths项目下进行注册.而是在另外一个项目下有相关的信息:如图所示.不知道该如何读取反显的数据?

YDH318

MsgBox "程序安装路径：" & WSH.RegRead("HHKEY_CURRENT_USER\Software\SSSoft\CLIENTPart")

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\SSSoft]

"CLIENTPart"="C:\\SSSoft\\CLIENT"

这个提示根路径无效 为何