各位大侠,进来看看!

kk_ray 2003-10-20 09:13:49
我的程序运行时会在任务栏添加一个图标,但是只要EXPLORER.EXE出错关闭后,再重新运行时,这个图标就消失了。

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

小弟第一次上来提问,望各位大侠多多指点!
...全文
41 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
bini 2003-10-22
  • 打赏
  • 举报
回复
TForm1 = class(TForm)
...
procedure WndProc(var Mess: TMessage); override;
end;

进行拦截.

过程最后记得加上: inherited WndProc(message);
swites 2003-10-20
  • 打赏
  • 举报
回复
hao!
ccrun.com 2003-10-20
  • 打赏
  • 举报
回复
完整代码如下,在我的机器上调试通过。在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进行缺省处理。
}
ccrun.com 2003-10-20
  • 打赏
  • 举报
回复
关键代码如下:

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)
{
//在这里重新添加图标到托盘区
}
}
kk_ray 2003-10-20
  • 打赏
  • 举报
回复
能不能具体一点呀~
kk_ray 2003-10-20
  • 打赏
  • 举报
回复
所以啊,我只好弄个TIMER,隔那么久删一个再建一个图标。

但是总觉得这办法太土了。
ccrun.com 2003-10-20
  • 打赏
  • 举报
回复
2003/1月的程序春秋上有介绍。
ppgo 2003-10-20
  • 打赏
  • 举报
回复
其实程序的进程还在,很多程序都会这样。
kk_ray 2003-10-20
  • 打赏
  • 举报
回复
哦,还有:请问WndProc在Delphi中该怎么定义呢?
kk_ray 2003-10-20
  • 打赏
  • 举报
回复
我怎么给分给你啊!

我第一次来,不会做!
kk_ray 2003-10-20
  • 打赏
  • 举报
回复
向老妖学习!

谢谢~
qiu_allan 2003-10-20
  • 打赏
  • 举报
回复
学习。

1,221

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