Проблемы с WIN+D

[Altera]

Привет всем...
Мне придеться опять расписать, но что поделаешь, жизнь такая...
Есть приложние, и у него есть форма form1: tForm1;
Есть процедура showHide, которая срабатывает, допустим при клике по иконки в трее этого приложения.
Иконка приложения в таскБаре отображаться никогда не должна!.
Проседура showHide
у меня выглядеть примерно так:

procedure tForm1.showHide;
begin
   { если форма отображаеть, то спрятать её, иначе, показать }
   if IsWindowVisible(handle) then
   begin
      ShowWindow(Application.Handle, SW_HIDE);
      ShowWindow(Application.MainForm.Handle, SW_HIDE);
   end
   else
   begin
      ShowWindow(Application.Handle, SW_RESTORE);
      ShowWindow(Application.MainForm.Handle, SW_NORMAL);

      SetForegroundWindow(Application.MainForm.Handle);
   end;
end;

Есть также процедура min, которая срабатывает при application.onMinimize;

procedure tForm1.min(dender: tObject);
begin
   ShowWindow(Application.Handle, SW_HIDE);
   ShowWindow(Application.MainForm.Handle, SW_HIDE);
   //sndPlaySound(pCHar(curPath+'timer.wav'), SND_ASYNC);
end;

И ещё есть procedure wmActivate(var msg: tWMActivate); message WM_ACTIVATE;:

procedure tForm1.wmActivate(var msg: tWMActivate);
begin
   ShowWindow(Application.Handle, SW_HIDE);
end;

... Всё работает здоровски...
Но есть проблема. Если нажать WIN+D (свернуть все окна) то все окна свернуться, пока все замечательно. Потом кликаем по иконке в трее.
Трабл №1: Окно появляеться не сразу, а после нескольких кликов.
Трабл №2: Если после этого кликнуть, скажем, по рабочему столу, или ещё где ни будь, окно изчезьнет.

Особенно меня бесит второй мункт. Пожалуйсто, объясните, как мне это всё организовать, или дайте исходник работающеё проги...

з.ы. Это код работает вообще не так, как надо. Я кинул его, для того, что бы был ясен принцип.

[Stilet]

Вот порывшись в Делфи Ворлде нашел еще один пример:

unit EXE_FORM;

interface

uses        ShellApi,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  ExtCtrls, ComCtrls, Buttons, AppEvnts;

type
  HDLL = tHandle;
 TNotifylconData = record
 cbSize: DWORD;
 Wnd: HWND;
 uID: UINT;
 uFlags: UINT;
 uCallbackMessage: UINT;
 hlcon: HICON;
 szTip: array [0..5000] of AnsiChar;
end;
  tAtomikMessage = record
     p1, p2, p3, p4: word;
  end;

  tformStatus = (fsActive, fsInVisible, fsInActive);

  TEXE_FORM1 = class(TForm)
    Button1: TButton;
    SpeedButton1: TSpeedButton;
    ListBox1: TListBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure WMICON(var msg: TMessage); message  WM_USER + 123;
    procedure RestoreMainForm;    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var             nidata:TNotifylconData;
  EXE_FORM1: TEXE_FORM1;
  dllHandle: HDLL;
  curPath: string;
  formStatus: tFormStatus = fsActive;
implementation

  {$R *.dfm}

 procedure TEXE_FORM1.RestoreMainForm;
var
  i, j: Integer;
begin
  Application.ShowMainForm := True;
  ShowWindow(Application.Handle, SW_RESTORE);
  ShowWindow(Application.MainForm.Handle, SW_RESTORE);
  begin
    for I := 0 to Application.MainForm.ComponentCount - 1 do
      if Application.MainForm.Components[I] is TWinControl then
        with Application.MainForm.Components[I] as TWinControl do
          if Visible then
          begin
            ShowWindow(Handle, SW_SHOWDEFAULT);
            for J := 0 to ComponentCount - 1 do
              if Components[J] is TWinControl then
                ShowWindow((Components[J] as TWinControl).Handle,
                  SW_SHOWDEFAULT);
          end;
  end;

