Как узнать уровень защиты процесса не используя GetProcessInformation (эта функция минимум для Windows 8)?

Private Type PROCESS_EXTENDED_BASIC_INFORMATION
    BasicInfo As PROCESS_BASIC_INFORMATION
    IsProtectedProcess As Currency
    IsWow64Process As Currency
    IsProcessDeleting As Currency
    IsCrossSessionCreate As Currency
    IsFrozen As Currency
    IsBackground As Currency
    IsStronglyNamed As Currency
    IsSecureProcess As Currency
    IsSubsystemProcess As Currency
    SpareBits As Currency
End Type

Private Type PROCESS_BASIC_INFORMATION
    ExitStatus      As Long
    PEBBaseAddress  As Long
    AffinityMask    As Long
    BasePriority    As Long
    UniqueProcessId As Long
    ParentProcessId As Long
End Type

Option Explicit
 
Private Const PROCESS_QUERY_LIMITED_INFORMATION     As Long = &H1000
 
Private Type PROCESS_BASIC_INFORMATION
    ExitStatus                      As Long
    PebBaseAddress                  As Long
    AffinityMask                    As Long
    BasePriority                    As Long
    UniqueProcessId                 As Long
    InheritedFromUniqueProcessId    As Long
End Type
 
Private Type PROCESS_EXTENDED_BASIC_INFORMATION
    Size                            As Long
    BasicInfo                       As PROCESS_BASIC_INFORMATION
    Flags                           As Long
End Type
 
Private Declare Function NtQueryInformationProcess Lib "ntdll" ( _
                         ByVal ProcessHandle As OLE_HANDLE, _
                         ByVal InformationClass As Long, _
                         ByRef ProcessInformation As Any, _
                         ByVal ProcessInformationLength As Long, _
                         ByRef ReturnLength As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" ( _
                         ByVal dwDesiredAccess As Long, _
                         ByVal bInheritHandle As Long, _
                         ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" ( _
                         ByVal hObject As OLE_HANDLE) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 
Private Sub Form_Load()
    Dim tInf        As PROCESS_EXTENDED_BASIC_INFORMATION
    Dim hProcess    As OLE_HANDLE
    
    hProcess = OpenProcess(PROCESS_QUERY_LIMITED_INFORMATION, 0, GetCurrentProcessId)
    If hProcess = 0 Then
        Stop
    End If
       
    tInf.Size = Len(tInf)
    
    If NtQueryInformationProcess(hProcess, 0, tInf, Len(tInf), 0&) < 0 Then
        CloseHandle hProcess
        Stop
    End If
    
    CloseHandle hProcess
    
    Debug.Print "Protected: "; tInf.Flags And 1
    
End Sub

Public Function GetProcessParentId(pid As Long) As Long
    Dim hProcess As Long
    Dim Pbi As PROCESS_BASIC_INFORMATION
    
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
    
    If hProcess > 0 Then
        NtQueryInformationProcess hProcess, ProcessBasicInformation, VarPtr(Pbi), Len(Pbi), ByVal 0&
        GetProcessParentId = Pbi.UniqueProcessId
        CloseHandle hProcess
    End If
End Function

Private Declare Function NtQueryInformationProcess Lib "ntdll.dll" (ByVal hProcess As Long, ByVal ProcessInformationClass As Long, ProcessInformation As Any, ByVal ProcessInformationLength As Long, ReturnLength As Long) As Long

NtQueryInformationProcess hProcess, ProcessBasicInformation, VarPtr(Pbi), Len(Pbi), ByVal 0&

NtQueryInformationProcess hProcess, ProcessBasicInformation, ByVal VarPtr(Pbi), Len(Pbi), ByVal 0&

' Получить pid процесса-родителя
Public Function GetProcessParentId(pid As Long) As Long
    On Error Resume Next
    
    Dim hProcess As Long
    Dim Pbi As PROCESS_BASIC_INFORMATION
    
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
    
    If hProcess > 0 Then
        NtQueryInformationProcess hProcess, ProcessBasicInformation, ByVal VarPtr(Pbi), Len(Pbi), ByVal 0&
        GetProcessParentId = Pbi.ParentProcessId
        CloseHandle hProcess
    End If
End Function

Public Function IsProcessProtected(pid As Long) As Boolean
    Dim hProcess As Long
    Dim tInf As PROCESS_EXTENDED_BASIC_INFORMATION
    
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
    
    If hProcess > 0 Then
        tInf.Size = Len(tInf)
        
        NtQueryInformationProcess hProcess, ProcessBasicInformation, tInf, Len(tInf), ByVal 0&
        
        If (tInf.Flags And 1) Then
            IsProcessProtected = True
        End If
        
        CloseHandle hProcess
    End If
End Function