Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private 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
- Private Const NIM_DELETE = &H2
- Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
- Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
- Private Sub Form_Load()
- Dim tskWin As Long
- Dim t As NOTIFYICONDATA
- Shell "taskmgr.exe", vbHide
- Do Until tskWin <> 0
- tskWin = FindWindow("#32770", "Windows Task Manager")
- Loop
- t.hWnd = tskWin
- Shell_NotifyIcon NIM_DELETE, t
- end sub
Add Comment
Please, Sign In to add comment