托盘区的图标不能及时消失，把鼠标放上去，托盘图标才消失。
//托盘源码
unit Utuopan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus,shellapi;

const
  WM_TRAYNOTIFY=2000;
  MY_TRAY_ICON=1000;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    procedure N2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure OnMin(Sender: TObject);
    procedure WMTrayNotify(var Msg : TMessage);Message WM_TRAYNOTIFY;
  end;

var
  form1: Tform1;
  nid:TNOTIFYICONDATA;


implementation

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
  close;
end;



procedure TForm1.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE,@nid);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=OnMin;
end;

procedure Tform1.OnMin(Sender: TObject);
begin
  nid.cbSize:=Sizeof(TNOTIFYICONDATA);
  nid.Wnd:=Handle;
  nid.uID:=MY_TRAY_ICON;
  nid.uFlags:=NIF_TIP OR NIF_ICON OR NIF_MESSAGE;
  nid.hIcon:=Application.Icon.Handle;
  nid.szTip:='我的程序';
  nid.uCallbackMessage:=WM_TRAYNOTIFY;
  Shell_NotifyIcon(NIM_ADD,@nid);
  ShowWindow(Application.Handle,SW_HIDE);
end;

procedure Tform1.WMTrayNotify(var Msg: TMessage);
var
  p:TPoint;
begin
  if Msg.LParam=WM_LBUTTONDBLCLK then
  begin
    nid.cbSize:=Sizeof(TNOTIFYICONDATA);
    nid.Wnd:=Application.Handle;
    nid.uID:=MY_TRAY_ICON;
    nid.uFlags:=NIF_TIP OR NIF_ICON OR NIF_MESSAGE;
    nid.uCallbackMessage:=WM_TRAYNOTIFY;
    nid.szTip:='';
    //Shell_NotifyIcon(NIM_ADD,@nid);
    ShowWindow(Application.Handle,SW_SHOW);
    Application.Restore;
  end
    else if Msg.LParam=WM_RBUTTONUP then
    begin
      GetCursorpos(p);
      PopupMenu1.Popup (p.x,p.y);
    end;
end;

end.