因原文中程式用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重新载入的时候，本程式在任务栏的图标又重现了，嘿嘿。
