Einzelnen Beitrag anzeigen

ReDoX
(Gast)

n/a Beiträge
 
#1

DebugPrivilege wieder loswerden

  Alt 2. Mai 2005, 07:22
Hi,
Ist es möglich die DebugPrivilege, die ich mit

Delphi-Quellcode:
function GetDebugPrivilege: boolean; stdcall;
var hToken,rel: cardinal;
    tkp: TOKEN_PRIVILEGES;
    luid: int64;
begin
  result := false;
  if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
  begin
    if LookupPrivilegeValue(nil, 'SeDebugPrivilege', luid) then
    begin
      tkp.PrivilegeCount := 1;
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      tkp.Privileges[0].Luid := luid;
      result := AdjustTokenPrivileges(hToken, FALSE, tkp, sizeof(tkp), nil, rel);
    end;
    CloseHandle(hToken);
  end;
end;
bekomme, loszuwerden?
Mfg ReDoX
  Mit Zitat antworten Zitat