delphi托盘窗体编程

《delphi托盘窗体编程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在Delphi7下要制作系统托盘，只能制作一个比较简单的系统托盘，因为ShellAPI文件定义的TNotifyIconData结构体是比较早的版本。定义如下：123456789_NOTIFYICONDATAA = record   cbSize: DWORD;   Wnd: HWND;   uID: UINT;   uFlags: UINT;   uCallbackMessage: UINT;   hIcon: HICON;   szTip: array [0..63] of AnsiChar; end; 下面开始实现下最小化到系统托盘功能：1.新建应用程序，然后在“菜单栏”→“Pro

2、ject”→“Options”→”Application“为程序设定下标题和图标，一定得设置图标，不让显示系统托盘的时候就会空白；2.在窗体上放置一个右键菜单，添加两个菜单项，如下图所示：3.窗体单元文件代码如下：unit Unit1;  interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ShellAPI, Menus;  const   WM_TRAYMSG = WM_USER + 101;                   

3、//自定义托盘消息 type   TForm1 = class(TForm)     pm1: TPopupMenu;     mniN1: TMenuItem;     mniwo1: TMenuItem;     procedure01020304050607080910111213141516171819202122232425262 FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure mniN1Click(Sender: TObject);   privat

4、e     procedure WMTrayMsg(var Msg: TMessage);message WM_TRAYMSG;    //声明托盘消息     procedure WMSysCommand(var Msg: TMessage);message WM_SYSCOMMAND;   public     { Public declarations }   end;  var   Form1: TForm1;   NotifyIcon: TNotifyIconData;                    //定义托盘图标结构体 implementation  {$R *.

5、dfm} {-------------------------------------------------------------------------------  Description: 窗体创建时，即创建托盘 -------------------------------------------------------------------------------} procedure TForm1.FormCreate(Sender: TObject); begin   with NotifyIcon do   begin     cbSize := SizeOf(T

6、NotifyIconData);     Wnd := Self.Handle;     uID := 1;     uFlags := NIF_ICON + NIF_MESSAGE + NIF_TIP;   //图标、消息、提示信息     uCallbackMessage := WM_TRAYMSG;     hIcon := Application.Icon.Handle;     szTip := '托盘测试';   end;   Shell_NotifyIcon(NIM_ADD,@NotifyIcon); end; {-----------------------------

7、--------------------------------------------------  Description: 窗体销毁时，卸载托盘 -------------------------------------------------------------------------------} procedure TForm1.FormDestroy(Sender: TObject); begin   Shell_Notify