如何得到一个已经安装的程序的安装路径？

如何得到一个已经安装的程序的安装路径？ --------------------编程问答-------------------- app.apth? --------------------编程问答-------------------- 安装的程序在注册表中都有登记，只要知道程序的名称，查询注册表就可以知道是否安装过了。 --------------------编程问答-------------------- ceagle兄，别人是要安装过的程序的路径，不是程序自己的路径。 --------------------编程问答-------------------- peckerlu
   安装的程序在注册表中都有登记，只要知道程序的名称，查询注册表就可以知道是否安装过了。
  

那具体方法呢？
能查到安装路径么 --------------------编程问答-------------------- 呵呵，没看清 --------------------编程问答-------------------- 参考这个帖子：
http://community.csdn.net/Expert/topic/5110/5110490.xml?temp=.8274652 --------------------编程问答-------------------- 没看出来那个帖子有什么参考价值 --------------------编程问答-------------------- 比如找winword.exe：

Private Sub Command1_Click()
Dim WSH As Object, exepath As String
exepath = "winword.exe"
Set WSH = CreateObject("Wscript.Shell")
MsgBox WSH.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\" & exepath & "\Path")
Set WSH = Nothing
End Sub

补充：VB ,  基础类