XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Button  - Schließen-Button des aktiven Fensters deaktivieren oder entfernen
Lauffähig ab Profan-Version 5.0
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)
DisableClose()