ismin:=false;
//创建一个不可视窗口，并指定窗口过程，以处理托盘事件
fhandle := allocatehwnd(wndproc);
//保存窗体的老的风格,在恢复窗口的同时也恢复原来的窗口风格
oldstyleex:=getwindowlong(application.handle,gwl_exstyle);
end;
destructor tmytray.destroy;
begin
application.unhookmainwindow(appmsghook);
//对象释放之前先消除托盘
settray(nim_delete);
//释放不可能窗口的句柄
deallocatehwnd(fhandle);
ficon.free;
inherited destroy;
end;
//应用程序钩子,可以截获应用程序的所有消息
function tmytray.appmsghook(var msg:tmessage):boolean;
var placement:windowplacement;
begin
result:=false;
//保证程序不会在设计时处理最小化消息
