防备因系统瓦解而丢失任务栏的图标

本文章参考 "措施春秋" 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从头载入的时候，本措施在任务栏的图标又重现了，嘿嘿。