Траблы с рестором из трея

[AgressiveBehavior]

Для сворачивания использую вот этот код:

 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.Handle);
end;

1 раз все работает корректно но повторно, после восстановления не прячет кнопку на таскбаре.
Где можно справочку по всем допустимым параметрам посмотреть ?
Пока нашел 2:SW_Hide, SWSHOWMINNOACTIVE
Код:

ShowWindow(Handle,SW_HIDE);
ShowWindow(Form2.Handle, SW_SHOWMINNOACTIVE);

[Stilet]

Я когда-то из-за такой проблемы отказался от Rx библиотеки

[SuperVisor]

Вот тебе компонента: прелестно работает =)

[Stilet]

Кстати, я может не в тему, но проще написать свой класс на основе Shell_NotifyIcon. Я себе сделал, и никаких проблем нет, и лишнего ничего нет. Если нужно могу поделиться

[SERG1980]

Такая же шляпа была, поставил CoolTrayIcon и всё замечательно работает. Несмотря на то что компонент для delphi 6 у меня и на D2007 поставился без проблем