;Autor: ts-soft ;http://www.purebasic.fr/german/viewtopic.php?p=285214#p285214 ;HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\DontShowMeThisDialogAgain\{9937FEAC-4F3B-44F0-9D96-20D8F1784479} EnableExplicit #GenugGenervt = 4711 Prototype SHMessageBoxCheck(hWnd, pszText.p-Unicode, pszCaption.p-Unicode, uType, iDefault, pszRegVal.p-Unicode) Procedure MessageRequesterCheck(Titel.s, Text.s, RegVal.s = "NervNicht", Flags = 0) Protected DLL = OpenLibrary(#PB_Any, "Shlwapi.dll") Protected SHMessageBoxCheck.SHMessageBoxCheck Protected Result If DLL SHMessageBoxCheck = GetFunction(DLL, "SHMessageBoxCheckW") If SHMessageBoxCheck Result = SHMessageBoxCheck(0, Text, Titel, Flags, #GenugGenervt, RegVal) EndIf CloseLibrary(DLL) EndIf ProcedureReturn Result EndProcedure Select MessageRequesterCheck("Fehler:", "Du bist zu blöd zum Mäuse melken", "{9937FEAC-4F3B-44F0-9D96-20D8F1784479}", #MB_YESNO | #MB_ICONERROR) Case #PB_MessageRequester_Yes MessageRequester("","Siehst es ja wenigstens ein",0) Case #PB_MessageRequester_No MessageRequester("","Na dann melk mal",0) Case #GenugGenervt MessageRequester("","Ach, haste mich abgeschaltet ;)",0) EndSelect ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0