一个小问题请高手指点!!!!!
一个小程序,判断PC机里是否安装AcroRd32.exe,如安装则启动某一PDF文件,否则
安装AcroRd32.exe的SETUP。在zyl910(910) 网友的指点下用以下代码,但怎样提取安装路径??
????!!!
声明API函数
RegOpenKeyEx
RegQueryValueEx
RegCloseKey
Const HKEY_LOCAL_MACHINE = &H80000002
Private Sub Form_Load()
Dim PathStr As String
If RegGetStr(HKEY_LOCAL_MACHINE, _
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\Acrord32.exe", _
"Path", PathStr) Then
'已安装的代码
' 在此怎样提取安装路径???!如安装路径为"D:\Reader\AcroRd32.exe"
Else
'未安装的代码
End If
End Sub
Public Function RegGetStr(MainKey As Long, SubKey As String, KeyName As String, OutData As String) As Long
Dim hKey As Long
Dim TempStr As String
Dim StrLen As Long
Dim KeyType As Long
Dim Rc As Long
StrLen = 260
TempStr = String$(StrLen, Chr$(0))
Rc = RegOpenKeyEx(MainKey, SubKey, 0, KEY_ALL_ACCESS, hKey)
'Debug.Print "Load1:" & Rc
If Rc = 0 Then
Rc = RegQueryValueEx(hKey, KeyName, 0, KeyType, ByVal TempStr, StrLen)
If KeyType <> REG_SZ Then
RegGetStr = -1
Exit Function
End If
'Debug.Print "Load2: " & Rc
If Rc = 0 Then
OutData = Left$(TempStr, StrLen)
Else
RegGetStr = Rc
End If
RegCloseKey hKey
Else
RegGetStr = Rc
End If
End Function