看看这个<br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> ShowWindow(application.Handle,SW_HIDE);<br> SetWindowLong(application.Handle,GWL_EXSTYLE,GetWindowLong(application.Handle,GWL_EXSTYLE) or<br> WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);<br> ShowWindow(Application.Handle,SW_SHOW);<br>end;