因原文中程序用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);
}