//设置托盘方式,显示,修改,删掉,重要方法
procedure tmytray.settray(way:dword);
begin
ficondata.cbsize:=sizeof(ficondata);
ficondata.wnd:=fhandle;
ficondata.uid:=0;
ficondata.uflags:=nif_icon or nif_message or nif_tip;
ficondata.ucallbackmessage:=wm_traymsg;
ficondata.hicon:=getactiveicon;
strlcopy(ficondata.sztip,pchar(fhint),63);
shell_notifyicon(way,@ficondata);
end;
//取得可用的图标
function tmytray.getactiveicon:thandle;
begin
if not fsetdficon then
result:=ficon.handle
else
result:=fdficon;
end;
//托盘消息的截获,以调用相应的事件调度方法
procedure tmytray.wndproc(var msg: tmessage);
var p:tpoint;
begin
