XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster: Schließen-Button deaktivieren
Def GetSystemMenu(2) !USER32,GetSystemMenu
Def EnableMenuItem(3) !USER32,EnableMenuItem
DECLARE EE%,ende%
EE%=0
Window 100,50-600,400
EnableMenuitem(GetSystemMenu(GetActiveWindow(),0),$F060,1)
ende%=CREATE(BUTTON,%HWND,ENDE,10,10,100,25)

WHILENOT EE%

    WAITINPUT
    Case GetFocus(ende%):END

WEND