function SetPrivilege(privilegeName: string; enable: boolean): boolean;
var
 tpPrev,
 tp        : TTokenPrivileges;
 token      : THandle;
 dwRetLen  : DWord;
begin
 result := False;

 try
 OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token); //i"получаем маркер безопасности процесс- токен

 tp.PrivilegeCount := 1;
 if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then //получаем идентификатор привилегии - LUID
 begin
   if enable then
     tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED  //устанавливаем атрибуты привилегии
   else
     tp.Privileges[0].Attributes := 0;

   dwRetLen := 0;
   result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen); //включаем или отключаем привилегию
 end;

 finally
 try
 CloseHandle(token);
 except
 end;
end;
end;

function SID_GetUserSID(Machine,AccountName:string):Pointer;
     var
       PSID, PRef: Pointer;
       SIDSize, RefSize, peUse: Cardinal;
     
     begin
       SIDSize:=0;
       RefSize:=0;
       LookupAccountName(PChar(Machine),PChar(AccountName),nil,SIDSize,nil,
         RefSize,peUse);
       GetMem(PSID,SIDSize);
       GetMem(PRef,RefSize);
       try
         if not LookupAccountName(PChar(Machine),PChar(AccountName),PSID,
           SIDSize, PRef,RefSize,peUse) then begin
           result:=nil;
           exit;
         end else result:=PSID;
       finally
         FreeMem(PRef);
         FreeMem(PSID);
       end;
     end;
     
     
     procedure TForm1.Button2Click(Sender: TObject);
     var Sid:Pointer;
         Sd:PSecurityDescriptor;
         i:integer;
     begin
     SetPrivilege('SeTakeOwnershipPrivilege', true);//включаем привилегию
       sid:=SID_GetUserSID('','Администратор');
       if sid<>nil then begin
         GetMem(Sd,1024);
            InitializeSecurityDescriptor(Sd,SECURITY_DESCRIPTOR_REVISION);
            SetSecurityDescriptorOwner(Sd,Sid, False);
            i:=SetNamedSecurityInfo('E:\',SE_FILE_OBJECT,OWNER_SECURITY_INFORMATION,@sid,nil ,nil,nil);
            if i = ERROR_SUCCESS then caption:='1' else caption:=inttostr(i);
         FreeMem(Sd);
       end;
     SetPrivilege('SeTakeOwnershipPrivilege', false);//выключаем привилегию
     end;