哪位高手能帮我一下啊~~

~~我想在winform中,或在vb中,还有在java中,实现让应用程序显示在"托盘区",像"千千静听"一样的效果,谢谢啦!!

'自己添加一个 Command1, Caption 就是 "放入托盘"

'**********************************************************

Const MAX_TOOLTIP As Integer = 64

Const NIF_ICON = &H2

Const NIF_MESSAGE = &H1

Const NIF_TIP = &H4

Const NIM_ADD = &H0

Const NIM_DELETE = &H2

Const WM_MOUSEMOVE = &H200

Const WM_LBUTTONDOWN = &H201

Const WM_LBUTTONUP = &H202

Const WM_LBUTTONDBLCLK = &H203

Const WM_RBUTTONDOWN = &H204

Const WM_RBUTTONUP = &H205

Const WM_RBUTTONDBLCLK = &H206

Const SW_RESTORE = 9

Const SW_HIDE = 0

Private Type NOTIFYICONDATA

cbSize As Long

hwnd As Long

uID As Long

uFlags As Long

uCallbackMessage As Long

hIcon As Long

szTip As String * MAX_TOOLTIP

End Type

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private nfIconData As NOTIFYICONDATA

Private Sub Command1_Click() '添加图标进拖盘

nfIconData.hwnd = Me.hwnd

nfIconData.uID = Me.Icon

nfIconData.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP

nfIconData.uCallbackMessage = WM_MOUSEMOVE

nfIconData.hIcon = Me.Icon.Handle

nfIconData.szTip = "System Tray Example" & vbNullChar

nfIconData.cbSize = Len(nfIconData)

Call Shell_NotifyIcon(NIM_ADD, nfIconData)

ShowWindow Me.hwnd, SW_HIDE

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim lMsg As Single

lMsg = X / Screen.TwipsPerPixelX

If lMsg = WM_RBUTTONUP Or lMsg = WM_LBUTTONUP Then

Call Shell_NotifyIcon(NIM_DELETE, nfIconData) '退出图标

Me.Show

End If

End Sub