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 :wall: weiß ich nicht weiter.