Флаги - это какие поля будут обслуживаться:
NIF_ICON, NIF_MESSAGE, NIF_TIP.
Команды (dwMessage):
NIM_ADD, NIM_DELETE, NIM_MODIFY.
Код:
var
tnd: TNotifyIconData;
begin
with tnd do
begin
cbSize:= SizeOf(TNotifyIconData);
Wnd:= Handle; // Окно, к-е ловит сообщение
uID:= 1; // Номер пиктограммки
uFlags:= { набор флагов по ИЛИ};
uCallbackMessage:= IconMessage; { номер сообщения, которое будет перехватывать ф-ция}
hIcon:= FIcon.Handle; // хэндл пиктокграммки
szTip:= 'Текст подсказки'#0;
end;
Result:= Shell_NotifyIcon(dwMessage, @tnd);
end;