RegisterWindowMessage('TaskbarCreated')用法

阿杰

相信很多Windows用户都碰到过这种情况：运行某个程序时出现意外错误，导致外壳程序Explorer.exe崩溃而发生重启（即Explorer.exe被关闭后重新运行），任务栏也在消失后重新生成，但应用程序在通知栏添加的图标消失了，虽然这些程序仍在运行，但再也无法通过通知栏图标与用户交互。为避免这种情况出现，Windows提供了相应的机制。
在安装了Internet Explorer 4.0及以上版本的Windows操作系统中，当任务栏建立后，外壳会向所有顶层的应用程序发出通知消息，该消息是外壳以字符串"TaskbarCreated"为参数向系统注册获得的，应用程序窗口接收到该消息后就应该重新添加的通知栏图标。
在Delphi中实现过程如下：
1). 定义一个整型变量MsgTaskbarRestart，用以保存任务栏重建的消息。
2). 在主程序的initialization部分或者是在OnCreate事件中以"TaskbarCreated"为参数向系统注册消息（也即是询问"TaskbarCreated"是哪条消息，因为以相同的参数注册会得到相同的消息，而"TaskbarCreated"在Windows启动的时候就已经被外壳注册）。
initialization
  MsgTaskbarRestart := RegisterWindowMessage('TaskbarCreated');

3). 重载主窗口的消息处理过程，拦截任务栏重建消息，进行重新添加图标的操作。

procedure TMainForm.WndProc(var Message: TMessage);
begin
  ……
  if Message.Msg = MsgTaskbarRestart then
  begin
    TrayIcon.Active := False;      //删除通知栏图标
    TrayIcon.Active := True;       //添加通知栏图标
  end;
  ……
  inherited WndProc(Message);
end; //end of WndProc

来源地址:http://blog.sina.com.cn/s/blog_4b8fd5ff01000cn6.html