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