窗体不出现在任务栏上

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