关于提升进程令牌的问题

Question

在网上找了下资料，想写一个给进程提升权限的程序，但编译时出现问题，下面是源码procedure TForm1.N1Click(Sender: TObject);
var
ProcessHandle:HWND;
Token:Cardinal;
TokenPri:TOKEN_PRIVILEGES;
ProcessDest,a:int64;
begin
ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS ,False,StrToInt(Trim(ListView1.Selected.SubItems.Strings[0])));
if not OpenProcessToken(GetCurrentProcess,TOKEN_QUERY,Token) then
  RaiseLastOSError
else
begin
  showmessage(inttostr(token));
  if LookupPrivilegeValue(nil,'SeDebugPrivilege',ProcessDest) then
  begin
    TokenPri.PrivilegeCount:=1;
    TokenPri.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
    TokenPri.Privileges[0].Luid:=ProcessDest;
    if AdjustTokenPrivileges(Token,False,TokenPri,sizeof(TokenPri),nil,nil) then
      showmessage('升权成功')
    else
      showmessage('升权失败');
  end;
end;编译时这句通不过，提示是“There is no overload version of "ADJustTokenPrivileges" that can be called with these arguments”.请问该如何解决呢？谢谢

Answer 1

AdjustTokenPrivileges(Token, False, TokenPri, SizeOf(TokenPri), nil, Dummy);

Answer 2

同ari,最后一个参数用DWORD的型的变量就可以了。