Delphi句柄与VC句柄的不同处理

function WindowsExit(RebootParam: Longword): Boolean;
var
    TTokenHd: THandle;
    TTokenPvg: TTokenPrivileges;
    cbtpPrevious: DWORD;
    rTTokenPvg: TTokenPrivileges;
    pcbtpPreviousRequired: DWORD;
    tpResult: Boolean;
const
    SE_SHUTDOWN_NAME = ‘SeShutdownPrivilege‘;
begin
    Result := false;
    try
        if Win32Platform = VER_PLATFORM_WIN32_NT then
        begin
            tpResult := OpenProcessToken(GetCurrentProcess(),
                TOKEN_ADJUST_PRIVILEGES
                or TOKEN_QUERY, TTokenHd);
            if tpResult then
            begin
                tpResult := LookupPrivilegeValue(nil, SE_SHUTDOWN_NAME,
                    TTokenPvg.Privileges[0].Luid);
                TTokenPvg.PrivilegeCount := 1;
                TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
                cbtpPrevious := SizeOf(rTTokenPvg);
                pcbtpPreviousRequired := 0;
                if tpResult then
                    Windows.AdjustTokenPrivileges(TTokenHd, False, TTokenPvg,
                        cbtpPrevious, rTTokenPvg, pcbtpPreviousRequired);
            end;
        end;
        Result := ExitWindowsEx(RebootParam, 0); // API
    except
    end;
end;

    HANDLE TTokenHd;
    bool tpResult = OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &TTokenHd); // 这里取指针
    if (tpResult) {
        TOKEN_PRIVILEGES TTokenPvg, rTTokenPvg;
        int cbtpPrevious;
        tpResult = LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME, &TTokenPvg.Privileges[0].Luid); // ccc 取地址符（指针）应该是对最后一个元素起作用
        TTokenPvg.PrivilegeCount = 1;
        TTokenPvg.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; // API 就是为了改变这个
        cbtpPrevious = sizeof(rTTokenPvg);
        DWORD pcbtpPreviousRequired = 0;
        if (tpResult) {
            AdjustTokenPrivileges(TTokenHd, false, &TTokenPvg, cbtpPrevious, &rTTokenPvg, &pcbtpPreviousRequired); // 这里三处取指针
        }
    }
    res = ExitWindowsEx(EWX_POWEROFF | EWX_FORCE, 0); // API