Перенос иконки приложения из панели задач в трэй. Эмуляция поведения QIP

[WinCoder]

Сколько пытался добиться такого эффекта, так толком ничего и не вышло. ОС Win8. Среда разработки XE7. Стоит задача.
1) Полностью убрать иконку приложения из панели задач, и поместить ей в трэй.
2) При старте программы не должно быть ни каких мерцаний на рабочем столе, и в панели задач. Программа должна появляться исключительно в трэе (свёрнута).
3) При клике (двойном клике, не важно) программа должна разворачиваться, опять же минуя какое либо мерцание в панели задач. При последующем клике сворачиваться в трэй.
В пример могу повести поведение главного окна QIP (ICQ мэсседжера). Всевозможные trayicon реализуют только половину задачи (сам трэй), остального не получается добиться. Пробовал различные решения из гугла, но половина не работает, так как писались под XP, а другая половина даёт мерцания. Поможет кто нибудь с решением?

[Iron Monk]

По 2 пункту:

Application.ShowMainForm:= false;

в файле проекта не помогает?

[WinCoder]

Iron Monk Мне нужно не один пункт выполнить, а все. Скрыть форму не проблема. Как показать её минуя отображение в панели задач по клику на иконку в трэе?

[Iron Monk]

Сообщение от WinCoder

Iron Monk Мне нужно не один пункт выполнить, а все. Скрыть форму не проблема. Как показать её минуя отображение в панели задач по клику на иконку в трэе?

Если не проблема - второй пункт не нужно было включать в вопрос. по 3:
Нужно развернуть форму без отображения в таскбаре?

[WinCoder]

Сообщение от Iron Monk

Если не проблема - второй пункт не нужно было включать в вопрос. по 3:

Неверное суждение. Свернуть при запуске да не проблема. Можно использовать предложенный Вами метод. А теперь попробуйте создать форму, положить на неё несколько компонентов, и вновь её отобразить. Таким образом Вы выполнив второй пункт автоматически сделали невозможным выполнение других пунктов, а это не есть решение.

Сообщение от Iron Monk

Нужно развернуть форму без отображения в таскбаре?

Да
P.S. Более точное объяснение задачи. Нужно полностью перенести программу из панели задач в трэй (в панели задач никогда ничего не отображается).

[Iron Monk]

Так не работает по п.3?
В файле проекта:

Application.MainFormOnTaskbar:= false;

При разворачивании формы из трея(onActivate):

ShowWindow(Application.Handle,SW_HIDE);

[WinCoder]

Application.MainFormOnTaskbar:= false; работает. Иконка пропала. Как теперь разворачивать и сворачивать, и избежать появления окна при старте программы?

[Iron Monk]

Сообщение от WinCoder

Application.MainFormOnTaskbar:= false; работает. Иконка пропала. Как теперь разворачивать и сворачивать, и избежать появления окна при старте программы?

Иконка пропала из трея?

[WinCoder]

Иконка пропала из трея?

Нет, из панели задач. То что мне и нужно. В общем вот что в итоге получилось

var
  Form1: TForm1;
   ExitBool: boolean;
implementation

{$R *.dfm}

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin // при нажатии на окно закрытия сворачиваем в трэй
  CanClose := ExitBool;
  ShowWindow(Handle,SW_HIDE);
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  ExitBool := true; // принудительное завершение через PopupMenu присвоенном TrayIcon
  Close;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  ShowBool := not ShowBool; //сворачиваем разворачиваем по клику на иконку в трее
  if ShowBool then
    ShowWindow(Handle,SW_Show) else
      ShowWindow(Handle,SW_HIDE);
end;

end.

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := False;
  Application.ShowMainForm := False; // тут понятно, всё спрятали
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Осталась одна проблема. Исчезли компоненты с формы. Как исправить?

[Iron Monk]

Форма создается динамически?