Hallo,
ich versuche einen REG_BINARY-Wert in die Regsitry zu schreiben, es kommt aber der falsche Wert in der Registry an.
Private Sub Command1_Click()
Dim v As String
v = "06,00,00,00,00,00,00,00,ff,ff,ff,ff,00,00,00,00"
' = CInt(v)
WriteBinaryToRegistry HKEY_CURRENT_USER, _
"Software\Intergraph\AOMClient\GeoMedia Professional\06.01\PreferenceSet", _
"ConfirmDeletions", v
End Sub
Private Function WriteBinaryToRegistry(Hkey As REG_TOPLEVEL_KEYS, strPath As String, strValue As String, binData As Variant) As Boolean
Dim bAns As Boolean
On Error GoTo ErrorHandler
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
If r = 0 Then
r = RegSetValueEx(keyhand, strValue, 0, _
REG_BINARY, binData, Len(binData))
r = RegCloseKey(keyhand)
End If
WriteBinaryToRegistry = (r = 0)
Exit Function
ErrorHandler:
WriteBinaryToRegistry = False
Exit Function
Das funktioniert soweit, nur steht in der Registry hinterher der Falsche wert für „v“
08,40,00,00,00,00,00,00,20,f4,13,00,00,00,00,00,bc,b5,\
20,00,14,10,1a,00,01,00,00,80,4c,db,1b,00,b4,f4,13,00,84,f5,13,00,01,00,00,\
00,00,00,00
Wie muss ich „v“ umwandeln, damit der exakte Wert in der Registry ankommt?
