procedure EnableAllPrivileges;
var c1, c2 : dword;
   ptp : PTokenPrivileges;
   i1 : integer;
begin
 if OpenProcessToken(windows.GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, c1) then
   try
     c2 := 0;
     GetTokenInformation(c1, TokenPrivileges, nil, 0, c2);
     if c2 <> 0 then begin
       ptp := AllocMem(c2);
       if GetTokenInformation(c1, TokenPrivileges, ptp, c2, c2) then begin
         for i1 := 0 to integer(ptp^.PrivilegeCount) - 1 do
           ptp^.Privileges[i1].Attributes := ptp^.Privileges[i1].Attributes or SE_PRIVILEGE_ENABLED;
         AdjustTokenPrivileges(c1, false, ptp^, c2, PTokenPrivileges(nil)^, cardinal(pointer(nil)^));
       end;
       FreeMem(ptp);
     end;
   finally CloseHandle(c1) end;
end;

function ChangeFSRedirection(bDisable: Boolean): Boolean;
type
    TWow64DisableWow64FsRedirection = Function(Var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
    TWow64EnableWow64FsRedirection = Function(var Wow64FsEnableRedirection: LongBool): LongBool; StdCall;
var
   hHandle: THandle;
   Wow64DisableWow64FsRedirection: TWow64DisableWow64FsRedirection;
   Wow64EnableWow64FsRedirection: TWow64EnableWow64FsRedirection;
   Wow64FsEnableRedirection: LongBool;
begin
 Result := false;

// if not IsWindows64 then
  //  Exit;

 try
   hHandle := GetModuleHandle('kernel32.dll');
   @Wow64EnableWow64FsRedirection := GetProcAddress(hHandle, 'Wow64EnableWow64FsRedirection');
   @Wow64DisableWow64FsRedirection := GetProcAddress(hHandle, 'Wow64DisableWow64FsRedirection');

   if bDisable then
   begin
    if (hHandle <> 0) and (@Wow64DisableWow64FsRedirection <> nil) then
    begin
      Wow64DisableWow64FsRedirection(Wow64FsEnableRedirection);
      Result := True;
    end;
   end else
   begin
    if (hHandle <> 0) and (@Wow64EnableWow64FsRedirection <> nil) then
    begin
      Wow64EnableWow64FsRedirection(Wow64FsEnableRedirection);
      Result := True;
    end;
   end;
 Except
 end;
end;

C:\Windows\explorer.exe

 uses ... TlHelp32;
 function GetModuleFileName(pID: DWORD): string;
 var
   hSnapshot: THandle;
   mEntr: tagMODULEENTRY32;
 begin
   result:= 'noname';
   hSnapshot:= CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pID);
   if hSnapshot <> INVALID_HANDLE_VALUE then
   try
     mEntr.dwSize:= SizeOf(mEntr);
     if Module32First(hSnapshot, mEntr) then
       result:= mEntr.szExePath;
   finally
     CloseHandle(hSnapshot)
   end;
 end;

 function ParentProcName: string;
 var
   pID: DWORD;
   hSnapshot: THandle;
   ProcessEntry: TProcessEntry32;
 begin
   result:= 'noname';
   hSnapshot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
   if hSnapshot <> INVALID_HANDLE_VALUE then
   try
     ProcessEntry.dwSize:= SizeOf(ProcessEntry);
     if Process32First(hSnapshot, ProcessEntry) then begin
       pID:= GetCurrentProcessID;
       repeat
         if ProcessEntry.th32ProcessID = pID then begin
           result:= GetModuleFileName(ProcessEntry.th32ParentProcessID);
           Break;
         end;
       until not Process32Next(hSnapshot, ProcessEntry);
     end;
   finally
     CloseHandle(hSnapshot)
   end;
 end;