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);