任务栏托盘区加图标问题~~请高手指点，在线直到问题解决

Question

步骤一、如何点击窗口缩小时将窗口隐藏
步骤二、然后在任务栏托盘区加上一个图标
步骤三、双击托盘小图标窗口将立即弹出

Answer 1

看看这个
http://tech.sina.com.cn/c/2001-09-25/6083.html

Answer 2

http://www.tonixsoft.com/index.php?mmenu_id=3&smenu_id=0005

Answer 3

在VC里可以这样，你自己参考改一改吧，我现在已经没有delphi开发环境了
//设置图标
NOTIFYICONDATA m_TrayIcon;
m_TrayIcon.cbSize = (DWORD)sizeof(NOTIFYICONDATA);
m_TrayIcon.hWnd   = this->m_hWnd;
m_TrayIcon.uID    = IDR_MAINFRAME;
m_TrayIcon.uFlags = NIF_ICON|NIF_MESSAGE|NIF_TIP ;
m_TrayIcon.uCallbackMessage = WM_TASKCLICK; //自定义消息
m_TrayIcon.hIcon = LoadIcon(AfxGetInstanceHandle(), MAKEINTRESOURCE(IDR_MAINFRAME)); //显示的图标
strcpy(m_TrayIcon.szTip, "XXXXXXX"); //提示文字
//缩小到任务栏
Shell_NotifyIcon(NIM_ADD, &m_TrayIcon);
ShowWindow(SW_HIDE);恢复窗口
在自定义的消息处理函数中添加
Shell_NotifyIcon(NIM_DELETE, &m_TrayIcon);
this->ShowWindow(SW_SHOW);

Answer 4

下面以一个具体的例子，详细介绍一下利用Delphi实现系统状态栏图标的步骤和方法。　　1.创建一个应用程序，在主窗体上增加一个TpopupMenu组件。并为该弹出选单组件增加选单项Exit，标题为“退出”。　　2.在Uses中添加ShellAPI，因为在系统状态栏中增加图标时需调用ShellAPI中的函数 
Shell_NotifyIconA。该函数需要两个参数，其中一个是TnotifyIconDataA结构，需在主窗体中增加TnotifyIconDataA类型的全局变量ntida。　　3.定义消息mousemsg，并编写主窗体的mousemessage消息处理函数，此函数说明在图标上用鼠标左键单击时，会打开应用程序窗口；用鼠标右键单击时，会弹出一个选单。　　下面给出步骤2和3的实现代码：　　unit Unit1;　　interface　　uses　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,　　StdCtrls, ExtCtrls, Menus, shellapi;　　const　　mousemsg = wm_user + 1; //自定义消息，用于处理用户在图标上点击鼠标的事件　　iid = 100; //用户自定义数值，在TnotifyIconDataA类型全局变量ntida中使用　　type　　TForm1 = class(TForm)　　......　　private　　//自定义消息处理函数，处理鼠标点击图标事件　　procedure mousemessage(var message: tmessage); message mousemsg;　　public　　{ Public declarations }　　end;　　var　　Form1: TForm1;　　ntida: TNotifyIcondataA;　　//用于增加和删除系统状态图标　　implementation　　{.DFM}　　procedure TForm1.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));　　end;　　message.Result := 0;　　end 

Answer 5

4.编写FormCreate的代码如下：　　procedure TForm1.FormCreate(Sender: TObject);　　begin　　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; 　　5.编写Tform1.OnClose的代码如下：　　procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);　　begin　　Action := caNone; //不对窗体进行任何操作　　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; 　　6.编写Exit代码如下：　　当用户点击Exit时实现完全退出应用程序。具体代码如下：　　procedure TForm1.ExitClick(Sender: TObject);　　begin　　//为ntida赋值，指定各项参数　　ntida.cbSize := sizeof(tnotifyicondataa);　　ntida.wnd := handle;　　ntida.uID := iid;　　ntida.uFlags := nif_icon + nif_tip + nif_message;　　ntida.uCallbackMessage := mousemsg;　　ntida.hIcon := Application.Icon.handle;　　ntida.szTip := 'Icon';　　shell_notifyicona(NIM_DELETE, @ntida);　　//删除已有的应用程序图标　　Application.Terminate;　　//中断应用程序运行，退出应用程序　　end 　　通过以上步骤，我们即可用Delphi轻松实现系统状态栏图标。

Answer 6

还是用控件方便，我用LMD里的，自己写代码，程序结构比较乱，难道一个程序就实现一个托盘功能吗？何苦呢？现成的好用

Answer 7

用第三方控件：CoolTrayIcon v.4.3.1 任务栏图标
下载：http://delphibox.com/article.asp?articleid=34有DEMO，楼主自己看可以解决的