如何使程序最小化时可缩至右下角的工具栏中？(100分)

如何使程序最小化时可缩至右下角的工具栏中？

是右下角的工具栏吗
用 SHELL_NOTIFYICON API. 你可到已答问题中找,一大堆

类似问题太多了,最简单的方法事找一个控件.

我建议两种方法:
1.自己写代码.可以用api中的SHELL_NOTIFYICON的函数,必须处理好鼠标右键等一系列操作.比较麻烦.我邮源代码.你特殊需要我可以给你,但我必须手工敲入!!!
2.用一个控件.ahm98中有一个ahmsystemtray控件,非常稳定可靠.我用它编了好几个程序了.如task等.
我把ahm98 for d4 完全破解档放到了我的主页上....
http://www.sunhy.com/download/ahm98.zip
我的主页:http://www.sunhy.com

以Microsoft Visual C++ 5.0开发这类程序的主要步骤。

首先，要使程序的主窗口不可见，并且不在任务栏上出现任务按钮，要做到这两点，需分别设置主边框窗口的风格和扩展风格：

BOOL CMainFrame:reCreateWindow(CREATESTRUCT& cs)

{

cs.style =WS_POPUP;//使主窗口不可见

cs.dwExStyle |=WS_EX_TOOLWINDOW;//不显示任务按钮

return CFrameWnd:reCreateWindow(cs);

}

其次，利用系统函数Shell_NotifyIcon将一个图标显示在任务栏的通告区中。该函数的原型为：

WINSHELLAPI BOOL WINAPI Shell_NotifyIcon(

DWORD dwMessage,

PNOTIFYICONDATA pnid

);

下例中被显示的是主边框窗口的图标，实际上可以显示任何图标：

int CMainFrame::OnCreate(LPCREATESTRUCT lpCreateStruct)

{

…

NOTIFYICONDATA tnd;

tnd.cbSize=sizeof(NOTIFYICONDATA);

tnd.hWnd=this->m_hWnd;

tnd.uID=IDR_MAINFRAME;

tnd.uFlags=NIF_MESSAGE|NIF_ICON|NIF_TIP;

tnd.uCallbackMessage=WM_LIBEN;

tnd.hIcon=LoadIcon(AfxGetInstanceHandle(),MAKEINTRESOURCE(IDR_MAINFRAME));

strcpy(tnd.szTip,"提示信息");

Shell_NotifyIcon(NIM_ADD,&tnd);

…

}

在调用该函数之前，需要确定其参数的取值，其中之一为一个具有NOTIFYICONDATA类型的结构。其原型为：

typedef struct _NOTIFYICONDATA { // nid

DWORD cbSize;

HWND hWnd;

UINT uID;

UINT uFlags;

UINT uCallbackMessage;

HICON hIcon;

charszTip[64]; }

NOTIFYICONDATA, *PNOTIFYICONDATA;

在该结构的成员中，cbSize为该结构所占的字节数，hWnd为接受该图标所发出的消息的窗口的句柄，uID为被显示图标的ID，uFlags指明其余的几个成员（hIcon、uCallBackMessage和szTip）的值是否有效，uCallbackMessage为一个自定义的消息，当用户在该图标上作用一些鼠标动作时，将向hWnd成员中指定的窗口发出该消息，可以定义该消息为WM_USER+100。hIcon为被显示图标的句柄，szTip为一字符数组，当鼠标停留在该图标上时，将其内容显示在浮动的提示信息框中。Shell_NotifyIcon函数的另一个参数是一个预定义的消息，可以取如下值之一：NIM_ADD、NIM_DELETE或NIM_MODIFY，分别表示添加图标、删除图标或修改图标。

最后，要与用户进行交互，也就是当用户在该图标上单击或双击鼠标左键或右键时要执行相应的操作，至少也要响应用户终止该程序的意愿。上面已经提到，当用户在图标上进行鼠标动作时，将向hWnd成员中指定的窗口发出自定义的消息，该消息由uCallbackMessage成员指定（在上例中为WM_LIBEN，取值为WM_USER+100）。因此，我们的任务就是在hWnd窗口中响应该自定义消息：

void CMainFrame::OnLiben(WPARAM wParam,LPARAM lParam)

{

UINT uID;//发出该消息的图标的ID

UINT uMouseMsg;//鼠标动作

POINT pt;

uID=(UINT) wParam;

uMouseMsg=(UINT) lParam;

if(uMouseMsg==WM_RBUTTONDOWN)//如果是单击右键

{

switch(uID)

{

case IDR_MAINFRAME://如果是我们的图标

GetCursorPos(&pt);//取得鼠标位置

…//执行相应操作

break;

…

default:

…

}

}

return;

}

需要注意的是，首先要在该窗口类的头文件中给出该消息映射函数的原型说明：

afx_msg void OnLiben(WPARAM wParam,LPARAM lParam);

并且要在CPP文件中的消息映射中加入相应的条目，注意一定要加在//{{AFX_MSG_MAP(CMainFrame)和//}}AFX_MSG_MAP之外：

BEGIN_MESSAGE_MAP(CMainFrame, CFrameWnd)

//{{AFX_MSG_MAP(CMainFrame)

ON_WM_CREATE()

ON_COMMAND(ID_APP_EXIT, OnAppExit)

//}}AFX_MSG_MAP

