Delphi

本类阅读TOP10

·分布式网络考试系统原型分析及实现
·游戏外挂设计技术探讨①
·使用HOOK随心监视Windows
·Delphi 水晶报表打包解决
·试题库开发中非文本数据的处理
·如何将几个DBGRID里的内容导入同一个EXCEL表中....的问题
·如何使用Delphi设计强大的服务器程序
·工人线程中关闭窗体的实现
·用DLL方式封装MDI子窗体。
·支持XP下托盘栏气球提示的托盘单元

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
支持XP下托盘栏气球提示的托盘单元

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

unit tray;

interface
uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry,ShellAPI, ComCtrls, StdCtrls, Buttons, Menus, ExtCtrls;

const
  ICON_ID=3;
  NIF_INFO = $10;
  NIM_SETVERSION = $00000004;
  NOTIFYICON_VERSION = 3;
  NIM_SETFOCUS = $00000003;
  NIIF_INFO = $00000001;
  NIIF_WARNING = $00000002;
  NIIF_ERROR = $00000003;
  NIN_BALLOONSHOW = WM_USER + 2;
  NIN_BALLOONHIDE = WM_USER + 3;
  NIN_BALLOONTIMEOUT = WM_USER + 4;
  NIN_BALLOONUSERCLICK = WM_USER + 5;
  NIN_SELECT = WM_USER + 0;
  NINF_KEY = $1;
  NIN_KEYSELECT = NIN_SELECT or NINF_KEY;

procedure InstIcon(ToyIcon:TIcon;WinHandle:THandle;cbMessage:Integer);
procedure DeleIcon(winHandle:THandle);
procedure ShowBalloonTips(TipInfo,TipTitle:string);


implementation

Type
  PNewNotifyIconData = ^TNewNotifyIconData;
  TDUMMYUNIONNAME = Record
    case Integer of
      0: (uTimeout: UINT);
      1: (uVersion: UINT);
  end;

  TNewNotifyIconData = Record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array [0..127] of Char;    //Version 5.0为128个,以前为64个
    dwState: DWORD;    //Version 5.0
    dwStateMask: DWORD;    //Version 5.0
    szInfo: array [0..255] of Char;   //Version 5.0
    DUMMYUNIONNAME: TDUMMYUNIONNAME;
    szInfoTitle: array [0..63] of Char;   //Version 5.0
    dwInfoFlags: DWORD;   //Version 5.0
  end;

var
  IconData: TNewNotifyIconData;

procedure InstIcon(ToyIcon:TIcon;WinHandle:THandle;cbMessage:Integer);
begin
  IconData.cbSize:=Sizeof(IconData);
  IconData.Wnd:=WinHandle;
  IconData.uID:=ICON_ID;
  IconData.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
  IconData.uCallbackMessage:=cbMessage;
  IconData.hIcon:=ToyIcon.Handle;
  IconData.szTip:='LavaTech--Enhance the life!';       //使用是该修改
  Shell_NotifyIcon(NIM_ADD,@IconData);
end;

procedure DeleIcon(winHandle:THandle);
begin
  IconData.cbSize:=SizeOf(IconData);
  IconData.Wnd:=winHandle;
  IconData.uID:=ICON_ID;
  Shell_NotifyIcon(NIM_DELETE,@IconData);
end;

procedure ShowBalloonTips(TipInfo,TipTitle:string);
begin
  IconData.cbSize := sizeof(IconData);
  IconData.uFlags := NIF_INFO;
  strPLCopy(IconData.szInfo, TipInfo, sizeof(IconData.szInfo) - 1);
  IconData.DUMMYUNIONNAME.uTimeout := 3000;
  strPLCopy(IconData.szInfoTitle, TipTitle, sizeof(IconData.szInfoTitle) - 1);
  IconData.dwInfoFlags := NIIF_INFO;
  Shell_NotifyIcon(NIM_MODIFY, @IconData);
end;

end.

{
//使用简介:IconOnClick
//先添加常量, InstIcon(Application.Icon, Handle,WM_ICONEVENT);这里要用到的
WM_ICONEVENT=WM_USER+111;
//申明部分
procedure IconOnClick(var message:TMessage);message WM_ICONEVENT;
//实现部分
procedure TForm1.IconOnClick(var message:Tmessage);
var
  p:Tpoint;
begin
  if (message.LParam=WM_LBUTTONDBLCLK) then
  begin
    //双击左键
  end;
  if (message.LParam=WM_RBUTTONDOWN) then
  begin
    GetCursorPos(p);
    PopupMenu1.Popup(p.X,p.Y);
  end;
end;

}




相关文章

相关软件




月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

月光软件站·版权所有