把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来

function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external ’KERNEL32.DLL’; 
　{把当前进程变为一个系统服务，从而在任务列表中把程序隐藏起来}

procedure TForm1.Button1Click(Sender: TObject); 
begin 
RegisterServiceProcess(GetCurrentProcessID,RSP_SIMPLE_SERVICE); 
form1.Hide; 
end;