计算机毕业论文:系统托盘的编程

托盘消息处理：

在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知Windows在任务条右下角加入一个小图标，可惜该函数的详细说明未收入Delphi的帮助文档中。现将实现例程示范如下：

unitpro2;

interface

uses

。。。,Menus,shellAPI;//TNotifyIconData是定义在shellAPI单元的

{自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}

constWM_MYTRAYICONCALLBACK=WM_USER+1000;

。。。。

private

MyTrayIcon:TNotifyIconData;

procedureWMMyTrayIconCallBack(VarMsg:TMessage);messageWM_MYTRAYICONCALLBACK;

//托盘消息处理过程

procedureWMCommand(Varmsg:TWMCommand);messageWM_Command;

//处理托盘图标的右键菜单事件

procedureMinimize(varmess:TWMNCLBUTTONDOWN);messageWM_NCLBUTTONDOWN;

//窗体最小化时的消息处理

。。。。。。。。

procedureTForm1.FormCreate(Sender:TObject);

begin

//将程序窗口样式设为TOOL窗口，避免在任务栏上出现

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

end;

procedureTForm1.FormShow(Sender:TObject);

begin

//设置托盘

Icon.Handle:=LoadIcon(Hinstance,''''MAINICON'''');

MyTrayIcon.cbSize:=SizeOf(TNotifyIconData);//nid变量的字节数

MyTrayIcon.Wnd:=Handle;//主窗口句柄

MyTrayIcon.uID:=1;//内部标识，可设为任意数

MyTrayIcon.uFlags:=NIF_ICONorNIF_TIPorNIF_MESSAGE;//指明哪些字段有效

MyTrayIcon.uCallBackMessage:=WM_MYTRAYICONCALLBACK;//回调函数消息，将自定义托盘消息传递进去

MyTrayIcon.hIcon:=Application.Icon.Handle;//要加入的图标句柄，可任意指定

StrCopy(MyTrayIcon.szTip,PChar(Caption));

Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);

ShowWindow(Handle,sw_Hide);

//Visible:=False;//当程序启动时就最小化在托盘区即Form.Create时启用此语句

Application.ShowMainForm:=False;

SetForegroundWindow(Application.Handle);

end;

////消息过程实现

procedureTForm1.WMMyTrayIconCallBack(varMsg:TMessage);

varCursorPos:TPoint;

begin

caseMsg.LParamof

WM_LBUTTONDBLCLK://双击消息：弹出主窗口

begin

Visible:=notVisible;

Application.ShowMainForm:=Visible;

SetForegroundWindow(Application.Handle);

end;

WM_RBUTTONDOWN://鼠标右键：弹出菜单

begin

GetCursorPos(CursorPos);

{Popupmenu1.Popup(CursorPos.X,CursorPos.Y);

popupmen1里面就可以加入显示主窗口、退出等功能。这个右键菜单可以是静态的，如上面一句来弹出；也可以动态建立，如下面所示的方法：}

pm:=createpopupmenu;//建立一个Hmenu,pm:hmenu;

AppendMenu(pm,0,ord(''''A''''),''''关于....'''');//在指定的菜单里添加一个菜单项

AppendMenu(pm,0,Ord(''''B''''),''''&Exit'''');

//加入菜单事件---》处理WMCOMMAND消息即可

TrackPopupMenu(pm,Tpm_BottomAlignorTpm_RightAlign,CursorPos.x,CursorPos.y,0,handle,nil);

//在图标上方显示该弹出式菜单

end;

end;

end;

procedureTForm1.WMCommand(varmsg:TWMCommand);

begin

Casemsg.ItemIDof

Ord(''''A''''):showmessage(''''我的右键菜单！'''');

Ord(''''B''''):Self.close;//关闭程序主窗体

elseinherited;

end;

end;

procedureTform1.Minimize(varmess:TWMNCLBUTTONDOWN);//应用程序最小化消息处理

begin

ifMess.Hittest=htReducethen

Self.Hide

elseinherited;

end;

procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);

var{程序被关闭时通知Windows去掉小图标}

nid:TNotifyIconData;

begin

nid.cbSize:=sizeof(nid);//nid变量的字节数

nid.uID:=1;//内部标识，与加入小图标时的数一致

nid.Wnd:=Handle;//主窗口句柄

Shell_NotifyIcon(NIM_DELETE,@nid);//去掉小图标

end;