Работа с меню в чужом приложении

← →
ANB © (2005-04-15 17:08) [0]

Киньте, плз, инфу, какими сообщениями можно работать с текстами элементов меню чужого приложения. Я нашел только как выташить Handle главного меню. Теперь мне нужно обработать команду типа "Файл->Открыть" без использования горячих клавиш и &Буква.
Хотя бы перечень сообщений, дальше я сам разгребу потихоньку.

← →
Eraser © (2005-04-15 17:18) [1]

ANB ©

Со всеми меню работать не удастья, максимум можно повторить то что делает программа Windows Scanner от Inq Soft.

← →
alpet © (2005-04-15 17:32) [2]

Для того что бы вызвать обработчик нужного пункта меню - отправь мессагу WM_COMMAND (wParam = menu item ID).

Что бы узнать ID - придется раскапывать ресурсы этого приложения, и осуществлять "поиск по тексту", или в качестве альтернативы перебирать по пунктикам с помощью GetMenuItemInfo.

← →
ANB © (2005-04-15 17:55) [3]

> или в качестве альтернативы перебирать по пунктикам с помощью
> GetMenuItemInfo.
- во во, отсель поподробнее, плз.

← →
alpet © (2005-04-15 18:12) [4]

У тебя есть дескриптор основного меню. У меню есть наверняка несколько элементов (см. GetMenuItemCount). Для каждого элемента ты можешь получить информацию (в структуре TMenuItemInfo) с помощью GetMenuItemInfo. Например элемент структуры hSubMenu - дает возможность проделать тоже самое и с подменю (просмотреть элементы). С помощью указанной функции можно получать также ID, Text и Bitmap для каждого элемента.

← →
ANB © (2005-04-18 11:15) [5]

> alpet © (15.04.05 18:12) [4]
спасибо. Дальше разберусь по хэлпам.

← →
ANB © (2005-04-20 17:25) [6]

Интересно, меню блокнота и редактора реестра достается, а вот меню собственного приложения (Delphi) вытащить не могу. Почему бы это и как с этим бороться ?

← →
alpet © (2005-04-20 17:29) [7]

Не доступна переменная Form.Menu или Form.Menu.Handle ?

← →
ANB © (2005-04-20 17:34) [8]

Не, все доступно. Получаю количество пунктов, а текст не едет. Я уже и GetMenuItemInfo и GetMenuString(hMenu, MenuItemInfo.wID, PChar(MenuText), 1023, MF_BYCOMMAND); попробовал. Только вместо текста - пустая строка.

← →
alpet © (2005-04-20 17:56) [9]

Может не все иницируешь правильно?
А у меня работает:
Например, если у меня первый элемент меню "Файл" - код устанавливает заголовок формы в "Файл", а если "File" - "&File".
procedure TForm1.FormCreate(Sender: TObject); var mi: TMenuItemInfo; dst: array [0..255] of char; begin FillChar (mi, sizeof (mi), 0); mi.cbSize := sizeof (mi); mi.fMask := MIIM_STRING; mi.dwTypeData := @dst; mi.cch := 256; GetMenuItemInfo (Menu.Handle, 0, true, mi); // get item by index caption := mi.dwTypeData; end;

← →
ANB © (2005-04-20 18:00) [10]

Ща попробую. Самый прикол - другие Delphi приложения ест. Не ест IE и мое. Да, мне еще чилды доставать надо, посему mi.fMask := MIIM_STRING; - мне мало, он hSubMenu не вертает.

← →
alpet © (2005-04-20 18:05) [11]

С помощью GetMenuString:
procedure TForm1.FormCreate(Sender: TObject); var dst: array [0..255] of char; begin GetMenuString (Menu.Handle, GetMenuItemID (Menu.Handle, 1), dst, 256, MF_BYCOMMAND); caption := dst; end;

← →
alpet © (2005-04-20 18:21) [12]

>Да, мне еще чилды доставать надо, посему mi.fMask := MIIM_STRING; - мне мало, он hSubMenu не вертает.

Еще как возвращает:
...
GetMenuItemInfo (Menu.Items[0].Handle, 0, true, mi);
...
Мне совершенно правильно выдает "Exit".

TMenuItem

Indicates the Windows menu handle of the drop-down menu associated with the menu item.

property Handle: HMENU;

Description

Use Handle when calling a Windows API function that requires a menu handle. Handle is only valid if the Count property is greater than 0.

← →
ANB © (2005-04-21 09:32) [13]

