Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: GerhardK am 29.05.06 - 15:53:10
-
Hallo Zusammen,
ich möchte die in einem Registry Wert gespeicherte Pfadangabe lesen. Folgender Code funktionierte bis vor kurzem mit meinen NotesClient und funktioniert in Excel weiterhin prima. Leider zeigt mir Notes jetzt nur noch einen Leerstring.
Wie kann das sein?
Gruß Gerhard
----8<-----------------------------
Declare Function RegCloseKey Lib "advapi32.dll" (Byval HKey As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (Byval HKey As Long, _
Byval lpSubKey As String, Byval ulOptions As Long, Byval samDesired As Long, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (Byval hKey As Long, _
Byval lpValueName As String, Byval lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Function RegKeyRead(SubKey As String,Eintrag As String,Wert As Variant)
Dim RetVal As Long
Dim phkResult As Long
Dim HKey As Long
Dim Anzahl As Long
Wert = Space(255)
Anzahl=255
RetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, SubKey, 0, KEY_QUERY_VALUE, HKey)
RetVal = RegQueryValueEx(HKey, Eintrag, 0, REG_SZ, Wert, Anzahl)
Wert = Mid(Wert, 1, Anzahl-1)
If RetVal=0 Then
RegKeyRead=1
Else
RegKeyRead=0
End If
RetVal = RegCloseKey(HKey)
End Function
----8<-----------------------------
-
Warum so umständlich ? Da gibts seit R5 doch eine Formel für :
@RegQueryValue
-
Hallo Ingo,
und wie verwende ich diese in Lotus Script?
Gruß Gerhard
-
Sollte mit Evaluate gehen.
-
Hier http://atnotes.de/index.php?topic=24232.0 findest du ein Beispiel, wie man die @ Formel mit evaluate verwendet
-
;)
Danke schön. So gehts.
Dennoch bleibt die Frage warum funktionierte der alte Code nicht mehr, der schon ewig lief?
Gruß Gerhard
-
Die Feststellung habe ich auch schon gemacht; das ist von der Windows Version abhängig und teilweise sogar von installierten Hotfixes, Patches, den Gezeiten und was weiß ich noch.