MessageSysTrayIcon

Синтаксис

Function MessageSysTrayIcon(ByVal NumberSysTray As Integer, ByVal hwnd As HWND, byRef Title As String, byRef Text As String, byval Timeout As Integer = 5000, ByVal icon As HICON = 0, ByVal TypeIcon As Integer = NIIF_INFO) As Integer

Описание

Создает сообщение в трее.

Параметры

NumberSysTray - Номер (идентификатор) системного трея

hwnd - Окно за которым закреплен идентификатор SysTray

Title - Заголовок сообщения

Text - Текст сообщения

Timeout - Время задержки вывода сообщения

icon - Хендл иконки. Если используется этот параметр, то в параметре TypeIcon должен быть передано значение NIIF_USER

TypeIcon - Тип иконки, может быть:

1. NIIF_NONE - без иконки
2. NIIF_INFO - информационная иконка
3. NIIF_WARNING - иконка предупреждения
4. NIIF_ERROR - иконка ошибки
5. NIIF_USER - пользовательская иконка. В параметре icon должен быть указан хендл иконки

Платформы

Windows

Пример

#Include "window9.bi"
Dim As HWND hWnd
hwnd=OpenWindow("",10,10,300,300)
AddSysTrayIcon(1,hwnd,LoadIcon(0,IDI_WINLOGO),"SYSTRAY приложение")
MessageSysTrayIcon(1,hwnd,"Сообщение", "Это SysTray сообщение")
Do
  Var   ev=WaitEvent
  If ev=EventClose Then
     Deletesystrayicon(1)
     Exit do
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Full featured Documentation generator