增加托盘图标
setwindowlong(application.handle,gwl_exstyle,ws_ex_toolwindow);
bordericons:=[bisystemmenu];
with icondata do
begin
icondata.dbsize:=sizeof(icondata);
wnd:=handle;
uid:=100;
uflags:=nif_message+nif_icon+nif_tip;
ucallbackmessage:=wm_user+1;
hicon:=application.icon.handle;
strpcopy(icondata.sztip,application.title);
shell_notifyicon(nim_add,@icondata);
end;删除托盘图标
shell_notifyicon(nim_delete,@icondata);
修改
shell_notifyicon(nim_modify,@icondata);
用一个timer在timer中修改(shell_notifyicon(nim_modify,@icondata);
)图标即可。
setwindowlong(application.handle,gwl_exstyle,ws_ex_toolwindow);
bordericons:=[bisystemmenu];
with icondata do
begin
icondata.dbsize:=sizeof(icondata);
wnd:=handle;
uid:=100;
uflags:=nif_message+nif_icon+nif_tip;
ucallbackmessage:=wm_user+1;
hicon:=application.icon.handle;
strpcopy(icondata.sztip,application.title);
shell_notifyicon(nim_add,@icondata);
end;删除托盘图标
shell_notifyicon(nim_delete,@icondata);
修改
shell_notifyicon(nim_modify,@icondata);
用一个timer在timer中修改(shell_notifyicon(nim_modify,@icondata);
)图标即可。
解决方案 »
- 为什么在serverActiveXDLL中能返回Connection 但是返回Recordset调用就出错
- 求调用必须独立运行的.exe程序的方法
- BDE or ADO or dbExpress
- 请问一下这个怎么翻译
- 在ADOQUERY的事件中写代码效率会降低么?
- ★★★★★★★★★★★★★★散分推荐些好东西,不是作广告★★★★★★★★★★★★★★
- 火急,请各位老师朋友帮忙,保证给高分
- 问大家一个问题,DATASource是不是连接ACCESS表的数据库,如果是连接SQL的要用哪个呢?
- 有关窗体显示方式的问题,虽然较简单,但经常会用到.
- table的filter属性怎样实现多个过滤条件(用代码实现)
- 我在使用database和storedproc时经常出现Error Creating Cursor handel这个错误
- 如何禁mediaplayer中的声音?
setwindowlong(application.handle,gwl_exstyle,ws_ex_toolwindow);
bordericons:=[bisystemmenu];
with icondata do
begin
icondata.dbsize:=sizeof(icondata);
wnd:=handle;
uid:=100;
uflags:=nif_message+nif_icon+nif_tip;
ucallbackmessage:=wm_user+1;
hicon:=application.icon.handle;
strpcopy(icondata.sztip,application.title);
shell_notifyicon(nim_add,@icondata);
end;删除托盘图标
shell_notifyicon(nim_delete,@icondata);
修改
shell_notifyicon(nim_modify,@icondata);
用一个timer在timer中修改(shell_notifyicon(nim_modify,@icondata);
)图标即可。
我用你的方法可以实现“添加”和“删除”图标,但是“修改”不行
你能不能将“修改”那部分说得具体点?怎么用它来实现图标闪动?
谢谢!
不用写太多代码
Shell_NotifyIcon(NIM_MODIFY,@tnd);
里面用的 RX 的。
带源吗的,还有 RX 的delphi6版本的!
http://go7.163.com/keyes/component/trayicon.zip
有代码的,可以做出很多效果,学一学它的代码怎样写的就OK了!