XProfan

'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'Menü während der Laufzeit entfernen
Window 0,0-500,500
Print @Getwindowlong(%Hwnd,-16)
Print @Getwindowlong(%Hwnd,-20)
Waitinput
@Setwindowlong(%Hwnd,-16,-1811931136)'Fensterstil setzen
@Setwindowlong(%Hwnd,-20,0)'erweiterten Stil setzen
@Destroymenu(@Getmenu(%Hwnd))'Handel des Menüs finden und Menü zerstören
@Showwindow(%Hwnd,0)'Refresh
@Showwindow(%Hwnd,1)'Refresh
Window 0,0-%Maxx,%Maxy'Größe ändern
Print @Getwindowlong(%Hwnd,-16)
Print @Getwindowlong(%Hwnd,-20)
nput