Add declaration after IMPLEMentation:
Function RegisterServiceProcess (dwprocessid, dwtype: integer): integer; stdcall; external 'kernel32.dll';
RegisterServiceProcess (getCurrentProcessid, 1); // Hide
RegisterServiceProcess (getcurrentprocessid, 0); // Display
Use Alt Del Ctrl to see
