如何让程序在系统任务栏显示﹑隐藏

1.程序运行过程中显示﹑隐藏
procedure TForm1.statusbar_show_hide(Sender: TObject);
begin
  Form1.statusbar_sw:=not Form1.statusbar_sw;
  if Form1.statusbar_sw then
    ShowWindow(Application.Handle, SW_SHOW)
  else
    ShowWindow(Application.Handle, SW_HIDE);
end;
2.程序一启动就永远的在任务栏中隐藏
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;