37 lines
1007 B
QBasic
37 lines
1007 B
QBasic
Attribute VB_Name = "sysTrayMod"
|
|
'EVERY THING IN THIS MODULE MAKES THE SYSTRAY ICON PROGRAMME WORK'
|
|
'SO YOU WILL NEED IT ALL,YOU MIGHT NOT USE IT ALL BUT JUST LEAVE IT IN'
|
|
Option Explicit
|
|
|
|
Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
|
|
|
|
Public Const NIM_ADD = &H0
|
|
Public Const NIM_MODIFY = &H1
|
|
Public Const NIM_DELETE = &H2
|
|
Public Const NIF_MESSAGE = &H1
|
|
Public Const NIF_ICON = &H2
|
|
Public Const NIF_TIP = &H4
|
|
Public Const WM_MOUSEMOVE = &H200
|
|
Public Const WM_LBUTTONDOWN = &H201
|
|
Public Const WM_LBUTTONUP = &H202
|
|
Public Const WM_LBUTTONDBLCLK = &H203
|
|
Public Const WM_RBUTTONDOWN = &H204
|
|
Public Const WM_RBUTTONUP = &H205
|
|
Public Const WM_RBUTTONDBLCLK = &H206
|
|
Public Const HWND_TOPMOST = -1
|
|
|
|
Public nid As NOTIFYICONDATA
|
|
|
|
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
|
|
|
|
|
|
|