[nixon232]

Есть древний рабочий пример вызова меню окна

Код:

  NPadHandle := FindWindow(nil, PChar('Безымянный — Блокнот'));
  NPadMenu := GetMenu(NPadHandle);
  NPadSubMenu := GetSubMenu(NPadMenu, 2);
  SendMessage(NPadHandle, WM_COMMAND, GetMenuItemId(NPadSubMenu, 1), 0);

Идем дальше, как я понял меню попапа вызывается точно так же? Заменил

Код:

NPadHandle := Form1.Handle;
NPadMenu:= Popupmenu1.handle;

И никакого выбора.
Пробовал вызвать перед выбором

Код:

PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.y);
Sleep(2000);

Гугл подсказал функцию Выбора (не клика), но даже она не выбирает

Код:

HiliteMenuItem(Form1.Handle, PopupMenu1.Handle, 2, MF_BYPOSITION or MF_HILITE);

Есть у кого опыт с вызовом или подсветкой чужого попапа?