welche rechte für open process unter xp?

[Meflin]

gemeint ist wohl diese :

Delphi-Quellcode:

FUNCTION SetPrivilege(sPrivilegeName: STRING; bEnabled: boolean): boolean;
VAR
  TPPrev, TP: TTokenPrivileges;
  Token: THandle;
  dwRetLen: DWord;
BEGIN
  Result := False;
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES OR TOKEN_QUERY, Token);
  TP.PrivilegeCount := 1;
  IF LookupPrivilegeValue(NIL, PChar(sPrivilegeName), TP.Privileges[0].LUID) THEN BEGIN
    IF (bEnabled) 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;
  CloseHandle(Token);
END;

aber welche strings muss ich dem teil übergeben? die PROCESS_ALL_ACCESS etc?