本文章參考 "程序春秋" 2003/1 P66 “用Visual Basic找出"消失"的系統任務欄圖標”一文，作者：鐘蘭芳，在此對原作者表示感謝。
因原文中程序用VB編寫，故ccrun將其改為C++Builder 版，呵呵。歡迎指正.
很多軟件都在系統托盤區添加了圖標，可以有時當Explorer.exe莫名的崩潰以後，程序在任務欄的圖標就消失了，對於有些在任務欄隱藏了的軟件來說，就沒法控制了。原因是Explorer重新載入以後會重建任務欄，但大多數軟件並不知道任務欄已經重建，所以沒有及時重新畫自己在任務欄的圖標。
當任務欄建立的時候會向系統內所有頂級窗口發出一條消息：WM_TASKBARCREATED，我們只需要捕捉這個消息，並重建任務欄圖標即可。不過這是一條任務欄自定義的消息，所以需要用RegisterWindowMessage在自己的程序裡注冊該消息。
首先定義兩個全局變量
long WM_TASKBARCREATED = 0;
unsigned int lIconMessage = 0;
在.h中聲明以下函數：
private: // User declarations
void TForm1::RemoveTrayIcon();
void TForm1::AddTrayIcon();
void __fastcall TForm1::WndProc(Messages::TMessage& Message);
在Form的OnCreate事件中注冊 WM_TASKBARCREATED 消息，並在托盤區添加圖標
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
WM_TASKBARCREATED = RegisterWindowMessage("TaskbarCreated");
lIconMessage=RegisterWindowMessage("IconNotify");
AddTrayIcon();
}
在Form的OnClose事件中刪除在任務欄的圖標
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
RemoveTrayIcon();
}
重載WndProc，響應系統消息
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(Messages::TMessage& Message)
{
if(Message.Msg==lIconMessage)
{
if(Message.LParam==WM_LBUTTONDBLCLK) //雙擊圖標的事件
//....
}
if(Message.Msg==WM_TASKBARCREATED) //任務欄重建消息
AddTrayIcon(); //重新添加圖標
TForm::WndProc(Message);//對於其他的消息，調用基礎類的WndProc函數讓Windows進行缺省處理。
}
以下是自定義函數，功能是在任務欄添加和刪除圖標
//---------------------------------------------------------------------------
void TForm1::AddTrayIcon()
{
NOTIFYICONDATA icondata;
memset(&icondata,0,sizeof(icondata));
//將結構icondata的各域初始化為0
icondata.cbSize=sizeof(icondata);
icondata.hWnd=Handle;
strncpy(icondata.szTip,Application->Title.c_str,sizeof(icondata.szTip));
icondata.hIcon=Application->Icon->Handle;
icondata.uCallbackMessage=lIconMessage;
icondata.uFlags=NIF_MESSAGE|NIF_ICON|NIF_TIP;
Shell_NotifyIcon(NIM_ADD,&icondata);
}
//---------------------------------------------------------------------------
void TForm1::RemoveTrayIcon()
{
NOTIFYICONDATA icondata;
memset(&icondata,0,sizeof(icondata));
icondata.cbSize=sizeof(icondata);
icondata.hWnd=Handle;
Shell_NotifyIcon(NIM_DELETE,&icondata);
}
編譯這個程序，然後用任務管理器或其他工具中止Explorer.exe，可以看到在Explorer重新載入的時候，本程序在任務欄的圖標又重現了，嘿嘿。
