如何设置delphi程序托盘图标

最新推荐文章于 2025-06-12 11:26:55 发布

转载最新推荐文章于 2025-06-12 11:26:55 发布 · 1k 阅读

本文介绍了一个使用Delphi实现的应用程序托盘图标的功能，包括显示、隐藏及关闭操作，并通过鼠标点击触发相应事件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//单元接口部分引用 SHELLAPI 函数:

//以下注释为我自己添加上去的,如果有描述错误的地方还需要更正

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, shellapi, Menus, StdCtrls;

const
wi_iconeven = wm_user + 1000;//定义消息常量,用来接受系统返回的消息.

type
   TForm1 = class(TForm)
     PopupMenu1: TPopupMenu;//有"显示"."隐藏","关闭"三种选项
     N1: TMenuItem;
     N2: TMenuItem;
     N3: TMenuItem;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure N3Click(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure N1Click(Sender: TObject);
     procedure N2Click(Sender: TObject);
     procedure iconclick(var message : TMessage); message wi_iconeven;
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
Form1: TForm1;
nodedate : Tnotifyicondata;
implementation

{$R *.dfm}

//程序运行即显示托盘图标:
procedure TForm1.FormCreate(Sender: TObject);
begin
   nodedate.cbSize := sizeof(tnotifyicondata);
   nodedate.Wnd := handle;
   nodedate.uID := 1;
   nodedate.uFlags := Nif_Icon or Nif_Message or Nif_Tip;
   nodedate.uCallbackMessage := wi_iconeven;
   nodedate.hIcon := application.Icon.Handle;
   nodedate.szTip := '托盘图标测试';
   Shell_NotifyIcon(NIM_ADD,@nodedate);
   n1.Checked := true;
end;

//"关闭"
procedure TForm1.N3Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE,@nodedate);
Application.Terminate;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
//释放内存
Shell_NotifyIcon(NIM_DELETE,@nodedate);
end;

//点击'显示'

procedure TForm1.N1Click(Sender: TObject);
begin
   n1.Checked := true;
   n2.Checked := false;
   ShowWindow(Application.Handle,SW_SHOW);
   ShowWindow(form1.Handle, SW_SHOW);
end;

//"隐藏" 窗口
procedure TForm1.N2Click(Sender: TObject);
begin
   n1.Checked := false;
   n2.Checked := true;
   ShowWindow(Application.Handle, SW_HIDE);
   ShowWindow(form1.Handle, SW_HIDE);
end;

//接受消息
procedure TForm1.iconclick(var message: TMessage);
var P: Tpoint;
begin
if message.LParam = WM_RButtonUP then // 按下鼠标右键:

begin

SetForegroundWindow(From1.Handle); // 这句一定要加,否则弹出菜单不会自动隐藏

GetCursorPos(P);//获取鼠标坐标

     PopupMenu1.Popup(P.x, P.y);//将 Popupmenu 与鼠标关联
   end;
   if message.LParam = WM_LButtonUP then
   begin
     if form1.Showing then
       form1.Hide
     else if not form1.Showing then
       form1.Show;
   end;
end;

end.

注 : 如果想讓你的托盤圖標可以在想更換的時候更換,可以通過一下方式修改.
nodedate.hIcon := icon.Handle;
Shell_NotifyIcon(NIM_MODIFY,@nodedate);

另:如何加載自定義的圖片?
   var icon : Ticon;
   .....
   icon := Ticon.Create;
   icon.LoadFromFile(extractfilepath(application.ExeName) + '\icon1.ico');//加載本目錄下的ico文件;