Тебе нужно знать дискриптор этого меню. Если знаешь то просто всё.
Код:
var
buf:array[0..255] of char;
menu:hmenu;
x,y:integer;
begin
menu:= дискриптор меню
y:=GetMenuItemCount(menu);
for x:=0 to y-1 do
begin
GetMenuString(menu,x,buf,256,mf_ByPosition);
memo1.lines.add(buf);
end;
Если нужно продолжить выдирать из вложеного меню, то делаешь
GetMenuItemInfo(Menu: HMenu; ID, Flags: Word; Info:TMenuItemInfo)ж
и тогда Info.hSubMenu - будет дискриптором вложенного меню, с которым делаешь всё также что и с предыдущем.
Главное чтобы твоё меню было уже вызвано. т.е. вызываешь его, находиш его дискриптор и вперед |
