Сворачивание программы в трей. Как?

[TX]

Добрый вечер!  
Подскажите пожалуйста, как можно сделать так, что программа сворачивалась в трей (возле часов) ??  
если можно на примере  

[PooH]

Приложение прячешь, в трее создаешь иконку... помнится в дельфи компонент Tray есть

[Oldy]

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
  LTrayI : PNotifyIconData;

begin

  LTrayI.cbSize := SizeOf(LTrayI);
  LTrayI.Wnd := Application.Handle;
  LTrayI.uID := 1;
  LTrayI.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  LTrayI.uCallbackMessage := WM_LBUTTONDOWN;
  LTrayI.hIcon := Self.Icon.Handle;
  LTrayI.szTip := 'Tooltip test' + chr(0);

  Shell_NotifyIcon(NIM_ADD, LTrayI);

end;

See also: Shell_NotifyIcon, NotifyIconData

[x77]

Oldy, только не стоит  делать lTrayI локальной переменной процедуры. убирать ты её потом из трея как будешь?

[Oldy]

Ок!

Код:

...
Uses Shell;

var
  LTrayI : PNotifyIconData;

procedure TForm1.Button1Click(Sender: TObject);

begin
  LTrayI.cbSize := SizeOf(LTrayI);
  LTrayI.Wnd := Application.Handle;
  LTrayI.uID := 1;
  LTrayI.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
  LTrayI.uCallbackMessage := WM_LBUTTONDOWN;
  LTrayI.hIcon := Self.Icon.Handle;
  LTrayI.szTip := 'Tooltip test' + chr(0);

  Shell_NotifyIcon(NIM_ADD, LTrayI);
end;
...

[TX]

ребят, а я нашел такой дополнительный компонент как CoolTrayIcon - очень удобная!!))

[MS]

Этих компонентов в инете пруд пруди, просто наворотов  больше,  меню контекстное, иконка анимированная, и тд и тпх