меню без ресурсов WinAPI

[Paul_AG]

Здраствуйте уважаемые програмисты.Подскажите плиз как можно создать меню без испольования ресуров.Внутри кода.Знаю,что надо использовать функции CreateMenu(); AppendMenu(); Искал в инете но ничего не нашел...подскажите плиз.очень прошу.

[0nni]

Плохо искали

var
  menu, SubMenu : HMENU;
begin
  //Главное меню
  menu := CreateMenu;
  //подмень файл
  SubMenu := CreateMenu;
  AppendMenu(SubMenu, MF_STRING, 1, 'Создать');
  AppendMenu(SubMenu, MF_SEPARATOR, 0, nil);
  AppendMenu(SubMenu, MF_STRING, 2, 'Выйти');
  //вставляем подменю файл в главное меню
  AppendMenu(Menu, MF_POPUP, SubMenu, 'Файл');
  SetMenu(Handle, menu);

[Paul_AG]

Спасибо,но мне бы на С++,а это похоже Паскаль)

[Paul_AG]

Ну вот,чтото получилось)))проверте плиз

HMENU hMenu = CreateMenu();

HMENU hMenuPopup = CreateMenu();
AppendMenu(hMenuPopup, MF_STRING, 101, "&New");
AppendMenu(hMenuPopup, MF_STRING, 102, "&Open...");
AppendMenu(hMenuPopup, MF_STRING, 103, "&Save");
AppendMenu(hMenuPopup, MF_STRING, 104, "Save &As...");
AppendMenu(hMenuPopup, MF_SEPARATOR, 0, NULL);
AppendMenu(hMenuPopup, MF_STRING, 105, "E&xit");

AppendMenu(hMenu, MF_POPUP,(UINT) hMenuPopup, "&File");


hMenuPopup = CreateMenu();

AppendMenu(hMenuPopup, MF_STRING, 201, "&Undo");
AppendMenu(hMenuPopup, MF_SEPARATOR, 0, NULL);
AppendMenu(hMenuPopup, MF_STRING, 202, "Cu&t");
AppendMenu(hMenuPopup, MF_STRING, 203, "&Copy");
AppendMenu(hMenuPopup, MF_STRING, 204, "&Paste");
AppendMenu(hMenuPopup, MF_STRING, 205, "De&lete");

AppendMenu(hMenu, MF_POPUP,(UINT) hMenuPopup, "&Edit");

hMenuPopup = CreateMenu();

AppendMenu(hMenuPopup, MF_STRING, 301, "&About");

AppendMenu(hMenu, MF_POPUP,(UINT) hMenuPopup, "&Help");

[Stilet]

проверте плиз

А сам то чего не проверишь? Запусти и узнаешь.

[Rosicky]

MSDN автору в помощь) Там все есть)