> GetMenuItemInfo (Menu.Items[0].Handle, 0, true, mi);
- это конечно, клево. Но Menu.Items[0] - это уже, кажись, меню "File", а мне по всему дереву надо пройти. В hSubMenu лежит хэндл вложенного меню. Короче, я поставил все флаги, какие можно, из половины приложений все приехало. А из моего и из IE нет. Точнее, меню достаются, но без текста. Ща я еше поэкспериментирую и окончательный вариант уже выложу в исходнике.
GetMenuString (Menu.Handle, GetMenuItemID (Menu.Handle, 1), dst, 256, MF_BYCOMMAND); - почему то тоже не помогло.
Особенность - если меню без значков - все ОК, если воткнул значки, то текст пропадает. Причем срубание значков не помогает.

procedure MenuTree(sPrevMenu : String; hCurMenu : HMENU); var MenuItemInfo : TMenuItemInfo; MenuText : String; MainMenuCount : Integer; iMenu : UINT; begin // Если меню не определено - выйдем if (hCurMenu = 0) then Exit; // Найдем количество элементов меню MainMenuCount := GetMenuItemCount(hCurMenu); if (MainMenuCount <= 0) then Exit; // Переберем все элементы for iMenu := 0 to MainMenuCount - 1 do begin // Достанем текст очередного элемента SetLength(MenuText, 1024); ZeroMemory(@MenuItemInfo, SizeOf(MenuItemInfo)); MenuItemInfo.cbSize := 44; MenuItemInfo.fMask := MIIM_SUBMENU or MIIM_STRING or MIIM_ID; // or MIIM_TYPE // or MIIM_CHECKMARKS or MIIM_STATE or MIIM_DATA; MenuItemInfo.dwTypeData := PChar(MenuText); MenuItemInfo.cch := Length(MenuText) - 1; if (GetMenuItemInfo(hCurMenu, Cardinal(iMenu), LongBool(True), MenuItemInfo)) then begin SetLength(MenuText, MenuItemInfo.cch); if (sPrevMenu <> "") then MenuText := sPrevMenu + " -> " + MenuText; if (MenuItemInfo.fType <> MFT_SEPARATOR) then begin Inc(Menu_No); // Добавление в виртуальную таблицу, можно заменить with fmWindowBrowser.vtMenu do begin Append; FieldByName("No").AsInteger := Menu_No; FieldByName("Text").AsString := MenuText; // FieldByName("ID").AsInteger := wID; FieldByName("ID").AsInteger := MenuItemInfo.wID; Post; end; end; // Если есть подчиненное меню, то вызовем его if (MenuItemInfo.hSubMenu <> 0) then MenuTree(MenuText, MenuItemInfo.hSubMenu); end; end; end;

Так, начал разбираться.
У моего меню у всех пунктов тип определяется как MFT_OWNERDRAW
(а у разделителей вообще не определяется непонятно чем).
У блокнота элементы меню типа MFT_STRING, посему строка и вытаскивается. И чего делать ?

Вторая странность - у IE вижу хэндл меню, а пытаюсь вытащить количество пунктов в главном меню :
MainMenuCount := GetMenuItemCount(hCurMenu);
- получаю 0; :(((

Разобрался, как я сломал свое меню. Как только пункту меню присваиваешь значок, то он меняет свой тип на MFT_OWNERDRAW. Причем меняются тип всего уровня. А я как раз дурью маялся, засунул картинку в верхний уровень главного меню, не понравилось - убрал. Но строки меню теперь вытащить не могу.
Переформулирую вопрос :
Как выташить текст элемента меню с типом MFT_OWNERDRAW ?
if (MenuItemInfo.cch = 0) then begin SetLength(MenuText, 1024); iSize := GetMenuString(hCurMenu, iMenu, PChar(MenuText), 1023, MF_BYPOSITION); SetLength(MenuText, iSize); end; - вот это тоже не работает.

Дело в том что указатель dwTypeData теперь указывает на данные определенные приложением, а не ASCIIZ строку.

ANB © (21.04.05 10:42) [17]
>Как выташить текст элемента меню с типом MFT_OWNERDRAW

1. В своем приложении: через VCL :)

2. В стороннем почти не реально, разве что через перехват API, DrawText,TextOut (доступно будет после отрисовки меню, что можно попытаться сделать назначив меню окну созданному из dll внедренной в АП исходного процесса). На какое-то конкретное приложение можно потратить время и исследовать что передается в указателе. Как правило это структура данных MFC / VCL или других библиотек.

Дамс. Rational Robot тоже его не видит, то есть я могу не парится, а просто записывать ID.

Работа с меню в чужом приложении Найти похожие ветки