Показать сообщение отдельно

  #2  
Старый 21.03.2009, 11:48
slesh
Познавший АНТИЧАТ
Регистрация: 05.03.2007
Сообщений: 1,985
С нами: 10097606

Репутация: 3349


По умолчанию

Тебе нужно знать дискриптор этого меню. Если знаешь то просто всё.
Код:
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 - будет дискриптором вложенного меню, с которым делаешь всё также что и с предыдущем.

Главное чтобы твоё меню было уже вызвано. т.е. вызываешь его, находиш его дискриптор и вперед
 
Ответить с цитированием