各位大侠，进来看看！

[kk_ray]

我的程序运行时会在任务栏添加一个图标，但是只要EXPLORER.EXE出错关闭后，再重新运行时，这个图标就消失了。

有没有什么好的办法让程序在出现这种情况后马上再次添加一个图标上去。

小弟第一次上来提问，望各位大侠多多指点！

[qiu_allan]

学习。

[kk_ray]

向老妖学习！

谢谢~

[kk_ray]

我怎么给分给你啊！

我第一次来，不会做！

[kk_ray]

哦，还有：请问WndProc在Delphi中该怎么定义呢？

[ppgo]

其实程序的进程还在，很多程序都会这样。

[ccrun.com]

2003/1月的程序春秋上有介绍。

[kk_ray]

所以啊，我只好弄个TIMER，隔那么久删一个再建一个图标。

但是总觉得这办法太土了。

[kk_ray]

能不能具体一点呀~

[ccrun.com]

关键代码如下：

long WM_TASKBARCREATED =0;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
WM_TASKBARCREATED = RegisterWindowMessage("TaskbarCreated");
Application->OnMessage=AppMessage;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
if(Msg.message == WM_TASKBARCREATED)
{
//在这里重新添加图标到托盘区
}
}

[ccrun.com]

完整代码如下，在我的机器上调试通过。在Explorer异常中止并重新load以后，本进程在托盘区图标自动添加.

//.h file
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

void TForm1::RemoveTrayIcon();
void TForm1::AddTrayIcon();
void __fastcall TForm1::WndProc(Messages::TMessage& Message);

public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//.cpp file
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

long WM_TASKBARCREATED = 0;
unsigned int lIconMessage = 0;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
WM_TASKBARCREATED = RegisterWindowMessage("TaskbarCreated");
lIconMessage=RegisterWindowMessage("IconNotify");
AddTrayIcon();
}
//---------------------------------------------------------------------------
void TForm1::AddTrayIcon()
{
NOTIFYICONDATA icondata;
memset(&icondata,0,sizeof(icondata));
//将结构icondata的各域初始化为0
icondata.cbSize=sizeof(icondata);
icondata.hWnd=Handle;
strncpy(icondata.szTip,"未知状态",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);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
RemoveTrayIcon();
}
//---------------------------------------------------------------------------
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进行缺省处理。
}

[swites]

hao!

[bini]

TForm1 = class(TForm)
...
procedure WndProc(var Mess: TMessage); override;
end;

进行拦截.

过程最后记得加上: inherited WndProc(message);