Delphi 添加系统托盘

最新推荐文章于 2017-08-31 15:46:16 发布

爱在丽江leslex

最新推荐文章于 2017-08-31 15:46:16 发布

阅读量3.4k

点赞数

分类专栏： Delphi 文章标签： delphi action interface windows delete application

本文链接：https://blog.csdn.net/xiongmao000738/article/details/6742772

版权

Delphi 专栏收录该内容

85 篇文章 3 订阅

订阅专栏

一、基础知识介绍：

NIData:TNotifyIconData，NIData是非常重要的一个变量，整个程序基本上是围着这个变量在转（uses ShellAPI）。

1>、 TNotifyIconData是一个记录类型(相对于结构体变量)。

// TNotifyIconData和TNotifyIconDataA, _NOTIFYICONDATAA是同种数据类型，
TNotifyIconData   =   TNotifyIconDataA，
TNotifyIconDataA   =   _NOTIFYICONDATAA，
type
_NOTIFYICONDATAA   =   record
cbSize: DWORD; // cbSizes是NIData变量的大小，用SizeOf(TNotifyIconData)可以取得;
Wnd:   HWND; // Wnd是一个句柄,指向消息处理的窗体。
uID:   UINT;   // uID:创建多个托盘小程序时，考ID号来区分。
uFlags:   UINT; // uFlags是一个标志位，它表示当前所创建的托盘程序具有哪些性质：
uCallbackMessage:   UINT;
hIcon:   HICON; // hIcon为托盘图标的句柄，根据句柄可以增加、修改、删除图标。
// szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。
szTip:   array   [0..63]   of   AnsiChar;
end;

2>、uFlags是一个标志位，它表示当前所创建的托盘程序具有哪些性质：

NIF_ICON     表示当前所设置的图标（即hIcon的值）是有效的
NIF_MESSAGE 表示当前所设置的系统消息（即uCallBackMessage的值）是有效的
NIF_TIP       表示当前所设置的提示条（即szTip的值）是有效的。

3>、uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息，也就是说

这里定义一个消息名，当你单击或者右击托盘图标的时候就会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名，然后你在程序中定义一个消息出来函数来处理这个消息。这样就把 Windows关于消息的整套流程都处理好了。

二、创建系统托盘的具体步骤

1．新建一个应用程序：

File->New Applicaton 在Interface部分(全局的)的uses之后，必须定义一个消息常量：const WM_TRAYICON =WM_USER+1000; windows消息规定从WM_USER开始为用户自定义消息。Project->Options,选中Application页面，在Icon项中加载自己喜欢的图标。

定义全局变量：// 如果不定义成全局变量，系统退出时，系统托盘处还是会显示图标。

var

NIData: TNotifyIconData;

2．定义一个函数，用于操作系统托盘：

procedure TForm1.ModifyTrayIcon(Action: DWORD);//Action 为托盘的操作类型

begin

with NIData do

begin

cbSize := sizeof(TNotifyIconData);

UID := 0;

uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;

Wnd := Handle; //指向当前窗体Form1的句柄

uCallBackMessage := WM_TRAYICON;// 对系统托盘区返回的信息进行处理的函数。

HICON := Application.Icon.Handle;// 托盘的图标

StrPCopy(szTip, Application.Title); // 托盘的提升信息

end;

//把设置好的变量NotifyIcon按传入的操作类型进行处理

Shell_NotifyIcon(Action, @NIData);

end;

3．定义一个消息处理函数

系统给窗体发来了一个消息，就由下面这个函数来处理，每个消息处理函数都是处

理某一类消息的，消息处理函数要在后面加上消息的名称，这样当系统发来WM_TRAYICON

消息时，就是自动触发WM_TRAYICON消息处理函数（Delphi 消息处理技术）。

声明：procedure WMTrayIcon(var message: TMessage); message WM_TRAYICON;

实现：procedure TForm1.WMTrayIcon(var message: TMessage);

var

MousePos: TPoint;

Begin

//判断是否是右击事件，是就显示右击菜单栏

if message.LPARAM = WM_RBUTTONDOWN then

begin

SetActiveWindow(Handle); //该函数激活一个窗口。

GetCursorPos(MousePos);

PopupMenu.Popup(MousePos.X, MousePos.Y); //显示右击菜单栏 PopupMenu 右击菜单的名字

end;

4．建立托盘程序，进入FormCreate的代码区域：

procedure TForm1.FormCreate(Sender: TObject);

begin

ModifyTrayIcon(NIM_ADD);

end;

5．释放托盘程序，在FormClose的代码区域，否则会占用系统资源。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ModifyTrayIcon(NIM_DELETE);

end;

6．全部代码

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ShellAPI, Menus, StdCtrls;

 

const

  WM_TRAYICON = WM_APP + 0;

type

  TForm1 = class(TForm)

    PopupMenu: TPopupMenu;

    Hello1: TMenuItem;

    Exit1: TMenuItem;

    N1: TMenuItem;

    There1: TMenuItem;

    Label1: TLabel;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure FormCreate(Sender: TObject);

    procedure Exit1Click(Sender: TObject);

  private

    procedure WMTrayIcon(var message: TMessage); message WM_TRAYICON;

    procedure ModifyTrayIcon(Action: DWORD);

  public

  end;

  

var

  Form1: TForm1;
 NIData: TNotifyIconData;
  

implementation

 

{$R *.DFM}

 

procedure TForm1.ModifyTrayIcon(Action: DWORD);

begin

  with NIData do

  begin

    cbSize := sizeof(TNotifyIconData);

    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;

    Wnd := Handle;

    uCallBackMessage := WM_TRAYICON;

   

    HICON := Application.Icon.Handle;

  

    StrPCopy(szTip, Application.Title);

  end;

  Shell_NotifyIcon(Action, @NIData);

end;

 

procedure TForm1.WMTrayIcon(var message: TMessage);

var

  MousePos: TPoint;

begin

  if message.LPARAM = WM_RBUTTONDOWN then

  begin

    SetActiveWindow(Handle);

    GetCursorPos(MousePos);

    PopupMenu.Popup(MousePos.X, MousePos.Y);

  end;

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  ModifyTrayIcon(NIM_DELETE);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  ModifyTrayIcon(NIM_ADD);

end;

 

procedure TForm1.Exit1Click(Sender: TObject);

begin

  Close;

end;

 

end.