procedure TForm1.FormCreate(Sender: TObject);<br>var<br> hr:Thandle;<br>begin<br> //使应用程序不出现在Windows 的任务栏上<br> // setwindowlong(application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);<br>end<br>恢复:<br> XWndLong:=GetWindowLong(Application.Handle,GWL_EXSTYLE);<br>XWndLong:=XWndLong and not WS_EX_TOOLWINDOW;<br>SetWindowLong(Application.Handle, GWL_EXSTYLE, XWndLong);