function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external ’KERNEL32.DLL’;
{把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来}
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE);
form1.Hide;
end;
把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来
原文：http://www.cnblogs.com/kaibosoft/p/4039230.html
