分区表

Question

在users权限下如何读写分区表
rocedure AdjustToken();
var
 hdlProcessHandle, hdlTokenHandle, lBufferNeeded: Cardinal;
 tmpLuid: Int64;
 tkp, tkpNewButIgnored: TOKEN_PRIVILEGES;
 Privilege: array[0..0] of _LUID_AND_ATTRIBUTES;
begin
   hdlProcessHandle := GetCurrentProcess;
   OpenProcessToken(hdlProcessHandle,
   (TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY),
    hdlTokenHandle);
   LookupPrivilegeValue('', 'SeMachineAccountPrivilege', tmpLuid);
   Privilege[0].Luid := tmpLuid;
   Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;
   tkp.PrivilegeCount := 1; // One privilege to set
   tkp.Privileges[0] := Privilege[0];
       // Enable the shutdown privilege in the access token of this process.
   AdjustTokenPrivileges(hdlTokenHandle,
     False,
     tkp,
    Sizeof(tkpNewButIgnored),
    tkpNewButIgnored,
    lBufferNeeded);
end;
我提高进程的权限怎么也不行??