ge := 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++一样功能强大的程序来的。