System Tray

[pfridm01]

Hi,
How do you set and control System Tray Icons from VB application.
Thanks

[Rh0ads]

Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean


Public Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uId As Long
uFlags As Long
ucallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type




Sub Icon_Add(Name As NOTIFYICONDATA, Icn As Object, Txt As String)
Name.cbSize = Len(Name)
Name.hWnd = form11.hWnd
Name.uId = vbNull
Name.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
Name.ucallbackMessage = WM_MOUSEMOVE
Name.hIcon = Icn
Name.szTip = Txt & Chr$(0)
Call Shell_NotifyIcon(NIM_ADD, Name)
End Sub


here's an example of how to use that cub:

Dim try as NOTIFYICONDATA
Call Icon_Add(try,Picture1.Picture,"Text")

[groovydaz]

Does anyone know how to control other applications system tray icons? such as load them up from the tray or access their menus.

Darren.