modsystray.bas

来自「优盘 锁定监视器」· BAS 代码 · 共 24 行

Attribute VB_Name = "modSystray"

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
   
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
   
Global NotifyIcon As NOTIFYICONDATA
   
Global Const NIM_ADD = &H0
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200