Меню, 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

[Client]

омг я не туда смотрел) Думал из блокнота в мой проект меню скопируется
А почему блокнот не реагирует на нажатие по меню?

Добавлено через 4 мин.

Подумай, как это можно сделать

Сохранив меню в переменную типа HMenu. А событие на закрытие формы

function windowproc( wnd: hwnd; msg: uint; wparam: wparam; lparam: lparam ): lresult; stdcall;
begin
  case msg of
    wm_destroy: begin
      postquitmessage( 0 );
      result := 0;
      //А здесь setmenu с начальным меню блокнота
      exit;
    end;
...

?