DeleteSysTrayIcon

DeleteSysTrayIcon

DeleteSysTrayIcon(NumberSysTray)

Удаляет иконку из системного трея.

Пример:

#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: Full-featured multi-format Help generator