Verfasst: 07.10.2006 17:55
Ja, dann kann ich dir auch nicht helfen, da gibt es den Key wohl nicht.
Kannst du ja mal mit dem Editor nachsehen.
Kannst du ja mal mit dem Editor nachsehen.
Code: Alles auswählen
; Testprogramm für Binary
testkey.s="TestBinary"
testbin.s="EinBinary"
; Font wird für das Fenster unten benötigt
#Font=0
LoadFont(#Font,"Arial",10)
; den Subkey erstellen
Debug JHRegCreateKey(#HKEY_CURRENT_USER,testkey)
; das Value erstellen und mit Werten belegen
Length.l = 32
Restore BinaryTest ; Data
*MID = AllocateMemory(Length)
For a=0 To 31
Read b
PokeB(*MID+a,b)
Next a
If *MID; wenn ein gültiger Speicher festliegt
Debug JHRegSetBinary(#HKEY_CURRENT_USER,testkey,testbin,Str(*MID),#False)
FreeMemory(*MID)
EndIf
; Das binäre Value auslesen auf unterschiedliche Weise
; gibt einen HEX!!! String zurück mit dem Inhalt
Debug JHRegGetValue(#HKEY_CURRENT_USER,testkey,testbin)
; gibt die Adresse eines Speichers zurück, wo der Inhalt abgelegt wurde
; nachfolgende Verarbeitung wie man es braucht
*MID=JHRegGetBinary(#HKEY_CURRENT_USER,testkey,testbin)
If *MID
For I = 0 To MemorySize(*MID)-1
Debug PeekB(*MID + I) & $FF ; wegen signierter Variable!
Next
FreeMemory(*MID)
EndIf
; gibt ein Fenster aus, wo der Inhalt in Form eines Dump aufgelistet wird
; kann man benutzen wenn man nur sehen will was drin steht, nicht geeignet
; zu Weiterverarbeitung
JHRegGetBinaryDump(#HKEY_CURRENT_USER,testkey,testbin,#Font)
; den SubKey wieder entfernen
Debug JHRegDeleteKey(#HKEY_CURRENT_USER,testkey)
End
; Binary Test
DataSection
BinaryTest:
Data.l 77, 65, 68, 69, 0, 73, 78, 0
Data.l 83, 65, 88, 79, 78, 89, 0, 0
Data.l 67, 72, 69, 77, 78, 73, 84, 90
Data.l 0, 0, 0, 0, 0, 0, 0, 0
EndDataSection