Сворачивание в трей

[Vaigard]

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

if showwindow(application.handle,sw_mi nimize) then begin
cooltrayicon1.IconVisible:=true;
form1.Hide;
end;

Для Activate выводит ошибку, а таймер сразу кидает на панель задач и не дает развернуть окно. Что нужно сделать для корректной работы? Заранее спасибо

[Человек_Борща]

в самом низу есть "Похожие темы".
Там уже есть ответ.

Задолбало отвечать по 100500 раз на один и тот же вопрос.

[Vaigard]

Что-то не нашел) Надо посмотреть)

[Shouldercannon]

Удалено...

[Kotofff]

Учу поиску. Дорого.

1) Жмем Поиск
2) Вводим "cooltrayicon"
3) Получили исчерпывающее множество информации ...
4) Если ничего(!) нету - задаем вопрос !!!

[SERG1980]

1. Сворачивание в трэй

public
   procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
....
implementation
....
//сворачивание в трей
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
 if msg.CmdType=SC_MINIMIZE  then
  MainForm.CoolTrayIcon1.HideMainForm
 else inherited;
end;

2. Разворачивание формы

CoolTrayIcon1.ShowMainForm;

3. Чтобы прога сворачивалась в трей при запуске

procedure TMainForm.CoolTrayIcon1Startup(Sender: TObject;
  var ShowMainForm: Boolean);
begin
 ShowMainForm:=false;
end;

[Vaigard]

Я нашел несколько похожих тем) 2 Серж - спасибо)