Private Sub RegistryEintragSetzen()
 
DwordSpeichern("Irgendwas", "MeinWert", "fffffff3")
 
End Sub
 
 
Public Sub DWordSpeichern(ByVal Pfad As String, ByVal Key As String, ByVal _
  Value As String)
Dim MeinKey As RegistryKey
 
Value = HexWertInDezimalUmrechnen(Value)
 
MeinKey = Registry.CurrentUser.OpenSubKey(Pfad, True)
MeinKey.SetValue(Key, Value, RegistryValueKind.DWord)
MeinKey.Close()
 
End Sub
 
 
Public Function HexWertInDezimalUmrechnen(ByVal HexWert As String) As Long
 
Dim lngDezimal As Long
lngDezimal = CLng("&H" & HexWert)
 
Return lngDezimal
 
End Function

EALA FREYA FRESENA

Beitrag wurde zuletzt am 26.03.14 um 15:01:38 editiert.