XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
System-Menü manipulieren
PRFellow - Vorlage
Autor: Thomas Hölzer, 1998
Systemmenü manipulieren
Angepaßt an XProfan von Dietmar Horn
Declare buffer#,run%
Def w32_AppendMenu(4) !USER32,AppendMenuA
Def GetSystemMenu(2) !USER32,GetSystemMenu

Proc AppendToSysMenu

    Parameters item$,id%
    Dim buffer#,Add(Len(item$),2)
    String buffer#,0= Add$(item$,Chr$(0))
    w32_AppendMenu(GetSystemMenu(%hwnd,0),0,id%,buffer#)
    Dispose buffer#

EndProc

WindowStyle 264   Wichtig - Stil 256 muß enthalten sein!
WindowTitle Systemmenü-Demo
Cls
Print  Beenden ist auch mit sekundärer Maustaste möglich,Chr$(13),Chr$(10)
Print  Vorher lohnt sich aber ein Blick ins Systemmenü ...
AppendToSysMenu &PRFellow bietet eine Menge...,-5000
Let run%=1

While run%

    WaitInput

    If MenuItem(-5000)

        MessageBox(...für nur 39.- DM Registrierungsgebühr!,webmaster@tehsoft.de,64)

    ElseIf Or(MenuItem(-4000),Equ(%MouseKey,2))

        Dec run%

    EndIf

Wend

End