Binären Registry-Eintrag setzen

12/06/2009 - 19:44 von Norbert Pürringer | Report spam
Liebe Leute,

kann mir jemand sagen, wie man mit VB 6 einen binàren Registry-Eintrag
setzen kann?

Es muss folgender Wert gesetzt werden:

Typ = REG_BINARY
Value = 04 00 00 00 00 00 00 00 00 00 00 00 d0 12 63 41

Dieser binàre Wert stellt einfach die Zahl 10000000 dar.

Am liebsten wàre es mir, wenn der Integer-Wert (z.B. 10000000 ) in
eine binàre Zahl umgewandelt wird und dann diese binàre Zahl in der
Registry eingetragen wird.

Ich bin aber schon froh darüber, die oben dargestellte binàre Zahl 1:1
in die Registry zu bekommen.

Danke,
Norbert
 

Lesen sie die antworten

#1 Thorsten Albers
12/06/2009 - 20:42 | Warnen spam
Norbert Pürringer schrieb im Beitrag
...
Es muss folgender Wert gesetzt werden:
Typ = REG_BINARY
Value = 04 00 00 00 00 00 00 00 00 00 00 00 d0 12 63 41
Dieser binàre Wert stellt einfach die Zahl 10000000 dar.

Am liebsten wàre es mir, wenn der Integer-Wert (z.B. 10000000 ) in
eine binàre Zahl umgewandelt wird und dann diese binàre Zahl in der
Registry eingetragen wird.



Grundsàtzlich ist hier RegSetValueEx() Dein Freund beim Speichern der Daten
in der Registry.

Das ganze ist ein bischen unklar: Gibt es irgendeine bestimmte
Typen-Vorgabe? Der Wert 10.000.000 làßt sich problemlos in einem
VB-Long-Wert unterbringen und kann somit in der Registry als einfacher
DWORD-Wert gespeichert werden.

lValue = 10000000
...
lResult = RegSetValueEx(hKey, ByVal "MyValue", ByVal 0, _
ByVal REG_DWORD, _
ByRef lValue, ByVal Len(lValue))
...

Muß der Wert unbedingt als Binàr-Wert gespeichert werden, so steht dennoch
ja offenbar das Format frei. Dann reicht folgendes:

lValue = 10000000
...
lResult = RegSetValueEx(hKey, ByVal "MyValue", ByVal 0, _
ByVal REG_BINARY, _
ByRef lValue, ByVal Len(lValue))
...

In der Registry steht dann, hexadezimal dargestellt:
80 96 98 00

Über die Verwendung von RegSetValueEx() findest Du weitere Informationen in
der VB-MSDN-Online-Hilfe.

Thorsten Albers

albers (a) uni-freiburg.de

Ähnliche fragen