窗體不出現在任務欄上

uses  
      ShellApi;   

  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      SetWindowLong(Application.Handle,   GWL_EXSTYLE,   WS_EX_TOOLWINDOW);  
  end;