Delphi实现系统托盘图标

1、创建一个应用程序，在主窗体上增加一个TpopupMenu组件。并为该弹出菜单组件增加标题（Caption）为“退出”的一个选项。     
    
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)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    {.......}
  private
    //自定义消息处理函数，处理鼠标点击图标事件
    procedure   mousemessage(var   message:   tmessage);   message   mousemsg;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  ntida:   TNotifyIcondataA;  //用于增加和删除系统状态图标
implementation
{$R *.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;

 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   :=   '实现系统托盘图标!';   
  //当鼠标停留在系统状态栏该图标上时，出现该提示信息   
  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、编写“退出”代码如下：    
   
  当用户点击“退出”时实现完全退出应用程序。具体代码如下：     
    

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轻松实现系统状态栏托盘图标。