hehe,又有人问这个问题:<br>。。。<br>function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;stdcall;<br> external 'KERNEL32.DLL';<br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br> RegisterServiceProcess(GetCurrentProcessID, 0);//出现<br>end;<br>