VFP 愛用者社區

[Ruey]

常駐系統工具列範例(轉貼)


節錄作者版權宣告
THIS SOFTWARE IS "AS IS". ANY WARRANTY IS DISCLAIMED
YOU CAN USE IT FOR FREE IN YOUR ANY APPLICATION, BUT YOU CANNOT DISTRIBUTE
THIS FLL FOR MONEY, ONLY FOR FREE.
IF YOU LIKE THIS SOFTWARE YOU CAN REGISTER IT FOR 8 DOLLARS.
You can register it online at my homepage: http://www.bbControls.com
The registered version does not add the author's name to the icon tooltips.

[Ruey]

常駐工具列範列二(轉貼)
使用前按下面方法註冊
REGSVR32 FoxTray.ocx (use full path to the file).

FoxTray.ocx 是由VB所寫成的,所以他還需要MSVBVM60.DLL


詳細做法如下
#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

[Ruey]

取自微軟常駐程式範例

這裡所附的例子使用VFP
還附上說明喔...........
免費的....
沒有時間問題

[laurance]

..

謝謝!請問如何找到systray_sample.scx裡所需的 _environ.vcx ?

[Abel]

回覆 laurance 大大

systray_sample.scx裡所需的 _environ.vcx

不論 VFP6 , VFP9 的安裝目錄內 的 FFC 目錄內 就可以找到