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



procedure TForm1.FormCreate(Sender: TObject);
begin
// sakla
RegisterServiceProcess(GetCurrentProcessID,1);
// goster
RegisterServiceProcess(GetCurrentProcessID,0);

end;
__________________