我用ＤＥＰＨＩ写了个小程序，把它缩小为个小图标，放在操作系统的底下状态栏里，和时间、输入法等放在一起，做好后，可是当我点击它后弹

我是调用API函数的，源程序如下：
procedure ZoomEffect(theForm: TForm; theOperation: TZoomAction);
var
  rcStart: TRect;
  rcEnd: TRect;
  rcTray: TRect;
  hwndTray: hWnd;
  hwndChild: hWnd;
begin
{ 寻找系统托盘区的位置}
  hwndTray := FindWindow('Shell_TrayWnd', nil);
  hwndChild := FindWindowEx(hwndTray, 0, 'TrayNotifyWnd', nil);
  GetWindowRect(hwndChild, rcTray);{点击用于最大化/最小化，并切换起始/结束}
  if theOperation = zaMinimize then
  begin
    rcStart := theForm.BoundsRect;
    rcEnd := rcTray;
  end
  else
  begin
    rcEnd := theForm.BoundsRect;
    rcStart := rcTray;
  end;{ 以下是关键的部分... }
  DrawAnimatedRects(theForm.Handle, IDANI_CAPTION, rcStart, rcEnd)
end;procedure TmainFrm.WMSysCommand(var Message: TMessage);
begin
  if Message.WParam = SC_ICON then //最小化了
  begin
//    close;
    ZoomEffect(Self, zaMinimize); //进行放缩
    ShowWindow(Handle, SW_HIDE); //隐藏主窗体
  //隐藏应用程序窗口在任务栏上的显示
    ShowWindow(Application.Handle, SW_HIDE);
    SetWindowLong(Application.Handle, GWL_EXSTYLE,
      GetWindowLong(Application.handle, GWL_EXSTYLE)
      or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);  end
  else
    inherited;
end;procedure TmainFrm.mousemessage(var message: tmessage);
var
  mousept: TPoint; //鼠标点击位置
begin
  inherited;
  if message.LParam = wm_rbuttonup then //用鼠标右键点击图标
  begin
    getcursorpos(mousept); //获取光标位置
    popupmenu1.popup(mousept.x, mousept.y);
    //在光标位置弹出选单
  end;
  if message.LParam = wm_lbuttonup then //用鼠标左键点击图标
  begin
    //显示应用程序窗口
    // ShowWindow(Handle, SW_SHOW);
    //在任务栏上显示应用程序窗口
    //ShowWindow(Application.handle, SW_SHOW);
{    SetWindowLong(Application.Handle, GWL_EXSTYLE,
      not (GetWindowLong(Application.handle, GWL_EXSTYLE)
      or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW));
      hide;//起到动态效果
      show;  }
    getcursorpos(mousept); //获取光标位置
    popupmenu2.popup(mousept.x, mousept.y);
  end;
  message.Result := 0;
end;procedure TmainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone; //不对窗体进行任何操作
  ZoomEffect(Self, zaMinimize); //进行放缩
  ShowWindow(Handle, SW_HIDE); //隐藏主窗体
//隐藏应用程序窗口在任务栏上的显示
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.handle, GWL_EXSTYLE)
    or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);end;procedure TmainFrm.FormCreate(Sender: TObject);
begin
  //不在任务栏中出现
  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  ntida.cbSize := sizeof(tnotifyicondataa); //指定ntida的长度
  ntida.Wnd := handle; //取应用程序主窗体的句柄
  ntida.uID := iid; //用户自定义的一个数值，在uCallbackMessage参数指定的消息中使
  ntida.uFlags := nif_icon + nif_tip + nif_message;
  //指定在该结构中uCallbackMessage、hIcon和szTip参数都有效
  ntida.uCallbackMessage := mousemsg;
  //指定的窗口消息
  ntida.hIcon := Application.Icon.handle;
  //指定系统状态栏显示应用程序的图标句柄
  ntida.szTip := 'Icon';
  //当鼠标停留在系统状态栏该图标上时，出现该提示信息
  shell_notifyicona(NIM_ADD, @ntida);
  //在系统状态栏增加一个新图标
end;