procedure TrayIcon_Do(Act:Cardinal;IconData:TNotifyIconData);overload;
function TrayIcon_Do(Act:Cardinal;Handle,ID:integer;Flags:Cardinal;Msg:Cardinal;Icon:HICON;Tip:PChar):TNotifyIconData;overload;
function TrayIcon_Add(Handle,ID:integer;Flags:Cardinal;Msg:Cardinal;Icon:HICON;Tip:PChar):TNotifyIconData;
procedure TrayIcon_Modify(IconData:TNotifyIconData);
procedure TrayIcon_Delete(IconData:TNotifyIconData);
///////////////////////////////////////////////////////////
procedure TrayIcon_Do(Act:Cardinal;IconData:TNotifyIconData);overload;
begin
Shell_NotifyIcon(Act,@IconData);
end;
function TrayIcon_Do(Act:Cardinal;Handle,ID:integer;Flags:Cardinal;Msg:Cardinal;Icon:HICON;Tip:PChar):TNotifyIconData;overload;
var IconData : TNotifyIconData;
begin
with IconData do
begin IconData.
cbSize := SizeOf(IconData);
Wnd := Handle;
uID := ID;
uFlags := Flags;
uCallBackMessage := Msg;
hIcon := Icon;
StrCopy(szTip,Tip);
end;
Shell_NotifyIcon(Act,@IconData);
Result := IconData;
end;
function TrayIcon_Add(Handle,ID:integer;Flags:Cardinal;Msg:Cardinal;Icon:HICON;Tip:PChar):TNotifyIconData;
begin
Result := TrayIcon_Do(NIM_ADD,Handle,ID,Flags,Msg,Icon,Tip);
end;
procedure TrayIcon_Modify(IconData:TNotifyIconData);
begin
Shell_NotifyIcon(NIM_MODIFY,@IconData);
end;
procedure TrayIcon_Delete(IconData:TNotifyIconData);
begin
Shell_NotifyIcon(NIM_DELETE,@IconData);
end;
procedure Icon_ADD (hdlg:integer;strin:String;iconname:TIcon);
begin
if not Isexisted then
try
new (ptnd);
ptnd.cbsize:=sizeof(TNOTIFYICONDATAA);
strPcopy(ptnd.szTip,strin);
ptnd.uCallbackMessage:=MYWM_NOTIFYICON;
ptnd.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
Ptnd.uID:=IDC_NOTIFY;
Ptnd.hIcon:=iconname.Handle;
Ptnd.Wnd:=hdlg;
Shell_notifyIcona(NIM_ADD,ptnd);
dispose(ptnd);
isexisted:=true;
finally
end;
end;
procedure Icon_CHANGE (hdlg:integer;strin:String;iconname:TIcon);
begin
if Isexisted then
try
new (ptnd);
ptnd.cbsize:=sizeof(TNOTIFYICONDATAA);
strPcopy(ptnd.szTip,strin);
ptnd.uCallbackMessage:=MYWM_NOTIFYICON;
ptnd.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
Ptnd.uID:=IDC_NOTIFY;
Ptnd.hIcon:=Iconname.Handle;
Ptnd.Wnd:=hdlg;
Shell_notifyIcona(NIM_MODIFY,ptnd);
dispose(ptnd);
isexisted:=true;
finally
end;
end;
procedure Icon_DELETE (hdlg:integer);
begin
if Isexisted then
try
new (ptnd);
ptnd.cbsize:=sizeof(TNOTIFYICONDATAA);
ptnd.uCallbackMessage:=MYWM_NOTIFYICON;
ptnd.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
Ptnd.uID:=IDC_NOTIFY;
Ptnd.Wnd:=hdlg;
Shell_notifyIcona(NIM_DELETE,ptnd);
dispose(ptnd);
isexisted:=false;
finally
end;
end;
procedure SetIconStatus(WinHandle,IcnoStatus:Integer;Const DispStr:String;ilStatus:TImageList);
Var
NewIcon:TIcon;
Begin
NewIcon:=TIcon.Create;
ilStatus.GetIcon(IcnoStatus,NewIcon);
Icon_Change (WinHandle,DispStr,NewIcon);
NewIcon.Free;
End;