Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Icon in the System Tray
Message
From
10/04/1999 01:16:50
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
09/04/1999 12:45:20
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00206956
Message ID:
00207156
Views:
18
>Hi Cetin,
>
>Do you remember me? In the past you helped me to solve a problem
>regard how to include a form in the project programatically.
>
>Now I need some informations about how to show a application
>icon in the System Tray.
>
>With the following code I could put the icon in the system tray, but what I have to do to manipulate events (mouse move, click) on this icon?
>
>Thank you for any information on this matter.
>
>*************************************************
>DECLARE INTEGER FindWindow IN WIN32API AS FindW STRING, STRING
>apphandle = FindW(.null.,ThisForm.Caption) && get the form handle
>
>DECLARE INTEGER Shell_NotifyIcon IN SHELL32 AS NotifyIcon INTEGER, STRING @NotifyData
>oIcone = LOADPICTURE("o:\LIBRARY\BMP\FIELD.ICO")
>
>ND_cbsize = LongToStr(84)
>ND_hWnd = LongToStr(apphandle)
>ND_uId = replic(Chr(0),4)
>ND_Flags = LongToStr(2)
>ND_uCallBackMessage = LongToStr(512)
>ND_hIcon = LongToStr(oIcone.handle)
>ND_szTip = "Exemplo teste "+replic(chr(0),50)
>
>NotifyData = ND_cbsize+;
> ND_hWnd+;
> ND_uId+;
> ND_Flags+;
> ND_uCallBackMessage+;
> ND_hIcon+;
> ND_szTip
>
>NotifyIcon(0,@NotifyData)
Sorry I would like to help but I don't have an idea how to do it. If I remember well there should be a file about this in files section (win32api section I think).
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform