发帖回复

2960阅读
2回复

VC编程制作系统托盘程序

ヾ1.嗰rёn

级别: 终身会员

发帖: 3743

铜板: 8

人品值: 493

贡献值: 9

交易币: 0

好评度: 3746

信誉值: 0

金币: 0

所在楼道

只看楼主更多操作楼层直达

0 发表于: 2006-06-11

　　Windows操作系统中的某些程序运行时不显示运行窗口，只在任务栏上显示一个图标，表示程序正在运行，用户可以通过鼠标与应用程序交互，比如金山毒霸等应用程序，我们有时也需要编制一些仅在后台运行的类似程序，为了不干扰前台程序的运行界面和不显示不必要的窗口，应使程序运行时的主窗口不可见。同时将一个图标显示在任务栏右端静态通告区中并响应用户的鼠标动作。下面介绍Visual C++开发这类程序的设计方法。

　　一、隐藏程序的主窗口

　　首先，要使程序的主窗口不可见，并且不在任务栏上出现任务按钮，要做到这两点，需分别设置主边框窗口的风格和扩展风格：

BOOL CMainFrame::PreCreateWindow(CREATESTRUCT& cs)
{
　cs.style =WS_POPUP;//使主窗口不可见
　cs.dwExStyle |=WS_EX_TOOLWINDOW;//不显示任务按钮
　return CFrameWnd::PreCreateWindow(cs);
}

　　二、将表示程序运行的图标加入任务栏

　　在主框架窗口的CMainFrame::OnCreate（）函数中调用上述函数，就可以在任务条上显示图标这一步是利用系统API函数Shell_NotifyIcon（）将一个图标显示在任务栏的通告区中。该函数的原型为：在调用该函数之前，需要确定其参数的取值。其中Shell_NotifyIcon（）函数的第一个参数是一个预定义的消息，可以取如下值之一：NIM_ADD、NIM_DELETE或NIM_MODIFY，分别表示添加图标、删除图标或修改图标。另一个参数为指向NOTIFYICONDATA类型的指针。其原型为：

typedef struct _NOTIFYICONDATA {
　DWORD cbSize;
　HWND hWnd;
　UINT uID;
　UINT uFlags;
　UINT uCallbackMessage;
　HICON hIcon;
　charszTip[64]; }
NOTIFYICONDATA

　　在该结构的成员中，cbSize为该结构所占的字节数，hWnd为接受该图标所发出的消息的窗口的句柄（鼠标在任务栏上程序图标上动作时图标将发出消息，这个消息用户要自己定义），uID为被显示图标的ID，uFlags指明其余的几个成员（hIcon、uCallBackMessage和szTip）的值是否有效，uCallbackMessage为一个用户自定义的消息，当用户在该图标上作用一些鼠标动作时，图标将向应用程序的主框架窗口（hWnd成员中指定的窗口）发出该消息，。hIcon为将在任务栏上被显示图标的句柄，szTip鼠标停留在该图标上时显示的字符串。

int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)
{
　NOTIFYICONDATA tnd;
　tnd.cbSize=sizeof(NOTIFYICONDATA);
　tnd.hWnd=this->m_hWnd;
　tnd.uID=IDR_MAINFRAME;
　tnd.uFlags=NIF_MESSAGE|NIF_ICON|NIF_TIP;
　tnd.uCallbackMessage=WM_MYMESSAGE;
　file://用户自定义的消息，即鼠标在任务栏上程序图标上动作时图标发送的消息
　tnd.hIcon=LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDR_MAINFRAME));
　strcpy(tnd.szTip,"测试程序");//图标提示为"测试程序"
　Shell_NotifyIcon(NIM_ADD,&tnd);//向任务栏添加图标
}
三、用户与程序交互的实现

　　用户进行交互，也就是当用户在该图标上单击或双击鼠标左键或右键时要执行相应的操作，至少也要响应用户终止该程序的意愿。上面已经提到，当用户在图标上进行鼠标动作时，将向hWnd成员中指定的窗口发出自定义的消息，该消息为uCallbackMessage成员所指定的WM_MYESSAGE，取值为WM_USER+101（如何自定义消息，我就不多说了）。我们要实现任务就是在hWnd窗口中响应该自定义消息：

