---- 現在很多的應用程序都有這樣一種功能，當用戶選擇最小化窗口時，窗口不是象平常那樣最小化到任務欄上，而是“最小化”成一個任務欄圖標。象FoxMail 3.0 NetVampire 3.0等都提供了這樣的功能。實現這樣的功能實際上并不復雜，在窗口最小化時，窗口會發出WM_SYSCOMMAND消息，你只要需要截取Windows的WM_SYSCOMMAND消息，在窗口最小化時隱藏窗口并調用WindowsAPI函數Shell_NotifyIcon將定義的圖標添加到任務欄上，Shell_NotifyIcon的函數定義是這樣的：function Shell_NotifyIcon(dwMessage:DWORD; lpData: PNotifyIconData): BOOL; stdcall; 其中的參數dwMessage指定Shell_NotifyIcon函數的操作，可以是NIM_ADD NIM_DELETE NIM_MODIFY三個值中的一個，分別對應添加圖標、刪除圖標、修改圖標的動作。  

---- 參數lpData指向的PNotifyIconData結構的定義如下：  

_NOTIFYICONDATAW = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..63] of WideChar;
  end;

  TNotifyIconData = _NOTIFYICONDATAW;
---- 在這個結構中Wnd指明所屬的窗口，UCallbackMessage指明回調消息，如果指明了Wnd和 uCallbackMessage，則當用戶對任務欄圖標有動作（如點擊圖標，在圖標上移動光標等）。系統都會發送uCallbackMessage消息給Wnd指定的窗口。hIcon是要添加的圖標的句柄，szTip 是圖標的提示行（就是當移動光標到圖標上，出現的一個小黃方框內出現的文字）。消息。實現上面的功能，最主要的是要處理WM_SYSCOMMAND消息和自定義的圖標消息，這些消息在Delphi中并沒有相應的事件。這里就需要使用到Delphi的自定義消息處理功能來截取并處理這些消息。  

---- 首先看下面的程序。在執行程序之前，首先要改變Form1的Icon屬性，給Form1裝入一個圖標，否則在任務欄上會出現一塊空白。  

unit Unit1;
interface
uses
  Windows, Messages, SysUtils,  
Classes, Graphics, Controls, Forms,
  Dialogs,ShellAPI;

const
  WM_BARICON=WM_USER+200;

type
  TForm1 = class(TForm)
  private
     procedure WMSysCommand(var
Message: TMessage); message WM_SYSCOMMAND;
     procedure WMBarIcon(var
Message:TMessage);message WM_BARICON;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.WMSysCommand
(var Message:TMessage);
var
   lpData:PNotifyIconData;
begin
  if Message.WParam = SC_ICON then
  begin
     //如果用戶最小化窗口則將窗口
     隱藏并在任務欄上添加圖標
     lpData := new(PNotifyIconDataA);
     lpData.cbSize := 88;
//SizeOf(PNotifyIconDataA);
     lpData.Wnd := Form1.Handle;
     lpData.hIcon := Form1.Icon.Handle;
     lpData.uCallbackMessage := WM_BARICON;
     lpData.uID :=0;
     lpData.szTip := 'Samples';
     lpData.uFlags := NIF_ICON  
or NIF_MESSAGE or NIF_TIP;
     Shell_NotifyIcon(NIM_ADD,lpData);
     dispose(lpData);
     Form1.Visible := False;
  end
  else
  begin
     //如果是其它的SystemCommand
     消息則調用系統缺省處理函數處理之。
     DefWindowProc(Form1.Handle,Message.
Msg,Message.WParam,Message.LParam);
  end;
//
end;

procedure TForm1.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 := Form1.Handle;
     lpData.hIcon := Form1.Icon.Handle;
     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);
     Form1.Visible := True;
   end;
end;

end.
---- 運行上面的程序，點擊程序窗口標題欄上的最小化按鈕，你就可以看到窗口被“最小化”成了一個任務欄圖標，點擊圖標，窗口又會恢復原來的狀態。  

---- 從上面的程序可以看到，Delphi的自定義消息處理功能的實現也是十分簡單的，首先在Form類的Private定義中加入自定義消息處理函數的定義，定義的描述如下：  

procedure UserPro(Var Message:
TMessage):message WindowsMessage
其中UserPro是用戶自定義消息處理函數的名稱，
WindowsMessage是Windows消息常量或自定義消息常量。
---- 然后在程序中加入消息處理函數，函數的一般格式如下：  

    Procedure UserClass.UserPro(Var Message:TMessage);
    var
//加入定義
    Begin
//加入程序語句
    End;
    其中UserClass是封裝自定義消息處理函數的類的名稱。
---- 最后，Delphi的自定義消息處理函數要涉及到Windows的消息的結構，在這里我就不多說了，大家可以參考Windows API幫助和Delphi的相關幫助信息。相信大家如果掌握了Delphi的自定義消息處理函數，一定可以編寫出象VB一樣簡潔，象C++一樣功能強大的程序來的。