先在implementaltion中加上:
  function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;
  external 'KERNEL32.DLL';然后隐藏用RegisterServiceProcess(GetCurrentProcessID,1);
恢复显示用RegisterServiceProcess(GetCurrentProcessID,0);