TrackPopupMenuEx emulieren

[EWeiss]

Normale Funktion

Delphi-Quellcode:

    GetCursorPos(p);
    MenuWahl := TrackPopupMenuEx(hPopupMenu, TPM_RETURNCMD, p.x, p.y, WinHandle, nil);
    DestroyMenu(hPopupMenu);

    if MenuWahl then
      SendMessage(WinHandle, WM_COMMAND, Makelong(word(MenuWahl), 0), 0);

TPM_RETURNCMD.. gibt zurück ob ein Item geklickt wurde. In dem Fall ist MenuWahl True

in
word(MenuWahl)

befindet sich die ID von dem Item das geklickt wurde.
Wie kann ich jetzt diese Funktion emulieren ? Mir erschließt sich nicht wo bzw. wie dieser wert einem LongBool zugewiesen wird.

Denn MenuWahl gibt ja eigentlich den Wert True\False zurück.

PS:
Es geht mir nicht um die Funktion TrackPopupMenuEx sondern um die Emulation davon.
bsp..
function TSkinPopUpMenu.TrackPopupMenu(WinHandle: HWND; fuFlags: UINT; Left, Top, Width, Height: Integer): BOOL;

bin mir jetzt nicht sicher ob ich in meinem Fall überhaupt ein Flag benötige.
Ok sind jetzt zwei Fragen in einer.

Ich könnte jetzt die Funktion ändern
function TSkinPopUpMenu.TrackPopupMenu(WinHandle: HWND; var Returncm: Integer; Left, Top, Width, Height: Integer): BOOL;
dann würde sich die ID in Returncmd befinden wäre aber dann keine Emulation der eigentlichen Funktion

OK!
Hat sich erledigt.

gruss