XProfan

DEF LoadMenu(2)!"User32","LoadMenuA"
DEF TrackPopupMenu(7)!"User32","TrackPopupMenu"
DEF GetSubMenu(2)!"User32","GetSubMenu"
DEF GetCursorPos(1)!"User32","GetCursorPos"
Déclarer mpos#
Faible mpos#,8
cls
Déclarer menu&, submenu&
menu& = LoadMenu(%hInstance,"LEER")' menu magasin
submenu& = GetSubMenu(menu&,0)' avec cela cela "PopUp" pas angezeigt wird bzw. wird brauchen seulement cela Untermenü
GetCursorPos(mpos#)' globale Mausposition einlesen
TrackPopupMenu(submenu&,0,Long(mpos#,0),Long(mpos#,4),0,%HWnd,0)' et ici cela Untermenü Montrer
WaitInput