找不到Shell_NotifyIconA入口点,是怎么回事
写了一个将程序加入系统托盘的程序,但编译后却说找不到Api函数的入口点.请各位高手看看,是怎么回事.
Module1
Option Explicit
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const NIM_ADD = 0
Public Const NIM_MODIFY = 1
Public Const NIM_DELETE = 2
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
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
Form1
Private Sub Form_Load()
Dim TheData As NOTIFYICONDATA
With TheData
.UID = 0
.HWnd = Me.HWnd
.cbSize = Len(TheData)
.HIcon = Picture1.Picture.Handle
.UFlags = NIF_ICON
' .UCallBackMessage = TRAY_CALLBACK
.UFlags = NIF_ICON Or NIF_MESSAGE
.cbSize = Len(TheData)
End With
Shell_NotifyIcon NIM_ADD, TheData
End Sub
很急,先谢谢了