?version
6.50
0
Form1
238
268
C:\Documents and Settings\admin\桌面\托盤\ni.ico
1
systraypc.dll
3
dzHW.dll
NotifyIcon.dll
TreeView.dll
2
ni:NotifyIcon
dz:dzHW
0
Sub designer
addform(Form1,"","",220,220,220)@
addmenuitem(form1,mnudzSpy,"菜單",True,False)@
addmenuitem(mnudzspy,mnuAbout,"關于",True,False)@
addmenuitem(mnudzspy,mnuHide,"進入后臺",True,False)@
addmenuitem(mnudzspy,mnuExit,"退出",True,False)@
End Sub
@EndOfDesignText@
Sub Globals
	'設備端添加NotifyIcon.dll，dzHW.dll外部庫。ＰＣ桌面端添加	NotifyIconDesktop.dll，dzHWdesktop.dll外部庫.
	Dim ExitCondition
	AppName ="系統托盤程序演示"
	EmailName = "tmxt_fy@qq.com"
	CompanyName = "@ 2009 云飛工作室"
	VersionNumber = "V 1.0.1-測試版"
End Sub
Sub App_Start
	'初始值'初始化類的外部庫
	ExitCondition = False
	dz.New1 '創建dzHW組件
	ni.New1 '創建NotifyIcon組件
	Form1.Text = AppName
	ni.IconText = AppName '設置圖標文字,設備端設備端不顯示
	ni.Add
	Form1.Show
	
End Sub
Sub mnuAbout_Click
	'關于
	Msgbox(AppName & CRLF & VersionNumber & CRLF & CompanyName & CRLF & EmailName, "關于")
End Sub
Sub mnuExit_Click
	'退出程序
	ExitCondition = True
	AppClose
End Sub
Sub Form1_Close
	'關閉事件
	If ExitCondition = False Then
		'要求關閉。不關閉...
		form1.CancelClose
		'...隱藏窗口 - SW_HIDE
		dz.ShowWindow(dz.GetActiveWindowHandle, 0)
	Else
		'刪除圖標
		ni.Remove
	End If
End Sub
Sub ni_Click
	'單擊系統托盤圖標
	Dim hWnd
	hWnd = dz.GetWindowHandle("null", AppName)'獲取窗口句柄名稱和類的名稱
	dz.ShowWindow(hWnd, 5)'顯示窗口 - SW_SHOW
	dz.ShowWindow(hWnd, 9)'還原窗口 - SW_RESTORE
	dz.BringWindowToFront(AppName)'讓程序的窗口成為前端窗口
End Sub
Sub mnuHide_Click
	'進入后臺
	dz.ShowWindow(dz.GetActiveWindowHandle, 0)'隱藏 - SW_HIDE
End Sub