XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Registry: Fehlercode beim Erstellen bzw. Öffnen eines Registry-Schlüssels abfragen
Declare Handle#,Fehler&,Key#,Name#,Wert#,Size#,Type#
Def @Regclosekey(1) !ADVAPI32,RegCloseKey
DEF @RegSetValueEx(6) !ADVAPI32,RegSetValueExA
Def @Regcreatekey(3)!ADVAPI32,RegCreateKeyA
DEF @RegDeleteKey(2) !ADVAPI32,RegDeleteKeyA
DEF @RegDeleteValue(2) !ADVAPI32,RegDeleteValueA
Windowstyle 31
Windowtitle Registryschlüssel erstellen
Window 0,0-640,440
Dim Key#,260
Dim Handle#,4
Dim Name#,250
Dim Size#,4
Dim Wert#,260
Dim Type#,4
String Key#,0=SoftwareAH Test
Let Fehler&=@Regcreatekey($80000001,Key#,Handle#)
Print Fehlercode beim Erstellen/Öffenen des Schlüssels SoftwareMMJ-Test: ;Fehler&

If Fehler&=0

    Print Fehlercode RegCloseKey: ;@Regclosekey(@Long(Handle#,0))

Endif

Dispose Type#
Dispose Wert#
Dispose Key#
Dispose Handle#
Dispose Name#
Dispose Size#

While 0=0

    Waitinput

Wend