XProfan

HINWEIS
Funktioniert ab Windows 2000
Da hier in die Registry geschrieben wird, ist die Nutzung auf eigene Gefahr !
#############################################################################
 $H windows.ph
Legt einen Registry-Key an, der bei Aufruf abgefragt wird
HKEY_CURRENT_USER
-   Software
-      Microsoft
-         Windows
-            CurrentVersion
-               Explorer
-                  DontShowMeThisDialogAgain
KEY_ALL_ACCESS ist in der Header-Datei scheinbar falsch beschrieben !
DEF &KEY_ALL_ACCESS $F003F
DEF ChecBox(6) ! "shlwapi.dll","SHMessageBoxCheckA"
CLS
Print "Bin ich da ?";
Print If(ChecBox(%hwnd,"Ich komme nie mehr wieder, wenn Du den Haken setzt","Achtung",~MB_OK | ~MB_ICONINFORMATION,~MB_OK,"{A5D7BF09-F66D-4670-9706-4FE69F432CE4}")," ja"," nein")
Print "Bin ich da ?";
Print If(ChecBox(%hwnd,"Ich komme nie mehr wieder, wenn Du den Haken setzt","Achtung",~MB_OK | ~MB_ICONINFORMATION,~MB_OK,"{A5D7BF09-F66D-4670-9706-4FE69F432CE4}")," ja"," nein")
Registry-Key wieder löschen, dann erscheint die Dialogbox
beim nächsten Aufruf wieder !
Wird der Key nicht gelöscht, wird die Dialogbox nie wieder erscheinen !
Print If(Reg_Delete_Value(~HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\DontShowMeThisDialogAgain\","{A5D7BF09-F66D-4670-9706-4FE69F432CE4}"),"Key erfolgreich gelöscht","Key nicht gelöscht")
waitinput
End

Proc Reg_Delete_Value

    Parameters Key&,KeyName$,ValueName$
    Declare hKey&,DeleteValue&,GetHandle&
    GetHandle& = ~RegOpenKeyEx(Key&,Addr(KeyName$), 0, &KEY_ALL_ACCESS , Addr(hKey&))

    If GetHandle& = ~ERROR_SUCCESS

        GetHandle& = ~RegDeleteValue(hKey&,Addr(ValueName$))

        If GetHandle& = ~ERROR_SUCCESS

            DeleteValue& = 1

        Else

            DeleteValue& = 0

        EndIf

    EndIf

    ~RegCloseKey(hKey&)
    Return DeleteValue&

EndProc