自定义消息处理功能(是小化程序到托盘）

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI;
  const
  WM_BARICON=WM_USER+200;

type
  TMinFrm = class(TForm)
  private
    { Private declarations }
    //在窗口最小化时，窗口会发出WM_SYSCOMMAND消息
//    最主要的是要处理WM_SYSCOMMAND消息和 自定义的图标消息，
//    这些消息在Delphi中并没有相应的事件。这里就需要使用到Delphi的自定义消息处理功能来截取并处理这些消息
    procedure WMSysCommand(var message:TMessage);message WM_SYSCOMMAND;
    procedure WMBarIcon(var message:TMessage);message WM_BARICON;

  public
    { Public declarations }
  end;

var
  MinFrm: TMinFrm;

implementation

{$R *.dfm}

{ TForm10 }

procedure TMinFrm.WMBarIcon(var message: TMessage);
var 
   lpData:PNotifyIconData; 
begin
  if (Message.LParam = WM_LBUTTONDOWN) then
   begin
    //如果用户点击任务栏图标则将图标删除并回复窗口。
    lpData := new(PNotifyIconDataA); 
    lpData.cbSize := 88;//SizeOf(PNotifyIconDataA); 
    lpData.Wnd := MinFrm.Handle;
    lpData.hIcon := MinFrm.Icon.Handle;
    //UCallbackMessage指明回调消息，如果指明了Wnd和 uCallbackMessage，
    //则当用户对任务栏图标有动作（如点击图标，在图标上移动光标等）。
    //系统都会发送uCallbackMessage消息 给Wnd指定的窗口
    lpData.uCallbackMessage := WM_BARICON;
    lpData.uID :=0;
    lpData.szTip := ‘Samples‘;
    lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    Shell_NotifyIcon(NIM_DELETE,lpData);
    dispose(lpData);
    MinFrm.Visible := True;
   end;
end;

procedure TMinFrm.WMSysCommand(var message: TMessage);
 var
 lpData:PNOtifyIconData;   //结构体 Wnd指明所属的窗口
begin
   if message.WParam=SC_ICON then     //系统的 SC_ICON
   begin
      //如果用户最小化窗口则将窗口     隐藏并在任务栏上添加图标
    lpData:=New(pnotifyicondataA);
    lpData.cbSize := 88;
    //SizeOf(PNotifyIconDataA);
    lpData.Wnd := MinFrm.Handle;   //当前窗口句柄
    lpData.hIcon := MinFrm.Icon.Handle;
    lpData.uCallbackMessage := WM_BARICON;  //  回调消息
    lpData.uID :=0;
    lpData.szTip := ‘Samples‘; 
    lpData.uFlags := NIF_ICON
    or NIF_MESSAGE or NIF_TIP;
    // function Shell_NotifyIcon(dwMessage:DWORD; lpData: PNotifyIconData): BOOL; stdcall;
    //其中的参数dwMessage指定Shell_NotifyIcon函数的操作，可以是NIM_ADD NIM_DELETE NIM_MODIFY
    //三个值中的一个，分别对应添加图标、删除图标、修改图标的动作。
    Shell_NotifyIcon(NIM_ADD,lpData);
    dispose(lpData);
    MinFrm.Visible := False;   //隐藏窗体
   end else
   begin
     //如果是其它的SystemCommand       消息则调用系统缺省处理函数处理之。
     DefWindowProc(MinFrm.Handle,Message.
     Msg,Message.WParam,Message.LParam);
   end;
end;

end.