XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry_ Binärwerte schreiben
PROFAN²-NT-TEAM-Vorlage
Autor: Maik Strohfeldt, MS Group Software
Titel: Binärwerte in Registry schreiben
Beschreibung: Zeigt, wie man Binärwerte in die Windows-Registry schreibt.
Copyright © 2001 Maik Strohfeldt, mail@msgroup.de
Anmerkung: Geschrieben wird in HKCUSoftwarePROFAN-NT-TEAMRegistry
Def RegOpenKeyEx(5) !ADVAPI32,RegOpenKeyExA
Def RegSetValueEx(6) !ADVAPI32,RegSetValueExA
Def RegCloseKey(1) !ADVAPI32,RegCloseKey
Declare Handle#,Schluessel#,Wert#,result%
Dim Handle#,4
Dim Schluessel#,255
Dim Wert#,4             4 = Anzahl der zu schreibenden Bytes!
String Schluessel#,0=SoftwarePROFAN²-NT-TEAMRegistry2
Declare Name#
Dim Name#,255add(len(Binärer Eintrag),1)
String Name#,0=Binärer Eintrag
Long Wert#,0=$31303032
result%=0
WriteIni HKEY_1,SoftwarePROFAN²-NT-TEAMRegistry2,Hinweis=Das ist ein Probeschlüssel!
Add(result%,RegOpenKeyEx($80000001,Schluessel#,0,1,Handle#))
Add(result%,RegSetValueEx(Long(Handle#,0),Name#,0,3,Wert#,4))
Add(result%,RegCloseKey(Long(Handle#,0)))
Dispose Schluessel#
Dispose Handle#
Dispose Name#
Dispose Wert#

If equ(result%,0)

    MessageBox(Fertig...,Binärwerte schreiben...,64)

Else

    MessageBox(Fehler...,Binärwerte schreiben...,64)

Endif