系统托盘的编程.docx

系统托盘的编程托盘消息处理：在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知Windows在任务条右下角加入一个小图标，可惜该函数的详细说明未收入Delphi的帮助文档中。现将实现例程示范如下：unitpro2;interfaceuses。。。,Menus,shellAPI;//TNotifyIconData是定义在shellAPI单元的{自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}constWM_MYTRAYICONCALLBACK=WM_USER+1000;。。。。privateMyTrayIcon: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;begincaseMsg.LParamofWM_LBUTTONDBLCLK://双击消息：弹出主窗口beginVisible:=notVisible;Application.ShowMainForm:=Visible;SetForegroundWindow(Application.Handle);end;WM_RBUTTONDOWN://鼠标右键：弹出菜单beginGetCursorPos(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;