Code
' http://msdn.microsoft.com/en-us/library/bb773836%28v=VS.85%29.aspx
Def SHMessageBoxCheck(6) !"Shlwapi.dll", "SHMessageBoxCheckA"
Proc MessageBoxCheck
Parameters Text$, Titel$, Flags&, Default&, RegVal$
Select %PCount
CaseOf 4
RegVal$ = "NervNicht"
CaseOf 3
Default& = -1
EndSelect
Return SHMessageBoxCheck(%hWnd, Addr(Text$), Addr(Titel$), Flags&, Default&, Addr(RegVal$))
EndProc
Var Default& = 4711
Select MessageBoxCheck("Du bist zu blöd zum Mäuse melken", "Fehler:", 20, Default& , "{9937FEAC-4F3B-44F0-9D96-20D8F1784479}")
CaseOf 6
Print "Siehst es ja wenigstens ein"
CaseOf 7
Print "Na dann melk mal"
CaseOf Default&
Print "Ach, haste mich abgeschaltet ;)"
EndSelect
WaitKey
Alles anzeigen
Sollte weitgehend selbsterklärend sein. RegVal sollte ein einmaliger String sein, also am besten ein GUIDSTRING, wie im Beispiel.
Um die Box wieder einzuschalten ist der Schlüssel mit RegVal in der Registry zu löschen:
Gruß
Thomas