如何得到软件的安装目录？--------------------急！！

比如我机子中装了qq,如何检测出他的安装目录？？？？？

---------------------------------------------------------------
---------------------------------------------------------------

我写的一个函数：（大小写请自己判断一下）
Private Sub MyGetFileDir(ByVal mName As String, ByVal mPath As String)
Try
'查找文件
Dim files() As String = Directory.GetFiles(mPath)
Dim file As String
For Each file In files
If InStr(file, mName) > 0 Then
MessageBox.Show(file)
End If
Next
'查找文件夹
Dim dirs() As String = Directory.GetDirectories(mPath)
Dim dir As String
For Each dir In dirs
MyGetFileDir(mName, dir)
Next
Catch ex As Exception
Console.WriteLine("The process failed: {0}", ex.ToString())

End Try
End Sub

调用：
MyGetFileDir("QQ.exe", "C:")

---------------------------------------------------------------

可以通过检测注册表中安装的文件目录来处理，通常软件都有一个卸载程序，安装的软件目录一般都在注册表中的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall下面。

可以使用Microsoft.Win32命名空间下的RegistryKey类来处理注册表。