Класс иконки в треи

unit MyTrayIcon;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shellapi;
 
const wm_mytraynotify = wm_user + 123;
 
type
  TMyTrayIconEnent = procedure (index:integer) of object;
  //const wm_mytraynotify = wm_user + 123;
  TMyTrayIcon = class(TControl)
private
  n:integer;
  FOnIconClick:TMyTrayIconEnent;
  procedure createtraylcon(n:integer);
  procedure deletetraylcon(n:integer);
  procedure mytraynotify(var Msg: tmessage); message wm_mytraynotify;
protected
 
public
  //constructor Create(Handle:hwnd); override;
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
  procedure ShowIconInTray();
  procedure SetHandle(Handle:hwnd);
published
  property OnIconClick: TMyTrayIconEnent read FOnIconClick write FOnIconClick;
end;
 
var
 n:integer;
 MyHWND:hwnd;
 
implementation
 
//constructor TMyTrayIcon.Create(Handle:hwnd);// override;
constructor TMyTrayIcon.Create(AOwner: TComponent);// override;
begin
//ShowMessage('constructor');
inherited create(AOwner);
//ShowMessage(IntToStr(wm_mytraynotify));
end;
 
destructor TMyTrayIcon.Destroy();// override;
begin
//ShowMessage('destructor');
deletetraylcon(1);
inherited destroy;
end;
 
//=======================================================
 
procedure TMyTrayIcon.mytraynotify(var Msg: tmessage);
var
p : tpoint;
begin
  if msg.LParam=wm_rbuttondown then
  begin
  //getcursorpos(p);
  //setforegroundwindow(application.mainform.handle);
  //popupmenu1.popup(p.x, p.y);
  end;
  if msg.LParam=wm_lbuttondown then
  begin
  //form1.AZFClick(nil);
  end;
 
if assigned(FOnIconClick) then
FOnIconClick(123);
end;
 
procedure TMyTrayIcon.createtraylcon(n:integer);
var
nidata : tnotifyicondata;
begin
with nidata do
begin 
cbsize := sizeof(tnotifyicondata) ;
wnd := MyHWND;
uid := n;
uflags := nif_icon or nif_message or nif_tip;
ucallbackmessage := wm_mytraynotify;
hicon := application.icon.handle; 
sztip := 'Случайное заполнение поля имени файла';
end; 
shell_notifyicon(nim_add, @nidata);
end;
 
procedure TMyTrayIcon.deletetraylcon(n:integer);
var
nidata : tnotifyicondata;
begin
with nidata do
begin
cbsize := sizeof(tnotifyicondata);
wnd := MyHWND;
uid := n; end;
shell_notifyicon(nim_delete, @nidata);
end;
//============================================
 
procedure TMyTrayIcon.ShowIconInTray();
begin
createtraylcon(1);
end;
 
procedure TMyTrayIcon.SetHandle(Handle:hwnd);
begin
MyHWND:=Handle;
end;
 
end.