[SCrat.ORS]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

TrayMenu:=CreatePopupMenu;     SubTrayMenu:=CreatePopupMenu;   //Создание подменю     AppendMenu(SubTrayMenu, MF_STRING, 3, '1 минуту');     AppendMenu(SubTrayMenu, MF_STRING, 4, '2 минуты');     AppendMenu(SubTrayMenu, MF_STRING, 5, '5 минут');     AppendMenu(SubTrayMenu, MF_STRING, 6, '10 минут');     AppendMenu(SubTrayMenu, MF_STRING or MF_SEPARATOR, 0, nil);     AppendMenu(SubTrayMenu, MF_STRING, 7, 'Другое...'); //----------------------   //Создание основного меню     AppendMenu(TrayMenu, MF_STRING or MF_DEFAULT, 1, 'Учетные записи...');     AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);      // Вставляем ПодМеню     AppendMenu(TrayMenu, MF_STRING or MF_POPUP, SubTrayMenu, 'Проверять каждые');    //------------------       AppendMenu(TrayMenu, MF_STRING, 13, 'О программе...');     AppendMenu(TrayMenu, MF_STRING, 666, 'Выход');     SetMenu(Wnd, TrayMenu);