AW: PDF in Userform
24.07.2008 14:54:32
Kawensmann
Hallo,
folgendes habe ich mir mal im Netz zusammengesucht um den Reader-Pfad zu finden:
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal dwReserved As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" ( _
ByVal hKey As Long, _
ByVal lpValueName$, _
ByVal lpdwReserved As Long, _
lpdwType As Long, _
lpData As Any, _
lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" ( _
ByVal hKey As Long) As Long
Function GetRegistryStr(hRegRoot As Long, ByVal sSubKey As String, ByVal sKey As String) As _
String
Dim hSubKey As Long, regType As Long, sRet As String, ret As Long, n As Long
ret = RegOpenKeyEx(hRegRoot, sSubKey, 0, &H3F, hSubKey)
If ret 0 Then Exit Function
n = 255
sRet = String(n, 0)
ret = RegQueryValueEx(hSubKey, sKey, 0, regType, ByVal sRet, n)
If ret = 0 And regType = 1 Then
GetRegistryStr = Left$(sRet, n - 1)
End If
ret = RegCloseKey(hSubKey)
End Function
Function PDFViewer() As String
PDFViewer = GetRegistryStr(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\ _
App Paths\AcroRd32.exe", "Path")
If PDFViewer "" Then PDFViewer = PDFViewer + "\AcroRd32.exe"
End Function
Gruß
Kawensmann