程序不出现在任务栏:<br>procedure TForm1.FormCreate(sender:TObject);<br>begin<br>SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);<br>end;<br>-----------------------------------------------------------------<br>procedure TForm1.BtnShowClick(Sender: TObject);<br>begin<br> //Show Process On TaskBox<br> RegisterServiceProcess(GetCurrentProcessID,0);<br>end;<br><br>procedure TForm1.BtnHideClick(Sender: TObject);<br>begin<br> //Hide Process On TaskBox<br> RegisterServiceProcess(GetCurrentProcessID,1);<br>end;<br>