托盘图标 (2001年1月8日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 38 行

托盘图标 (2001年1月8日) 

网友更新  分类:系统   作者: nbwzw(推荐)  推荐:nbwzw   阅读次数:433  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
const MyIcoMes=WM_USER+78;

var
PNotify:PNotifyIconDataA; //托盘图标结构

create
New(PNotify);
PNotify^.Wnd:=form1.Handle;
PNotify^.uID:=0;
PNotify^.uFlags:=NIF_ICON+NIF_MESSAGE+NIF_TIP;
PNotify^.hIcon:=form1.Icon.Handle;
PNotify^.uCallbackMessage:=MyIcoMes;
PNotify^.szTip:='电子小说';
Shell_NotifyIcon(NIM_ADD,PNotify);

FormDestroy
Shell_NotifyIcon(NIM_DELETE,PNotify);

public
procedure MyIcoMesDo(var Msg : TMessage);Message MyIcoMes; //托盘图标的返回消息


procedure Tform1.MyIcoMesDo(var Msg:TMessage);
Var Mouse_Point : TPoint; //当前鼠标位置
begin
if (Msg.LParam=WM_LBUTTONDBLCLK) and f_main.Enabled then
form1.Visible:=not form1.Visible; //双击图标，显示(隐藏)窗口

end;