Tray.pas

unit Tray;

interface

uses Windows, ShellAPI, Messages, SysUtils;

const
  WM_MYICONNOTIFY=WM_USER+123;

procedure CreateTrayIcon(Handle:HWND; IHandle:HWND;
  n:Integer);
procedure DeleteTrayIcon(Handle:HWND; n:Integer);

implementation

procedure CreateTrayIcon(Handle:HWND; IHandle:HWND;
  n:Integer);
var NIData:TNotifyIconData;
begin
  with NIData do begin
    cbSize:=SizeOf(TNotifyIconData);
    {HWND íàøåãî îêíà (îêíà, ïðèíèìàþùåãî îáðàòíûå
     ñîîáùåíèÿ)}
    Wnd:=Handle;
    uID:=n; //íîìåð çíà÷êà
    uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallBackMessage:=WM_MYICONNOTIFY; //îáðàòíîå ñîîáùåíèå
    {òî, îòêóäà ñä¸ðãèâàåòñÿ çíà÷îê ýòî ìîæåò áûòü è
     ImageList è ò.ä.}
    hIcon:=IHandle;
    StrPCopy(szTip,'Ñâîáîäíîå ìåñòî íà íåñìåííûõ äèñêàõ'); //âñïëûâàþùàÿ ñòðîêà
  end;
  Shell_NotifyIcon(NIM_ADD,@NIData); //äîáàâëåíèå çíà÷êà
end;

procedure DeleteTrayIcon(Handle:HWND; n:Integer);
var NIData:TNotifyIconData;
begin
  with NIData do begin
    cbSize:=SizeOf(TNotifyIconData);
    Wnd:=Handle;
    uID:=n;
  end;
  Shell_NotifyIcon(NIM_DELETE,@NIData); //óäàëåíèå çíà÷êà
end;

end.