end;

procedure TEXE_FORM1.WMICON(var msg: TMessage);
var P : TPoint;
begin
 case msg.LParam of
 WM_LBUTTONUP:
  begin
   RestoreMainForm;
  end;
 WM_LBUTTONDBLCLK :;// RestoreItemClick(Self);
 end;
end;

procedure TEXE_FORM1.SpeedButton1Click(Sender: TObject);
begin
   if speedButton1.Down then
   formStyle := fsStayOnTop else
   formStyle := fsNormal;
end;

procedure{ Создание формы }TEXE_FORM1.FormCreate(Sender: TObject);
begin

with nidata do
begin
 cbSize := SizeOf(TNotifylconData) ;
 Wnd := Self.Handle;
 uID := 1;
 uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
 uCallBackMessage := WM_USER + 123;
 hlcon  := Application.Icon.Handle;
 szTip :='asdsadasd'#13'dasdasdas';
end;
Shell_NotifyIcon(NIM_ADD, @nidata);
   curPath := extractFilePath(application.ExeName);
end;
end.

Это с твоего кода что ты мне скидывал

[Altera]

Это не подходит...

[mutabor]

Попробовал свои проекты, где обрабатывается Minimize и прячется в трей, по Win+D происходит обычное сворачивание, т.е. оно не обрабатывается программой.
Никогда этого раньше не замечал т.к. никогда не пользуюсь этой комбинацией. Но ничего другого необычного не замечал, просто сворачивается. Если обработать событие сворачивания "со стороны" то думаю вообще все замечательно будет.

Код сворачивания в трей самый обычный, на WinAPI, в сети полно статей.

[Alter]

Вот, когда-то делал:

..................................................................................................
var no :TNotifyIconData;
..................................................................................................
  public
    { Public declarations }
    procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY;
    procedure WMSYSCOMMAND(var msg: TMessage); message WM_SYSCOMMAND;
  end;
..................................................................................................
procedure TForm1.WMSYSCOMMAND(var msg: TMessage);
begin
  inherited; 
  if (Msg.wParam = SC_MINIMIZE) then
   begin
     CreaTray(0);
     HidWin;
   end
    ELSE
   DelTray;
end;
..................................................................................................
Procedure TForm1.CreaTray(Ic :LongInt=0);
begin 
  with no do
  begin
    cbSize:=Sizeof(TNotifyIconData);
    Wnd:=Self.Handle;
    uID:=0;
    UFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
   StrPCopy(SzTip, '======= ');
    HIcon:=ExtractIcon(Self.Handle, PChar(ParamStr(0)) ,Ic);
    uCallBackMessage:=WM_MYICONNOTIFY;
  end;
  Shell_NotifyIcon(NIM_ADD,@no);
end;

Procedure TForm1.DelTray;
begin
  with no do
  begin
    cbSize:=Sizeof(TNotifyIconData);
    Wnd:=Handle;
    uID:=0;
  end;
  Shell_NotifyIcon(NIM_Delete,@no);
end;

Procedure TForm1.HidWin;
begin  
  Application.ShowMainForm:=False;
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindow(Application.MainForm.Handle, SW_HIDE);
end;

Procedure TForm1.ShowWin;
begin  
  Application.ShowMainForm:=True;
  ShowWindow(Application.Handle, SW_RESTORE);
  ShowWindow(Application.MainForm.Handle, SW_RESTORE);
end;

procedure TForm1.WMICON(var msg: TMessage);
var     //Обработка мыши
  P: TPoint;
begin
  case msg.LParam of 
    WM_RBUTTONUP:
      begin
        GetCursorPos(p);
        SetForegroundWindow(Application.MainForm.Handle);
        PopupMenu2.Popup(P.X, P.Y);
      end;
    WM_LBUTTONDBLCLK: begin 
                    ShowWin;
                    DelTray;  
                      end;
  end;
end;