XProfan

Français

Beschreibung:

RegDeleteKey löscht une Registryschlüssel. sous Windows NT-basierten Systemen peux qui Funktion aucun Schlüssel effacer, qui Unterschlüssel avons!

Deklaration:

DEF @RegDeleteKey(2) !ADVAPI32,RegDeleteKeyA

paramètre:

1.paramètre: Handle eines déjà geöffneten Keys comme LongInt ou bien folgende vordefinierte Werte =>
-HKEY_CLASSES_ROOT = $80000000
-HKEY_CURRENT_USER = $80000001
-HKEY_LOCAL_MACHINE = $80000002
-HKEY_USERS = $80000003

2.paramètre: Adresse eines Unterschlüssels ou bien Bereichsvariable avec einem Unterschlüssel, qui gelöscht volonté soll.

Rückgabewert:

0 chez Erfolg, chez Misserfolg un Wert <>0 (Fehlercode).

Beispiele:

Kompilieren Marque Séparation

Declare Handle#,FEHLER&,Key#,Name#,Wert#,Size#,Type#,Button&
DEF @RegCloseKey(1) !"ADVAPI32","RegCloseKey"
DEF @RegCreateKey(3)!"ADVAPI32","RegCreateKeyA"
DEF @RegDeleteKey(2) !"ADVAPI32","RegDeleteKeyA"
Windowstyle 31
Windowtitle "Registryschlüssel erstellen"
Window 0,0-640,440
Let Button&=@Createbutton(%HWND,"Schlüssel löschen",20,300,200,30)
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 SoftwareAH 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

    If @Getfocus(Button&)

        DIM Key#,260
        Print ""
        String Key#,0="SoftwareAH Test"
        LET Fehler&=@RegDeleteKey($80000001,Key#)
        Print "Fehlercode beim Löschen des Schlüssels SoftwareAH Test: ";Fehler&
        Dispose key#
        @SetFocus(%HWND)

    endif

Wend