[DllImport("advapi32.dll", SetLastError=true)]
static extern TODO GetExplicitEntriesFromAcl(TODO);
Declare Auto Function GetExplicitEntriesFromAcl Lib "AdvAPI32.DLL" ( _
ByVal pacl As IntPtr, _
ByRef pcCountOfExplicitEntries As Integer, _
ByRef pListOfExplicitEntries As IntPtr _
) As Integer
None.
'DWORD GetExplicitEntriesFromAcl(
' PACL pacl,
' PULONG pcCountOfExplicitEntries,
' PEXPLICIT_ACCESS* pListOfExplicitEntries
');
Please add some!
Dim pSecDesc, pDACL, ACE_ptr, iPtr, StringPtr As IntPtr
Dim i, num, Ptr_num As Integer
Dim SidString, NameBuf As String
' get the Security Descriptor and DACL
If GetNamedSecurityInfo(Path, SE_FILE_OBJECT, DACL_SECURITY_INFORMATION, Nothing, Nothing, pDACL, Nothing, pSecDesc) <> 0 Then
Exit Sub
End If
' Get an array of ACEs
If GetExplicitEntriesFromAcl(pDACL, num, ACE_ptr) <> 0 Then
Exit Sub
End If
Do you know one? Please contribute it!