[Karsh]

напримет так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Buf: array[0..255] of Char;
  imenu: HMENU;
  wnd: HWND;
begin
  wnd:= FindWindow(nil, 'Безымянный - Блокнот');
  if wnd = 0 then exit;
  imenu:= GetMenu(wnd);
  imenu:= GetSubMenu(imenu, 0);
  GetMenuString(imenu, 2, buf, SizeOf(buf), 0);
  ShowMessage(buf);
end;