var
nid:TNotifyIconData;
begin
nid.cbSize:=sizeof(nid);
nid.Wnd:=Handle;
nid.uID:=0;
nid.hIcon:=application.Icon.Handle;
nid.szTip:='*****';
nid.uCallbackMessage:=MY_MESSAGE;
nid.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
if not Shell_NotifyIcon(NIM_ADD,@nid) then
begin
application.MessageBox('找不到Shell32.dll文件!','警告',MB_OK+MB_ICONWARNING);
end;
nid:TNotifyIconData;
begin
nid.cbSize:=sizeof(nid);
nid.Wnd:=Handle;
nid.uID:=0;
nid.hIcon:=application.Icon.Handle;
nid.szTip:='*****';
nid.uCallbackMessage:=MY_MESSAGE;
nid.uFlags:=NIF_ICON or NIF_TIP or NIF_MESSAGE;
if not Shell_NotifyIcon(NIM_ADD,@nid) then
begin
application.MessageBox('找不到Shell32.dll文件!','警告',MB_OK+MB_ICONWARNING);
end;
解决方案 »
- Delphi自定义控件,如何添加一个TString类型的属性??
- 晕死,怎么也搞不定,也是有关排序的问题
- 请问一下TClientDataSet导出的xml格式是怎样的?
- 我想完成这样的效果:将自定义的菜单名写入在任何一个文件夹上点击右键时的系统菜单中。
- 本人用intraweb做mis系统,欢迎探讨交流!!
- 钩子和汉字的问题,我记得以前有人回答过的!
- DTS问题。两天了,怎么没人结贴??
- -------100分------Tdataset.oldvalue使用的問題,問題解決給分。在線等待……
- 用TTable作数据库多种方法插入的问题
- 谁知道1ClassPro3000的注册码啊,请帮帮忙,急需?
- 如何在DELPHI中实现数据库的精确定位
- 关于socket编程的求助
看这个贴子http://www.csdn.net/expert/TopicView.asp?id=68637