Nejprve přidáme

do našeho zdrojového kódu deklaraci externí funkce RegisterServiceProcess.
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
A nyní již samotné schování a opětovné odkrytí naší aplikace:
procedure Schovej;
begin
RegisterServiceProcess(GetCurrentProcessID, 1);
end;

procedure Ukaz;
begin
RegisterServiceProcess(GetCurrentProcessID, 0);
end;