XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hauptfenster: Fenster fixieren
Def GetSystemMenu(2) !USER32,GetSystemMenu
Def GetMenuItemCount(1) !USER32,GetMenuItemCount
Def DeleteMenu(3) !USER32,DeleteMenu

Proc FixHWND

    Declare hsysmenu&,i%
    Let hsysmenu&=GetSystemMenu(%hwnd,0)
    Let i%=Sub(GetMenuitemCount(hsysmenu&,0),2)

    While Gt(i%,-1)

        DeleteMenu(hsysmenu&,i%,$400)
        Dec i%

    Wend

EndProc

Proc RestoreSystemMenu

    GetSystemMenu(%hwnd,1)

EndProc

Beispiel
Cls
WindowTitle Add$(GetText$(%hwnd), - Powered by PRFellow 2000)
AppendMenuBar 10, &Fenster unbeweglich machen
AppendMenuBar 20, &Alten Zustand wiederherstellen

While 1

    WaitInput

    If Menuitem(10)

        FixHWND

    ElseIf Menuitem(20)

        RestoreSystemMenu

    EndIf

EndWhile