Тебе нужно что-то типа этого?
Код
#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
Если да, то вот исходник функций, отвечающих за SysTray и вывод всплывающего сообщения (взято из моей библиотеки window9 [файл AddSysTrayIcon.bas]):
Код
#Include once "windows.bi"
#include once "win/shellapi.bi"
Dim shared note as NOTIFYICONDATA
Function AddSysTrayIcon(ByVal NumberSysTray As Integer,ByVal hwnd As HWND,ByVal icon As HICON,ByVal ToolTipSysTray As String) As Integer export
note.cbSize = sizeof(NOTIFYICONDATA)
note.hwnd = hWnd
note.uID = NumberSysTray
note.uFlags = NIF_ICON+NIF_MESSAGE+NIF_TIP
note.uCallbackMessage = 1029
note.hIcon = icon
note.szTip= ToolTipSysTray
Return Shell_NotifyIcon (NIM_ADD,@note)
End Function
Function ReplaceSysTrayIcon(ByVal NumberSysTray As Integer,ByVal icon As HICON,ByVal ToolTipSysTray As String) As Integer export
note.cbSize = sizeof(NOTIFYICONDATA)
note.uID = NumberSysTray
note.uFlags = NIF_ICON+NIF_MESSAGE+NIF_TIP
note.uCallbackMessage = 1029
note.hIcon = icon
note.szTip= ToolTipSysTray
Return Shell_NotifyIcon (NIM_MODIFY,@note)
End Function
Function DeleteSysTrayIcon(ByVal NumberSysTray As Integer) As Integer export
note.cbSize = sizeof(NOTIFYICONDATA)
note.uID = NumberSysTray
Return Shell_NotifyIcon (NIM_DELETE,@note)
End Function
Function MessageSysTrayIcon(ByVal NumberSysTray As Integer,ByVal hwnd As HWND,Title As String,Text As String,Timeout As Integer = 5000,ByVal icon As HICON = 0 , ByVal TypeIcon As Integer = NIIF_INFO) As Integer export
note.cbSize = sizeof(NOTIFYICONDATA)
note.hwnd = hWnd
note.uID = NumberSysTray
note.uFlags = IIf (icon<>0,NIF_INFO+NIF_ICON,NIF_INFO)
note.hIcon = icon
note.szInfo = Text
note.uTimeout = Timeout
note.szInfoTitle = Title
note.dwInfoFlags = TypeIcon
Return Shell_NotifyIcon (NIM_MODIFY,@note)
End Function
