TrayIcon ile BringToFront işlemi

[mcuyan]

Merhaba arkadaşlar.
Bilindiği üzere servis tarzı uygulamalar yazdığımız da form olarak görüntü yerine sağ altta saatin orada görünmesi için TrayIcon kullanıyoruz. Fakat burada simgeyi tıkladığımız da uygulamanın açılıp, en öne gelmesini şu şekilde sağlıyorum.

procedure TForm1.TrayIcon1Click(Sender: TObject);
var
AppWnd: HWND;
begin
  Self.Show;
  self.BringToFront;

  AppWnd :=  Application.Handle;
  if IsIconic(AppWnd) then
    Application.Restore;
  SetForegroundWindow(AppWnd);
end;