Как отобразить не главные окна своей программы в панели задач Windows

Code:

procedure TMyForm.CreateParams(var Params :TCreateParams); {override;}

begin

inherited CreateParams(Params); {CreateWindowEx}

Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;

end;

Code:

type

  TForm = class(TForm)

    {...}

  protected

    procedure CreateParams(var Params: TCreateParams); override;

  end;

implementation

{...}

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

  inherited CreateParams(Params);

  Params.ExStyle   := Params.ExStyle or WS_EX_APPWINDOW;

  Params.WndParent := GetDesktopWindow;

end;

Code:

uses Unit2, Unit3;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowWindow(Application.Handle, SW_HIDE);

Form1.Hide;

Form2.Show;

Form3.Show;

end;