如何让delphi编的程序在最小化时像网络蚂蚁一样只在右下脚的系统托盘显示？

Question

其实这个很简单的!
用到了shellapi单元
甬道了shell_notifyicon函数,
和notifyicondata类型记录
首先将notifyicondata初始化,然后
shell_notifyicon(nim_add,@pnotifyicondata)
shell_notifyicon(nim_delete,@pnotifyicondata);
具体可以参考<delphi开发人员指南>

Answer 1

给你个例子如下：：
程序缩小为任务条右下角的小图标
某些程序运行启动后并不出现在任务条中，而是缩小为任务条右下角的一个小图标，当鼠标移到这个小图标上时会出现一些提示信息、单击该小图标会执行一些特定的操作。便如任务条右下角的小喇叭图标，单击它会弹出一个简单的音量控制条，双击会启动另一个更大的音量控制程序。在Shell32.DLL动态链接库中包括一个函数Shell_NotifyIconA()可通知Windows在任务条右下角加入一个小图标，可惜该函数的详细说明未收入Delphi的帮助文档中，下面以一个简单的实例来说明如果使用该函数。
unit Unit1;
interface
{ 记住在uses部分中包括 ShellAPI}usesWindowsMessagesSysUtilsClassesGraphicsControlsFormsDialogsShellAPIStdCtrls;
{自定义消息，当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}const MY_MESSAGE = WM_USER + 100;
typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure FormPaint(Sender: TObject);privateprocedure OnIconNotify(var Message: TMessage);message MY_MESSAGE;public{ Public declarations }end;
varForm1: TForm1;
implementation
{$R *.DFM}{当小图标捕捉到鼠标事件时进入此过程}procedure TForm1.OnIconNotify(var Message: TMessage);constBusy: Boolean = false;beginif not Busy then beginBusy := true;if Message.LParam=WM_LBUTTONDOWN thenif Application.MessageBox('Are you sure'
'Exit'MB_YESNO)=IDYES then Close;Busy := false;end;end;
{当主Form建立时通知Windows加入小图标}procedure TForm1.FormCreate(Sender: TObject);varnid: TNotifyIconData;beginnid.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 beginShowMessage('Failed!');Application.Terminate;end;{将程序的窗口样式设为TOOL窗口，可避免在任务条上出现}SetWindowLong(Application.HandleGWL_EXSTYLEWS_EX_TOOLWINDOW);end;
{程序被关闭时通知Windows去掉小图标}procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);varnid: TNotifyIconData;beginnid.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);beginHide;end;
end.
上例中将程序的图标放在任务条右下角，然后隐藏自身，当用户移动鼠标至该图标上时会看到提示字符串，如果单击该图标会出现一个对话框，选择Yes退出程序并清除小图标。

Answer 2

 Const WM_ICONCALLBACKMESSAGE=WM_USER+0;
  tind:TNotifyIconData;
    procedure  WndProc (var Message:TMessage);message WM_iconcallbackMessage;
tind.cbSize:=SizeOf (TNotifyIconData);
  tind.Wnd:=form1.Handle;
  tind.hIcon:=Application.Icon.Handle;
  tind.uFlags:=NIF_TIP OR NIF_ICON OR NIF_MESSAGE;
  tind.uID:=0;
  tind.szTip:='测试';
  tind.uCallBackMessage:=WM_ICONCALLBACKMESSAGE;
shell_NotifyIcon (NIM_ADD,@tind);
shell_NotifyIcon (NIM_delete,@tind); procedure  WndProc (var Message:TMessage);if msg.LParam=WM_LButtonDown then
    begin
      ShowWindow(Application.Handle,SW_Show);
      Application.Restore;
    end
  else if msg.LParam=WM_RButtonDown then
    begin
      GetCursorPos(p);
      PopupMenu1.Popup(p.x,p.y);
    end;

Answer 3

Look:
 unit Unit_Shell;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellAPI, ExtCtrls, Menus;Const
   WM_TRayMessage=WM_user+10;type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    aaa1: TMenuItem;
    bbb1: TMenuItem;
    ccc1: TMenuItem;
    ddd1: TMenuItem;
    Image1: TImage;
    Procedure WMTrayMessage(Var Msg:TMessage);Message WM_Traymessage;
    Procedure AppMiniMized(Sender:TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  Nid:TNotifyIconData;implementation{$R *.dfm}
Procedure Tform1.WMTrayMessage(Var Msg:TMessage);
  Var
    PMouse:TPoint;
 Begin
   If Msg.LParam=WM_LButtonDBLclk Then
     Begin
        ShowWindow(Application.Handle,SW_Show);
        Application.Restore ;
     End
   Else If Msg.LParam=WM_RButtonDown Then
     Begin
       GetCursorPos(PMouse);
       PoPupMenu1.Popup(PMouse.X,Pmouse.Y)
     End;
 End;Procedure TForm1.AppMiniMized(Sender:TObject);
 Begin
   Nid.cbSize:=Sizeof(TNotifyIconData);
   Nid.hIcon:=Image1.Picture.Icon.Handle ;
   Nid.szTip:='测试系统';
   Nid.uCallbackMessage:=WM_TrayMessage;
   Nid.uFlags:=Nif_Icon or Nif_Message OR Nif_Tip;
   Nid.Wnd:=Handle;
   Nid.uID:=0;
   Shell_NotifyIcon(Nim_add,@Nid);
   ShowWindow(Application.Handle,SW_Hide);
 end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:=AppMiniMized;
  AppMiniMized(Nil);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(Nim_Delete,@Nid);
end;end.