Помогите поменять процесс-родитель

//Импорт функций

function NtQueryInformationProcess(HProcess: CARDINAL; ProcessInformationClass: BYTE; ProcessInformation: POINTER; ProcessInformationLength: CARDINAL; ReturnLength: POINTER): CARDINAL; stdcall; external 'ntdll.dll' name 'NtQueryInformationProcess';
function NtCreateProcessEx(PHandleProcess: POINTER; DesiredAccess: CARDINAL; ObjectAttributes: POINTER; ParentProcess: CARDINAL; Flags: CARDINAL; SectionHandle: CARDINAL; DebugPort: CARDINAL; ExceptionPort: CARDINAL; InJob: BOOL): CARDINAL; stdcall; external 'ntdll.dll' name 'NtCreateProcessEx';
function NtCreateProcess(PHandleProcess: POINTER; DesiredAccess: CARDINAL; ObjectAttributes: POINTER; ParentProcess: CARDINAL; InheritObjectTable: BOOL; SectionHandle: CARDINAL; DebugPort: CARDINAL; ExceptionPort: CARDINAL): CARDINAL; stdcall; external 'ntdll.dll' name 'NtCreateProcess';
function NtSetInformationProcess(HProcess: CARDINAL; ProcessInformationClass: BYTE; ProcessInformation: POINTER; ProcessInformationLength: CARDINAL): CARDINAL; stdcall; external 'ntdll.dll' name 'NtSetInformationProcess';



const
  ProcessBasicInformation = 0;


type
  PROCESS_BASIC_INFORMATION = packed record
                              ExitStatus: CARDINAL;
                              PebBaseAddress: POINTER;
                              AffinityMask: CARDINAL;
                              BasePriority: CARDINAL;
                              uUniqueProcessId: CARDINAL;
                              uInheritedFromUniqueProcessId: CARDINAL;
                              end;



//Сам код

Err := CreateProcessW(ApplicationName, NIL, NIL, NIL, FALSE, CREATE_SUSPENDED, NIL, PWideChar(ExtractFileDir(ApplicationName)), SI, PI);


NtErr := NtQueryInformationProcess(PI.hProcess, ProcessBasicInformation, Addr(PBI), SizeOf(PBI), NIL);
if NtErr = NO_ERROR then Form1.Memo1.Lines.Add(IntToStr(PBI.uInheritedFromUniqueProcessId));
// На этом этапе всё нормально, я получаю в мемо PId процесса-родителя

PBI.uInheritedFromUniqueProcessId := 1372; // Это PId эксплорера на момент эксперимертов
NtErr := NtSetInformationProcess(PI.hProcess, ProcessBasicInformation, Addr(PBI), SizeOf(PBI));
// Вот тут ощибка 0хС0000003.
// Из апимонитора узнал что функция возвращает STATUS_INVALID_INFO_CLASS. Недопустимый параметр. Указанный класс сведений не является допустимым классом сведений для выбранного объекта