AddSysTrayIcon

AddSysTrayIcon

AddSysTrayIcon(NumberSysTray , hwnd , icon , tooltip)

Устанавливает иконку в системный трей windows.

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

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

icon - Хендл иконки

tooltip - Подсказка для иконки системного трея

Пример:

#Include "window9.bi"

Dim As MSG msg
Dim As HWND hWnd
Dim Shared As HMENU hMessages

hwnd=OpenWindow("",10,10,300,300)
hMessages=CreatePopMenu()
MenuItem(1001,hMessages,"Свернуть окно")
MenuItem(1002,hMessages,"Развернуть окно")

AddSysTrayIcon(1,hwnd,LoadIcon(0,IDI_WINLOGO),"SYSTRAY приложение")

Do
 Var   ev=WaitEvent
 If ev=EventClose Then
  Deletesystrayicon(1)
  End
 EndIf
 If ev=eventRbDOWN Then
  If EventNumber = 1 Then
   DisplayPopupMenu(hMessages,GlobalMouseX,GlobalMouseY)
  EndIf
 EndIf
 If ev=EventMenu Then
  If EventNumber=1001 Then
   HideWindow(hwnd,1)
  ElseIf EventNumber=1002 Then
   HideWindow(hwnd,0)
  EndIf
 EndIf
Loop

http://mneniya.ucoz.ru/

Created with the Personal Edition of HelpNDoc: Easily create Help documents