[hasherfrog]

Ч@рт возьми, ошибся. Не в ХР, конечно же, а в 9х

Код:

implementation 
function RegisterServiceProcess(dwProcessID, dwType: DWORD): DWORD; 
  stdcall; external 'KERNEL32.DLL'; 
// hide, verstecken 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RegisterServiceProcess(GetCurrentProcessID, 1); 
end; 
// show again, wieder anzeigen 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  RegisterServiceProcess(GetCurrentProcessID, 0); 
end;

ещё здесь: http://www.delphifaq.com/fq/q2106.shtml

А для ХР всё сложнее, посмотри здесь: http://www.codeproject.com/useritems...;select=663761
Там очень подробно и вроде даже с исходниками.