社区
Windows SDK/API
帖子详情
各位大侠,进来看看!
kk_ray
2003-10-20 09:13:49
我的程序运行时会在任务栏添加一个图标,但是只要EXPLORER.EXE出错关闭后,再重新运行时,这个图标就消失了。
有没有什么好的办法让程序在出现这种情况后马上再次添加一个图标上去。
小弟第一次上来提问,望各位大侠多多指点!
...全文
43
12
打赏
收藏
各位大侠,进来看看!
我的程序运行时会在任务栏添加一个图标,但是只要EXPLORER.EXE出错关闭后,再重新运行时,这个图标就消失了。 有没有什么好的办法让程序在出现这种情况后马上再次添加一个图标上去。 小弟第一次上来提问,望各位大侠多多指点!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
打赏
举报
回复
学习。
各位用JAVA的
大侠
们
进来
看看
!
各位学JAVA的
大侠
,你们好。我是一名大三学生现在我在学JAVA,今天我在SUN公司下载了一个 JDK的JAVA编译器。我用的是冶金工业出版社的《JAVA程序设计教程》,我看书看了很久,但是感觉收获没有多大,而我今天在机器...
77-83年出生的
进来
看看
听听
近日看到网上热烈讨论70年代人类生活之状况,甚感有趣....
看看
下面有没有. 1.打弹珠 即打玻璃珠.玩的人各出数枚,输者将丧失对玻璃珠的所有权.玩法通常是"出纲"或"打 老虎洞".在地上划线为界,谁的玻璃珠被打出去就输
【初窥javascript奥秘之闭包】叶
大侠
病都好了,求不踩了:)
前言 咳咳,叶
大侠
病了,昨天晚上回家时候在车上就不舒服,果然回来就挂了,本来还想今天接着上班撑下去的。但是昨天又看到一个IT巨子挂了,所以果断请了一...所以我们接下来一段时间来
看看
javascript吧,今天我们...
oracle 高级复制提示ora-01403,存储过程报ora-01403错误,大家帮我
看看
怎么回事
我的存储过程如下,我在命令窗口执行过程中,有一部分数据没有插入
进来
,提示:错误代码:100错误描述:ORA-01403: 未找到数据,各位
大侠
帮我
看看
。create or replace procedure proc_zyysdwxx is--机动车备案信息初始...
在Win32API窗体下实现透明背景
前面拜读过本站无数高手的许多好文章,受益非浅,首先向各位
大侠
致敬!今天编程偶有小得,不敢独享,特拿出来与各位共享,希望对某些朋友有些许帮助。 透明窗体的问题相信大家已经很熟悉了,前面的几期在线杂志也...
Windows SDK/API
1,221
社区成员
8,136
社区内容
发帖
与我相关
我的任务
Windows SDK/API
C++ Builder Windows SDK/API
复制链接
扫一扫
分享
社区描述
C++ Builder Windows SDK/API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章