vc判断当前用户是否具有administrator 权限代码

BOOL IsAdmin()
{
    HANDLE hAccessToken;
    BYTE * InfoBuffer = new BYTE[1024];
    PTOKEN_GROUPS ptgGroups;
    DWORD dwInfoBufferSize;
    PSID psidAdministrators;
    SID_IDENTIFIER_AUTHORITY siaNtAuthority = SECURITY_NT_AUTHORITY;    

    if(!OpenProcessToken(GetCurrentProcess(),TOKEN_QUERY,&hAccessToken))
    {
        delete InfoBuffer;
        return FALSE;
    }    

    if(!GetTokenInformation(hAccessToken,TokenGroups,InfoBuffer,1024,&dwInfoBufferSize))
    {
        delete InfoBuffer;
        CloseHandle(hAccessToken);
        return FALSE;
    }    

    CloseHandle(hAccessToken);    

    if(!AllocateAndInitializeSid(&siaNtAuthority,
        2,
        SECURITY_BUILTIN_DOMAIN_RID,
        DOMAIN_ALIAS_RID_ADMINS,
        0,0,0,0,0,0,
        &psidAdministrators))
    {
        delete InfoBuffer;
        return FALSE;
    }    

    ptgGroups = (PTOKEN_GROUPS)InfoBuffer;    

    for(UINT i = 0; i < ptgGroups->GroupCount; i++)
    {
        if(EqualSid(psidAdministrators,ptgGroups->Groups[i].Sid))
        {
            FreeSid(psidAdministrators);
            delete InfoBuffer;
            return TRUE;
        }
    }
    return FALSE;
}