Свернуть все окна

[Altera]

Привет всем!
Есть главная форма: main_form;
из неё по нажатию кнопки открываеться другая, не модальная форма из dll библиотеки: form_2;
Ну вызываеться, работает. Всё ОК.
Но вот подумал, что будит лучше, если иконка проги не в таск баре будит, а в трее. Поставил компонент tTrayIcon, в main_formShow написал: ShowWindow(Application.Handle, SW_HIDE); Nbgf всё ОК, но: Когда делаю свернуть все окна, происходят какие-то странности.
Вообще гадости какие-то, описывать не буду.

Короче, нужно так:
1. main_form.formStyle может быть fsNormal, а может и fsStayOnTop.
2. При win+d, или при клику по иконке в трее, если прога со всеми или с одной формой показываеться, спрятать его. И на оборот.

Надеюсь, всё ясно...

[Баламут]

Чесно говоря лень было dll'ку писать, но в принципе какая разница?

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
Application.ShowMainForm := false;
ShowWindow(Application.Handle,SW_HIDE);
ShowWindow(Application.MainForm.Handle, SW_HIDE);
TrayIcon1.Visible := true;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
TrayIcon1.Visible := false;
Application.ShowMainForm := true;
ShowWindow(Application.Handle, SW_RESTORE);
ShowWindow(Application.MainForm.Handle, SW_NORMAL);
SetForegroundWindow(Application.MainForm.Handle);
end;

Вроде никаких проблем не заметил...

[Altera]

Не совсем, то, что надо. Но всё равно, спасибо!