#DEFINE ccIcon "house.ico" && replace with valid ICO file name
PUBLIC objForm
objForm = CreateObject("Tform")
objForm.Visible = .T.
DEFINE CLASS Tform As Form
Width=400
Height=240
MaxButton=.F.
MinButton=.F.
Autocenter=.T.
Caption = " Using Systray icon and menu"
ADD OBJECT cmdShowIcon As CommandButton WITH;
Caption="Show Icon", Width=100, Height=27,;
Left=20, Top=20
ADD OBJECT cmdHideIcon As CommandButton WITH;
Caption="Hide Icon", Width=100, Height=27,;
Left=20, Top=56
ADD OBJECT chPopup As CheckBox WITH;
Caption=" Popup enabled", Value=.T.,;
Left=240, Top=20, Autosize=.T., BackStyle=1
PROCEDURE Init
THIS.AddTrayCtrl
PROCEDURE AddTrayCtrl
LOCAL lErr
ON ERROR lErr = .T.
THIS.AddObject("FoxTray", "TFoxTray")
ON ERROR
IF lErr
= MessageB("ActiveX control not registered " + Chr(13) +;
"or VB support not available. " + Chr(13) + Chr(13) +;
"Class: FoxTrayCtl.cFoxTray " + Chr(13) +;
"File: FoxTray.ocx " + Chr(13) +;
"VB support: msvbvm60.dll ", 48, " FoxTray Control")
ENDIF
PROCEDURE cmdShowIcon.Click
WITH ThisForm.FoxTray
.IconSource = ccIcon
.ShowIcon
ENDWITH
PROCEDURE cmdHideIcon.Click
ThisForm.FoxTray.HideIcon
ENDDEFINE
DEFINE CLASS TFoxTray As OLEControl
OleClass="FoxTrayCtl.cFoxTray"
PROCEDURE Init
WITH THIS
.IconSource = ccIcon
.IconTip = "FoxPro App"
.ShowIcon
* setting popup items, max number = 5
.GetPopupItem(1).Caption = "Settings"
.GetPopupItem(2).Caption = "About"
.GetPopupItem(3).Caption = "-" && separator
.GetPopupItem(4).Caption = "Close form"
.GetPopupItem(5).Caption = "\Exit" && item disabled
ENDWITH
PROCEDURE BeforePopupActivate
PARAMETERS lResult
lResult = ThisForm.chPopup.Value && .F. cancels popup activation
PROCEDURE OnPopupItemSelected
LPARAMETERS lnItem, lcCaption
DO CASE
CASE lnItem = 2
= MessageB("System Tray Icon and Menu Control ", 64, " About")
CASE lnItem = 4
ThisForm.Release
CASE lnItem = 5
IF MessageB("Exit FoxPro? ", 32+4, " FoxTray Control") = 6
QUIT
ENDIF
OTHER
= MessageB("Popup item selected: " + LTRIM(STR(lnItem)) +;
", [" + lcCaption + "]")
ENDCASE
ENDDEFINE
* * *
*|The FoxPro code contains no Win32 functions, all calls moved
*|to the ActiveX part:
*|
*| LoadImage
*| ExtractAssociatedIcon
*| DestroyIcon
*| GetModuleFileName
*| Shell_NotifyIcon
*| CallWindowProc
*| GetWindowLong
*| SetWindowLong
*| CopyMemory
*| GetCursorPos
*| SetRectEmpty
*| CreatePopupMenu
*| TrackPopupMenuEx
*| InsertMenuItem
|
A fragment of Visual Studion Spy++ screen shows windows inside the system tray:
Among those windows you may notice Windows Start button, Quick Launch toolbar, minimized windows for running applications, system tray clock, window with system tray icons and more.
With quite simple code you may hide the whole system tray:
#DEFINE SW_HIDE 0
#DEFINE SW_SHOWNORMAL 1
DECLARE INTEGER ShowWindow IN user32 AS ShowWindowA;
INTEGER hWindow, INTEGER nCmdShow
DECLARE INTEGER FindWindow IN user32;
STRING lpClassName, STRING lpWindowName
hWindow = FindWindow("Shell_TrayWnd", Null)
= ShowWindowA(hWindow, SW_HIDE)
Call ShowWindow with SW_SHOWNORMAL to make the system tray visible again. You may try same code with TrayNotifyWnd and other child windows.
* * *
Take a look at this example as well How to block the ALT+TAB shortcut (WinXP):
 |
Adding user-defined items to the Control Menu of VFP form (requires VFP9)
