Dim Menu_Array()
Private Sub mnuMy_click()
Redim Preserve Menu_Array(Ubound(Menu_Array)+1)
Menu_Array(Ubound(Menu_Array))=mnuMy.Index
End Sub
alibek писал(а):"Не верю" (c) Станиславский
Имеется ввиду какое-то конкретное меню? Можно перебирать все окна системы, выбирая только те из них, которые являются менюшками (класс #32768 PopupMenu), смотреть его итемы.
alibek писал(а):А разве API GetMenu(hWnd) этого не выполняет?
Сейчас этот форум просматривают: Google-бот и гости: 2