XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Menü deaktivieren
Window 50,50-500,500
Popup Datei
Appendmenu 01,Neuer Eintrag
Appendmenu 02,Eintrag löschen
Appendmenu 03,Eigenschaften
Popup Hilfe
Appendmenu 13,Kontexthilfe
Appendmenu 14,Hilfedatei
Appendmenu 15,Info über...
Print Taste drücken
Def @Getmenu(1) !USER32,GetMenu
Def @Enablemenuitem(3) !USER32,EnableMenuItem
Def @Drawmenubar(1) !USER32,DrawMenuBar
Declare Menu&
Let Menu&=@Getmenu(%Hwnd)Handle des Fenstermenüs
Declare Position%
Let Position%=1 Position des Menüpunktes (ganz links=0)

While 1

    Waitkey
    @Enablemenuitem(Menu&,Position%,1025) Disable=1025
    @Drawmenubar(%Hwnd) Neuzeichnen
    Waitkey
    @Enablemenuitem(Menu&,Position%,1024) Enable=1024
    @Drawmenubar(%Hwnd) Neuzeichnen

Endwhile