Korse68
Newbie
Anmeldedatum: 25.03.2009
Beiträge: 1
|
REG_BINARY-Wert in die Regsitry schreiben
Verfasst am: 25.03.2009, 07:51 |
|
|
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? |
|
Registrieren
Login
