Diesen Dialog nicht mehr anzeigen

[Andreas Miethe]

Hallo zusammen,

vielleicht kann es ja jemand gebrauchen.

'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