void CMainFrame::OnMYMESSAGE(WPARAM wParam,LPARAM lParam)
{
　UINT uID;//发出该消息的图标的ID
　UINT uMouseMsg;//鼠标动作
　POINT pt;
　uID=(UINT) wParam;
　uMouseMsg=(UINT) lParam;
　if(uMouseMsg==WM_RBUTTONDOWN)//如果是单击右键
　{
　　switch(uID)
　　{
　　case IDR_MAINFRAME://如果是我们的图标
　　　GetCursorPos(&pt);//取得鼠标位置
　　　AfxGetApp( )-> m_pMainWnd->ShowWindow(SW_SHOWNORMAL);//显示程序窗口
　　　break;
　　　default:
　　}
　}
　return;
}

　　四、程序结束时删除程序图标

　　当程序结束时，需要删去通告区中的图标，这时还应该调用Shell_NotifyIcon函数，只不过第一个参数是表示删除图标的NIM_DELETE了：

void CMainFrame::~CmainFrame()
{
　NOTIFYICONDATA tnid;
　tnid.cbSize=sizeof(NOTIFYICONDATA);
　tnid.hWnd=this->m_hWnd;
　tnid.uID=IDR_MAINFRAME;//保证删除的是我们的图标
　Shell_NotifyIcon(NIM_DELETE,&tnid);
}

　　上述实现步骤可以实现托盘程序

评价一下你浏览此帖子的感受

回复引用

举报顶端

jackal

级别: 经院高中

发帖: 369

铜板: 3800

人品值: 215

贡献值: 0

交易币: 0

好评度: 305

信誉值: 0

金币: 0

所在楼道

只看该作者 1 发表于: 2006-06-12

忽然对VB感兴趣了,来转一个!

1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False

　　2、菜单：工程--添加模块按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas

　　3、在Module1中写下如下代码：

复制代码

Option Explicit
Public Const MAX_TOOLTIP As Integer = 64
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const SW_RESTORE = 9
Public Const SW_HIDE = 0
Public nfIconData As NOTIFYICONDATA
Public Type NOTIFYICONDATA
　cbSize As Long
　hWnd As Long
　uID As Long
　uFlags As Long
　uCallbackMessage As Long
　hIcon As Long
　szTip As String * MAX_TOOLTIP
End Type
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

　　4、在Form1的Load事件中写下如下代码：

复制代码

Private Sub Form_Load()
　'以下把程序放入System Tray====================================System Tray Begin
　With nfIconData
　　.hWnd = Me.hWnd
　　.uID = Me.Icon
　　.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
　　.uCallbackMessage = WM_MOUSEMOVE
　　.hIcon = Me.Icon.Handle
　　'定义鼠标移动到托盘上时显示的Tip
　　.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar
　　.cbSize = Len(nfIconData)
　End With
　Call Shell_NotifyIcon(NIM_ADD, nfIconData)
　'=============================================================System Tray End
　Me.Hide
End Sub

　　5、在Form1的QueryUnload事件中写入如下代码：

复制代码

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Sub

　　6、在Form1的MouseMove事件中写下如下代码：

复制代码

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　Dim lMsg As Single
　lMsg = X / Screen.TwipsPERPixelX
　Select Case lMsg
　　Case WM_LBUTTONUP
　　　'MsgBox "请用鼠标右键点击图标!", vbInformation, "实时播音专家"
　　　'单击左键，显示窗体
　　　ShowWindow Me.hWnd, SW_RESTORE
　　　'下面两句的目的是把窗口显示在窗口最顶层
　　　'Me.Show
　　　'Me.SetFocus
　　　'' Case WM_RBUTTONUP
　　　'' PopupMenu MenuTray '如果是在系统Tray图标上点右键，则弹出菜单MenuTray
　　　'' Case WM_MOUSEMOVE
　　　'' Case WM_LBUTTONDOWN
　　　'' Case WM_LBUTTONDBLCLK
　　　'' Case WM_RBUTTONDOWN
　　　'' Case WM_RBUTTONDBLCLK
　　　'' Case Else
　End Select
End Sub