怎样用Delphi实现Windows托盘程序？

Question

到我网站上去下载
我最新上传的http://CoolSlob.8u8.com/Download/Cleaner.src.zip楼下的人如有需要也可Down仅供学习，欢迎指正~~~~~~~~~~~~
欢迎访问：http://CoolSlob.8u8.com/
                                         CoolSlob.即日

Answer 1

到我网站上去下载
我最新上传的http://CoolSlob.8u8.com/Download/Cleaner.src.zip楼下的人如有需要也可Down仅供学习，欢迎指正~~~~~~~~~~~~
欢迎访问：http://CoolSlob.8u8.com/
                                         CoolSlob.即日

Answer 2

API:
Shell_NofifyIcon
看看《Delphi 5 开发人员指南》第24章的例子吧，很详细的

Answer 3

《Delphi4 技术内幕》450页　9.4　任务栏状态区图标（Tray Icons）
function Shell_NotifyIcon(dwMessage: DWORD; lpdata: PNotifyIconData): Bool; stdcall;
dwMessage代表要进行的操作：
NIM_ADD    在状态区添加一个图标
NIM_DELETE 从状态区删除一个图标
NIM_MODIFY 修改状态区的一个图标
lpData包含支持操作的数据，它是一个指向TNotifyIconData的指针，在ShellApi.pas中的定义如下：
TNotifyIconData = record
  cbSize: DWORD;    //该结构的字节数
  Wnd: HWND;        //接收通知消息的窗口的句柄
  uID: UINT;        //代表任务栏图标的唯一的数
  uFlags: UINT;　　//一系列的标志，指出结构中其它字段那些有效
  uCallbackMessage: UINT;　　//消息标识符
  hIcon: HICON;　　　//包含了要操作的图标的句柄
  szTip: array [0..63] of WideChar;  //用于提示(Tip)的字符串
end;
uFlags可以取以下值：
NIF_ICON      hIcon成员有效
NIF_MESSAGE   uCallbackMessage成员有效
NIF_TIP       szTip成员有效

Answer 4

实现Windows托盘程序的一个列子：unit Unit1; interface { 记住在uses部分中包括 ShellAPI} 
uses 
Windows, Messages, SysUtils, Classes, 
Graphics, Controls, Forms, Dialogs, 
ShellAPI, StdCtrls; {自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息} 
{自定义消息，当小图标捕捉到鼠标事件时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.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.cbSize := sizeof(nid); // nid变量的字节数 
nid.uID := -1; //内部标识，与加入小图标时的数一致 
nid.Wnd := Handle; //主窗口句柄 
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标 
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标 
end; {主窗口初始化完毕并显示时将激活Paint重画事件，此时将主窗口隐藏} 
procedure TForm1.FormPaint(Sender: TObject); 
begin 
Hide; 
end; end.