Программное скрытие в трей

[.Phoenix]

Доброго времени суток!
В моей мини-программе появилась надобность программного свертывания в системный трей, или как ещё можно сказать - добавление значка в системный трей. Искал через гугл нашёл какие-то страницы, но там толком ничего нормально не объяснили, хотя может и я не правильно понял. Подкиньте пож-та код как свернуть программу в трей и восстановить тоже. Заранее спасибо!

[W0LF]

Тут глянь, это от spamer'a дето нашел в сообщениях

[Rebel123]

Пропиши в Поиск "Трей" как тем выидит куча! там ты найдешь все то что тебе нужно

[.Phoenix]

Спс за файл, но там ниче толком не понял. Вписывал в пробный проект по инструкции, но Delphi ругается. В поиске искал, как нистрано один и тот же пример вижу. В инете много плагиатов...Кто-нибудь может нормально объяснить как программу свернуть в трей и двойным щелчком её восстановить?

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=57362
http://www.programmersforum.ru/showthread.php?t=27308
http://www.programmersforum.ru/showthread.php?t=15605
http://www.programmersforum.ru/showthread.php?t=8277
http://www.programmersforum.ru/showthread.php?t=729

[spamer]

.Phoenix, может надо было внимательней пробовать читать статью из файла. Ведь у всех работает, а у вас - нет. Такого быть не может.
з.ы. статья взята из инета с сайта xakep.ru

[kakawkin]

и вообще, по своему опыту скажу, надо знать что пишешь. Программа никак в трей уйти не может. Программа просто изчезает из виду, а в трею появляется иконка(значок) для быстрого обращения ил иманипуляций.
Если знать это и предствавить то писаться будет легче

[HellMercenariess]

TI_Logo: TRxTrayIcon;
.....
//Обработчик кнопки "Свернуть"
procedure TFMain.MinimizeClick(Sender:TObject );
begin
//Прячем основное окно
Hide;
//Прячем кнопку на таскбаре
if IsWindowVisible(Application.Handle) then
ShowWindow(Application.Handle, SW_HIDE);

end;
....

//Разворачиваем окно при двойном щелчке по иконке
procedure TFMain.TI_LogoDblClick(Sender: TObject);
begin
//разворачиваем главное окно
Application.Restore;
//сбрасываем признак сворачивания
if WindowState = wsMinimized then WindowState := wsNormal;
//Отображаем окно
visible:=true;
//Принудительно устанавливаем окно поверх остальных
SetForegroundWindow(Application.Han dle);
end;

http://www.programmersforum.ru/showthread.php?t=63017 - Самая последняя тема, кажись разжевано о всё до мелочей...

[include]

Поюзай компанент CoolTrayIcon, я им пользуюсь, очень удобный