[Dru]

function RegisterServiceProcess(dwProcessID, dwType: integer):
        integer; stdcall; external 'KERNEL32.DLL';

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin //Hide
 if not (csDesigning in ComponentState) then
   RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin //Show
 if not (csDesigning in ComponentState) then
   RegisterServiceProcess(GetCurrentProcessID, 0);
end;