怎样得出程序的安装路径

Question

请问怎样得出程序的安装路径？比如OFFICE的，都是按默认选项安装的，有的2000系统安装在C上，有的操作系统安装在D上，请给出能用方法。

Answer 1

如果你只是想打开文档可以用这种方法:
Option ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()
    ShellExecute Me.hwnd, "Open", "C:\Downloads\大连实德门业查询系统设计方案.doc", vbNullString, vbNullString, 0
End Sub

Answer 2

HKEY_LOCAL_MACHINE\\Software\\Microsoft\\Office\\键值及子键中的内容