Меню, WinAPI Опции

[Client]

procedure TForm1.Button1Click(Sender: TObject);
var wnd:hwnd;
    TmpArray  : array[0..100 - 1] of Char;
    mymenu:Hmenu;
begin
  Wnd := FindWindow('Notepad',nil);
  GetWindowText(wnd, @TmpArray, 100);
  label1.caption:=tmparray;
  mymenu:=getmenu(wnd);
  label2.Caption:=inttostr(GetMenuItemCount(mymenu));
end;

Тут я нашел окно блокнота, узнал его заголовок и количество пунктов меню. Как узнать название пункта ? и если есть его подпунтков?

Сообщение отредактировано: Client - 14.08.2009 14:02

[volvo]

Надо блокноту "подсунуть" обработчик событий, который будет реагировать на меню так, как ты хочешь, а не так, как заложено в Блокноте. Ибо из твоего приложения недоступно то, что нажимается в Блокноте, это разные процессы. Сообщения из его меню поступают в его очередь сообщений, а не в твою.

Гугл по темам "сабклассинг" и "суперклассинг" даст тебе информацию о том, как это делается (Сабклассинг - это "контроль сообщений окон путем модификации их оконной процедуры", суперклассинг - "создание и регистрация нового класса окна в системе")