ON_MESSAGE(WM_LIBEN,OnLiben)

END_MESSAGE_MAP()

当程序结束时，需要删去通告区中的图标，这时同样应该调用Shell_NotifyIcon函数，只不过第一个参数是表示删除图标的NIM_DELETE了：

void CMainFrame::OnAppExit()

{

// TODO: Add your command handler code here

NOTIFYICONDATA tnid;

tnid.cbSize=sizeof(NOTIFYICONDATA);

tnid.hWnd=this->m_hWnd;

tnid.uID=IDR_MAINFRAME;//保证删除的是我们的图标

Shell_NotifyIcon(NIM_DELETE,&tnid);

AfxPostQuitMessage(0);

}

通过类似的步骤，可以响应其他的消息，完成更加高级的交互功能

//wrench 摘自程序员大本营

@_@

给你发一个我自己编的组件.

找个trayicon,traycom之类的控件，需要的话email至fzh@263.net

@@_@@天阿，各位大哥给小弟一些学习经验。
ccpwufan@cmmail.com

最小化时执行:
showwindow(application.handle,sw_hide); //隐藏任务栏图标
tubiao:=application.Icon.handle; //在消息通知区域加图标
aa.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
aa.uID:=uint(IDI_TRAYICON);
aa.cbSize:=sizeof(tnotifyicondata);
aa.uCallbackMessage:=tray_callback; //必须事先定义一个消息
aa.Wnd:=self.handle;
aa.hIcon:=tubiao;
aa.sztip:='我的程序';
shell_notifyicon(nim_add,@aa);

在程序结束时加入:
aa.uFlags:=0;
aa.uID:=uint(IDI_TRAYICON);
aa.cbSize:=sizeof(tnotifyicondata);
aa.Wnd:=self.handle;
aa.hIcon:=tubiao;
aa.uCallbackMessage:=tray_callback;
aa.sztip:='我的程序';
shell_notifyicon(nim_delete,@aa);

好麻烦的，还是用控件吧

随便找trayicon的构件, 在wm_syscommand=sc_minimize(sc_icon)时, form.hide,
trayicon.visible:=true, 在wm_syscommand=sc_restore时,
trayicon.visible:=false;

用RxLib控件集吧，非常方便。

sunstone:
我以前下载过一个小程序,好像叫task2000,
那个程序写得很有水平,后来密码忘了,就没用过,
是不是你写的?

to lhxu
正是小生的愚作,现在已改名为Task了,功能有增强了不少!
我准备下个月再改一改.
下载地址: http://sunhy.126.com

某些程序运行启动后并不出现在任务条中，而是缩小为任务条右下角的一
个小图标，当鼠标移到这个小图标上时会出现一些提示信息、单击该小图标会
执行一些特定的操作。便如任务条右下角的小喇叭图标，单击它会弹出一个简
单的音量控制条，双击会启动另一个更大的音量控制程序。
　　在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知
Windows在任务条右下角加入一个小图标，可惜该函数的详细说明未收入Delphi
的帮助文档中，下面以一个简单的实例来说明如果使用该函数。

unit Unit1;

interface

{ 记住在uses部分中包括 ShellAPI}
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
ShellAPI, StdCtrls;

{自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
const MY_MESSAGE = WM_USER + 100;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormPaint(Sender: TObject);
private
procedure OnIconNotify(var Message: TMessage);
message MY_MESSAGE;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{当小图标捕捉到鼠标事件时进入此过程}
procedure TForm1.OnIconNotify(var Message: TMessage);
const
Busy: Boolean = false;
begin
if not Busy then begin
Busy := true;
if Message.LParam=WM_LBUTTONDOWN then
if Application.MessageBox('Are you sure',
'Exit', MB_YESNO)=IDYES then Close;
Busy := false;
end;
end;

{当主Form建立时通知Windows加入小图标}
procedure TForm1.FormCreate(Sender: TObject);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.Wnd := Handle; // 主窗口句柄
nid.uID := -1; // 内部标识，可设为任意数
nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄，可任意指定
nid.szTip := 'This is a test application'; // 提示字符串
nid.uCallbackMessage := MY_MESSAGE; // 回调函数消息
nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有效
if not Shell_NotifyIcon(NIM_ADD, @nid) then begin
ShowMessage('Failed!');
Application.Terminate;
end;
{将程序的窗口样式设为TOOL窗口，可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;

{程序被关闭时通知Windows去掉小图标}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.uID := -1; //内部标识，与加入小图标时的数一致
nid.Wnd := Handle; //主窗口句柄
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标
end;

{主窗口初始化完毕并显示时将激活Paint重画事件，此时将主窗口隐藏}
procedure TForm1.FormPaint(Sender: TObject);
begin
Hide;
end;

end.



　　上例中将程序的图标放在任务条右下角，然后隐藏自身，当用户移动鼠标
至该图标上时会看到提示字符串，如果单击该图标会出现一个对话框，选择Yes
退出程序并清除小图标。

我在<<delphi 3高级开发指南>>的配套光盘中有此控件，如想要请与我联系！
xielifeng@yeah.net

这样的控件太多了,随便找一个,何必自己劳神呢?

到32位深度历险http://vcl.vclxx.com/DELPHIGB/DEFAULT.HTM去找个控件吧，自己写麻烦，虽然并不复杂。