Fenster Minimieren, aus der Taskleiste raus und TrayIcon darstellen

[thecatprj2501]

Hallöchen,
japp ich schon wider...
meine Anwendung soll noch dem starten minimiert werden und dann aus der Taskleiste Verschwinden und dann noch unten als trayIcon auf tauchen.
Und "Form" macht mir alles kaputt mit :

Delphi-Quellcode:

if FormStyle = fsMDIChild then
        begin
          { Fake a size message to get MDI to behave }
          if FWindowState = wsMaximized then
          begin
            SendMessage(Application.MainForm.ClientHandle, WM_MDIRESTORE, Handle, 0);
            ShowWindow(Handle, SW_SHOWMAXIMIZED);
          end
          else
          begin
            ShowWindow(Handle, ShowCommands[FWindowState]);
            CallWindowProc(@DefMDIChildProc, Handle, WM_SIZE, SIZE_RESTORED,
              Width or (Height shl 16));
            BringToFront;
          end;
          SendMessage(Application.MainForm.ClientHandle,
            WM_MDIREFRESHMENU, 0, 0);
        end
        else
          ShowWindow(Handle, ShowCommands[FWindowState]);

also nur kurz ich habe es versucht mit
procedure TForm2.FormShow(Sender: TObject);
......
WindowState := wsMinimized;
ShowWindow(Self.Handle, SW_HIDE);
.....
dann mit ....
JvTrayIcon1.HideApplication;
und mit
.......
Application.Minimize; und und und
alles ging es alles war super ich nahm die beiden ...
WindowState := wsMinimized;
ShowWindow(Self.Handle, SW_HIDE);
und setzte sie in die procedure TForm2.FormCreate(Sender: TObject); ....
und sehe da ich konnte sie weder mit ... noch irgendwas anderes nicht wider herstellen
ShowWindow(Self.Handle, SW_SHOWNA);
WindowState := wsNormal;
Application.Restore;
nun weiß ich nicht weiter.