发信人: wilsonplayer() 
整理人: girlrong(1999-11-10 08:39:55), 站内信件
 | 
 
 
 -- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.190.86] 发信人: tinyant (小蚂蚁), 信区: C 标  题: Re: 用bcb编程如何将最小化图标放入右下角的框框里 发信站: 网易虚拟社区 (Tue Jul 27 09:27:17 1999), 站内信件
  【 在 wilsonplayer (ray) 的大作中提到: 】
 
 找SHELL编程的资料看看
  -- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.239.20] 发信人: mrcloud (Cloud), 信区: C 标  题: Re: 用bcb编程如何将最小化图标放入右下角的框框里 发信站: 网易虚拟社区 (Tue Jul 27 17:22:25 1999), 站内信件
  【 在 wilsonplayer (ray) 的大作中提到: 】
 
 要用到
 #include <shellapi.h>
 //加入TrayIcon
   TrayMessage(NIM_ADD);
   TrayMessage(NIM_MODIFY);
 //减去TrayIcon
   TrayMessage(NIM_DELETE);
 //交换两个图标
   TrayMessage(NIM_MODIFY);
 
 当然,离完成还早呢.
 
  -- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.96.243.149] 发信人: heman (英雄本色郎), 信区: C 标  题: Re: 用bcb编程如何将最小化图标放入右下角的框框里 发信站: 网易虚拟社区 (Tue Jul 27 22:30:46 1999), 站内信件
  【 在 wilsonplayer (ray) 的大作中提到: 】
 here is some codes clip from my software source code,hope help u.
 
 //-------------------------------------------------------------------- -------
 __fastcall TForm1::TForm1(TComponent* Owner)
     : TForm(Owner)
 {
 SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);  //do  not show the in the taskbar
 clipIcon.cbSize = sizeof(NOTIFYICONDATA);
         clipIcon.uFlags = NIF_MESSAGE | NIF_ICON | NIF_TIP;
         clipIcon.hWnd = Handle;
         clipIcon.uID = (UINT) IDI_APPLICATION;
         clipIcon.hIcon = Icon->Handle;
         clipIcon.uCallbackMessage = UCALLBACK;
         strcpy(clipIcon.szTip, "coolclip");
         Shell_NotifyIcon(NIM_ADD, &clipIcon);
 }
 void __fastcall TForm1::CallBack(TMessage& Message)
 {
     POINT m_point;
 	if (Message.LParam == WM_RBUTTONDOWN)
         {
         	GetCursorPos(&m_point);
 	        PopupMenu1->Popup(m_point.x,m_point.y);
         }
      if (Message.LParam == WM_LBUTTONDOWN)
      {ShowWindowAsync( Handle, SW_SHOW );
        this->Show();}
         TForm::Dispatch(&Message);
 }
 //-------------------------------------------------------------------- --------
 void __fastcall TForm1::Show1Click(TObject *Sender)
 {
 
 ShowWindowAsync( Handle, SW_SHOW );
 this->Show();
 }
 //-------------------------------------------------------------------- -------
  -- 
 冷月如霜,照我山河万里疆.
  ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.103.136.27]
  | 
 
 
 |