本文整理自网络，侵删。
很多软件都在系统托盘区添加了图标，可以有时当Explorer.exe莫名的崩溃以后，程序在任务栏的图标就消失了，
对于有些在任务栏隐藏了的软件来说，就没法控制了。原因是Explorer重新载入以后会重建任务栏，
但大多数软件并不知道任务栏已经重建，所以没有及时重新画自己在任务栏的图标。
当任务栏建立的时候会向系统内所有顶级窗口发出一条消息：WM_TASKBARCreateD，我们只需要捕捉这个消息，
并重建任务栏图标即可。不过这是一条任务栏自定义的消息，所以需要用RegisterWindowMessage在自己的程序里注册该消息。
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure WndProc(var msg: Tmessage); override; //任务栏恢复消息(继承) public { Public declarations } end; var Form1: TForm1; TaskBarMSG: Dword; //任务栏恢复消息 implementation {$R *.dfm} { TForm1 } procedure TForm1.WndProc(var msg: Tmessage); //任务栏恢复消息begin if msg.msg = TaskBarMSG then SetTryico(Handle, Icon.Handle, AppTray); //重设ICON inherited WndProc(msg);end;end; procedure TForm1.FormCreate(Sender: TObject);begin TaskBarMSG := RegisterWindowMessage('HTaskBarCreated'); //注册任务栏恢复消息end; end.
编译这个程序，然后用任务管理器或其他工具中止Explorer.exe，可以看到在Explorer重新载入的时候，
本程序在任务栏的图标又重现了。
相关阅读 >>
Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测
Delphi 使用shgetfileinfo函数获取任何文件大图标
Delphi ttabcontrol在tabitem添加关闭按钮
更多相关阅读请进入《Delphi》频道 >>
