I've done it with Visual Basic. See the code below. Never tried it with Access,
so there are no guarantees, but it's a starting point.
--
Danny J. Lesandrini
(e-mail address removed)
http://amazecreations.com/datafast
Irshad Alam said:
I have a created a shortcut on my desktop to open my mdb.
I want to make another shortcut and put it on the windows notification area
(systemTray).
Is it possible to do this. As it will be great if you advise me a method,
where third party software is not required.
As I tried by third party software, which is trial and secondly paid.
Please advise.
Regards.
Irshad.
' /////////////////////////////////////////////////////////////////////////////////////
' Note: Code borrowed from site ...
'
http://www.vbsquare.com/php-bin/printfriendly.php?tipid=178
'
' /////////////////////////////////////////////////////////////////////////////////////
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_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid _
As NOTIFYICONDATA) As Boolean
Dim t As NOTIFYICONDATA
Private Sub UpdateTaskBar()
On Error Resume Next
t.cbSize = Len(t)
t.hWnd = Picture1.hWnd
t.uId = 1&
t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
t.ucallbackMessage = WM_MOUSEMOVE
t.hIcon = Picture1.Picture
t.szTip = strOnOffCaption & Chr$(0)
Shell_NotifyIcon NIM_ADD, t
Timer1.Enabled = True
'Me.Hide
App.TaskVisible = False
DoEvents
End Sub
Public Sub UnloadSysTray()
On Error Resume Next
Timer1.Enabled = False
t.cbSize = Len(t)
t.hWnd = Picture1.hWnd
t.uId = 1&
Shell_NotifyIcon NIM_DELETE, t
'DoEvents
'Picture1_MouseMove 0, 0, 0, 0
End Sub
