D:\Program\FreeBASIC\fbc -s console "FbTemp.bas"
D:\Program\FreeBASIC\bin\win64\ld.exe: cannot find -lz
Build error(s)

#Include "window9.bi"

Dim As HWND hWnd
Dim Shared As HMENU hmenu

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

Dim As Any Ptr icon1

icon1 = Load_Icon("1.ico")

var st = AddSysTrayIcon(1,hwnd,icon1,"SYSTRAY приложение")

Do
   Var   ev=WaitEvent
   If ev=EventClose Then
      Deletesystrayicon(1)
      End
   EndIf
   #ifdef __fb_win32__
   If ev=eventRbdown Then ' on windows systray and popup menu work only with signal keydown
      If EventNumber = 1 Then
         DisplayPopupMenu(hmenu,GlobalMouseX,GlobalMouseY )
   #else
   If ev=eventRbUp Then
      If EventNumber = 1 Then   ' on Linux systray and popup menu work only with signal keyUp   
         DisplayPopupMenu(hmenu,,, Cast(Any Ptr,st) )
   #endif
      EndIf
   EndIf
   If ev=EventMenu Then
      If EventNumber=1001 Then
         HideWindow(hwnd,1)
      ElseIf EventNumber=1002 Then
         HideWindow(hwnd,0)
      EndIf
   EndIf
Loop