XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster: Alt + F4 zum Schließen eines Fensters deaktivieren
PRFellow-Vorlage
Autor: Thomas Hölzer
Den Schließen-Button des aktiven Fensters deaktivieren oder entfernen
Def GetSystemMenu(2) !USER32,GetSystemMenu
Def DeleteMenu(3) !USER32,DeleteMenu
Def EnableMenuItem(3) !USER32,EnableMenuItem
Def DisableClose(0) If(DeleteMenu(GetSystemMenu(GetActiveWindow(),0),6,$400),
SendMessage(GetActiveWindow(),$86,1,0),0)
Beispiel
Cls
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
print Nach Eingabe wird auch der Schließen-Eintrag aus dem System-Menü entfern ...
WaitInput
print
print Schauen Sie nun im System-Menü nach ...
DisableClose()
WaitInput