DuplicateTokenEx

function DuplicateTokenEx(

  hExistingToken: HANDLE;

  dwDesiredAccess: DWORD;

  lpTokenAttributes: LPSECURITY_ATTRIBUTES;

  ImpersonationLevel: SECURITY_IMPERSONATION_LEVEL;

  TokenType: TOKEN_TYPE;

  var phNewToken: HANDLE

):BOOL;