XProfan

Def @DestroyMenu(1) !"USER32","DestroyMenu"
Def @GetMenu(1) !"USER32","GetMenu"
Declare MHandle&
Windowtitle "Menü killen"
Windowstyle 15
Window 0,0-640,440
Sleep 4000 Damit man sieht, daß was passiert...
LET MHANDLE&=@GetMenu(%Hwnd)
@DestroyMenu(MHANDLE&)
Showmin
Shownormal

While 0=0

    Waitinput

Wend