Win32 API 日本語リファレンス
ホームSecurity.Authorization › GetInheritanceSourceA

GetInheritanceSourceA

関数
ACL内の各ACEの継承元を特定して取得する(ANSI版)。
DLLADVAPI32.dll文字セットANSI (-A)呼出規約winapi対応OSWindows XP 以降

シグネチャ

// ADVAPI32.dll  (ANSI / -A)
#include <windows.h>

WIN32_ERROR GetInheritanceSourceA(
    LPSTR pObjectName,
    SE_OBJECT_TYPE ObjectType,
    OBJECT_SECURITY_INFORMATION SecurityInfo,
    BOOL Container,
    GUID** pObjectClassGuids,   // optional
    DWORD GuidCount,
    ACL* pAcl,
    FN_OBJECT_MGR_FUNCTS* pfnArray,   // optional
    GENERIC_MAPPING* pGenericMapping,
    INHERITED_FROMA* pInheritArray
);

パラメーター

名前方向説明
pObjectNameLPSTRinチェック対象の ACL を使用するオブジェクトの名前へのポインター。
ObjectTypeSE_OBJECT_TYPEinpObjectName で示されるオブジェクトの種類。指定可能な値は SE_FILE_OBJECTSE_REGISTRY_KEYSE_DS_OBJECTSE_DS_OBJECT_ALL です。
SecurityInfoOBJECT_SECURITY_INFORMATIONinオブジェクトで使用される ACL の種類。指定可能な値は DACL_SECURITY_INFORMATION または SACL_SECURITY_INFORMATION です。
ContainerBOOLinオブジェクトがコンテナーオブジェクトの場合は TRUE、リーフオブジェクトの場合は FALSE を指定します。リーフオブジェクトとなるのは SE_FILE_OBJECT のみであることに注意してください。
pObjectClassGuidsGUID**inoptionalpObjectName に関連付けられたオブジェクトの種類または名前を識別する GUID の省略可能なリスト。オブジェクトマネージャーが 1 つのオブジェクトクラスのみをサポートする場合、またはオブジェクトクラスに関連付けられた GUID がない場合は、NULL を指定できます。
GuidCountDWORDinpObjectClassGuids が指す GUID の数。
pAclACL*inオブジェクトの ACL。
pfnArrayFN_OBJECT_MGR_FUNCTS*inoptional予約済み。このパラメーターには NULL を指定します。
pGenericMappingGENERIC_MAPPING*inオブジェクトに対する汎用的な権利から固有の権利へのマッピング。
pInheritArrayINHERITED_FROMA*outGetInheritanceSource 関数が継承情報を格納する INHERITED_FROM 構造体の配列へのポインター。呼び出し元は、ACL 内の各 ACE 分のエントリを格納できる十分なメモリを割り当てる必要があります。

戻り値の型: WIN32_ERROR

公式ドキュメント

アクセス制御リスト (ACL) 内で継承されたアクセス制御エントリ (ACE) のソースに関する情報を返します。(ANSI)

戻り値

関数が成功した場合、ERROR_SUCCESS を返します。

関数が失敗した場合、WinError.h で定義されている 0 以外のエラーコードを返します。

解説(Remarks)

GetInheritanceSource 関数は、INHERITED_FROM 構造体で返される名前のためにメモリを割り当てます。このメモリの使用が終了したら、呼び出し元のプログラムは FreeInheritedFromArray を呼び出してメモリを解放する必要があります。配列自体のメモリは呼び出し元が用意する必要があることに注意してください。呼び出し元がメモリを割り当てた場合は、FreeInheritedFromArray を呼び出した後にそのメモリを解放する必要があります。

この関数は競合状態を処理しません。あるスレッドがこの関数を呼び出すのとほぼ同時に別のスレッドがオブジェクトの セキュリティ記述子 を変更した場合、この関数は失敗する可能性があります。

メモ

aclapi.h ヘッダーは、UNICODE プリプロセッサ定数の定義に基づいて、この関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして GetInheritanceSource を定義します。エンコーディング非依存のエイリアスの使用を、エンコーディング非依存でないコードと混在させると、コンパイルエラーまたは実行時エラーを引き起こす不一致が生じる可能性があります。詳細については、「Conventions for Function Prototypes」を参照してください。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

// ADVAPI32.dll  (ANSI / -A)
#include <windows.h>

WIN32_ERROR GetInheritanceSourceA(
    LPSTR pObjectName,
    SE_OBJECT_TYPE ObjectType,
    OBJECT_SECURITY_INFORMATION SecurityInfo,
    BOOL Container,
    GUID** pObjectClassGuids,   // optional
    DWORD GuidCount,
    ACL* pAcl,
    FN_OBJECT_MGR_FUNCTS* pfnArray,   // optional
    GENERIC_MAPPING* pGenericMapping,
    INHERITED_FROMA* pInheritArray
);
[DllImport("ADVAPI32.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern uint GetInheritanceSourceA(
    [MarshalAs(UnmanagedType.LPStr)] string pObjectName,   // LPSTR
    int ObjectType,   // SE_OBJECT_TYPE
    uint SecurityInfo,   // OBJECT_SECURITY_INFORMATION
    bool Container,   // BOOL
    IntPtr pObjectClassGuids,   // GUID** optional
    uint GuidCount,   // DWORD
    IntPtr pAcl,   // ACL*
    IntPtr pfnArray,   // FN_OBJECT_MGR_FUNCTS* optional
    IntPtr pGenericMapping,   // GENERIC_MAPPING*
    IntPtr pInheritArray   // INHERITED_FROMA* out
);
<DllImport("ADVAPI32.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function GetInheritanceSourceA(
    <MarshalAs(UnmanagedType.LPStr)> pObjectName As String,   ' LPSTR
    ObjectType As Integer,   ' SE_OBJECT_TYPE
    SecurityInfo As UInteger,   ' OBJECT_SECURITY_INFORMATION
    Container As Boolean,   ' BOOL
    pObjectClassGuids As IntPtr,   ' GUID** optional
    GuidCount As UInteger,   ' DWORD
    pAcl As IntPtr,   ' ACL*
    pfnArray As IntPtr,   ' FN_OBJECT_MGR_FUNCTS* optional
    pGenericMapping As IntPtr,   ' GENERIC_MAPPING*
    pInheritArray As IntPtr   ' INHERITED_FROMA* out
) As UInteger
End Function
' pObjectName : LPSTR
' ObjectType : SE_OBJECT_TYPE
' SecurityInfo : OBJECT_SECURITY_INFORMATION
' Container : BOOL
' pObjectClassGuids : GUID** optional
' GuidCount : DWORD
' pAcl : ACL*
' pfnArray : FN_OBJECT_MGR_FUNCTS* optional
' pGenericMapping : GENERIC_MAPPING*
' pInheritArray : INHERITED_FROMA* out
Declare PtrSafe Function GetInheritanceSourceA Lib "advapi32" ( _
    ByVal pObjectName As String, _
    ByVal ObjectType As Long, _
    ByVal SecurityInfo As Long, _
    ByVal Container As Long, _
    ByVal pObjectClassGuids As LongPtr, _
    ByVal GuidCount As Long, _
    ByVal pAcl As LongPtr, _
    ByVal pfnArray As LongPtr, _
    ByVal pGenericMapping As LongPtr, _
    ByVal pInheritArray As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

GetInheritanceSourceA = ctypes.windll.advapi32.GetInheritanceSourceA
GetInheritanceSourceA.restype = wintypes.DWORD
GetInheritanceSourceA.argtypes = [
    wintypes.LPCSTR,  # pObjectName : LPSTR
    ctypes.c_int,  # ObjectType : SE_OBJECT_TYPE
    wintypes.DWORD,  # SecurityInfo : OBJECT_SECURITY_INFORMATION
    wintypes.BOOL,  # Container : BOOL
    ctypes.c_void_p,  # pObjectClassGuids : GUID** optional
    wintypes.DWORD,  # GuidCount : DWORD
    ctypes.c_void_p,  # pAcl : ACL*
    ctypes.c_void_p,  # pfnArray : FN_OBJECT_MGR_FUNCTS* optional
    ctypes.c_void_p,  # pGenericMapping : GENERIC_MAPPING*
    ctypes.c_void_p,  # pInheritArray : INHERITED_FROMA* out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ADVAPI32.dll')
GetInheritanceSourceA = Fiddle::Function.new(
  lib['GetInheritanceSourceA'],
  [
    Fiddle::TYPE_VOIDP,  # pObjectName : LPSTR
    Fiddle::TYPE_INT,  # ObjectType : SE_OBJECT_TYPE
    -Fiddle::TYPE_INT,  # SecurityInfo : OBJECT_SECURITY_INFORMATION
    Fiddle::TYPE_INT,  # Container : BOOL
    Fiddle::TYPE_VOIDP,  # pObjectClassGuids : GUID** optional
    -Fiddle::TYPE_INT,  # GuidCount : DWORD
    Fiddle::TYPE_VOIDP,  # pAcl : ACL*
    Fiddle::TYPE_VOIDP,  # pfnArray : FN_OBJECT_MGR_FUNCTS* optional
    Fiddle::TYPE_VOIDP,  # pGenericMapping : GENERIC_MAPPING*
    Fiddle::TYPE_VOIDP,  # pInheritArray : INHERITED_FROMA* out
  ],
  -Fiddle::TYPE_INT)
#[link(name = "advapi32")]
extern "system" {
    fn GetInheritanceSourceA(
        pObjectName: *mut u8,  // LPSTR
        ObjectType: i32,  // SE_OBJECT_TYPE
        SecurityInfo: u32,  // OBJECT_SECURITY_INFORMATION
        Container: i32,  // BOOL
        pObjectClassGuids: *mut *mut GUID,  // GUID** optional
        GuidCount: u32,  // DWORD
        pAcl: *mut ACL,  // ACL*
        pfnArray: *mut FN_OBJECT_MGR_FUNCTS,  // FN_OBJECT_MGR_FUNCTS* optional
        pGenericMapping: *mut GENERIC_MAPPING,  // GENERIC_MAPPING*
        pInheritArray: *mut INHERITED_FROMA  // INHERITED_FROMA* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("ADVAPI32.dll", CharSet = CharSet.Ansi)]
public static extern uint GetInheritanceSourceA([MarshalAs(UnmanagedType.LPStr)] string pObjectName, int ObjectType, uint SecurityInfo, bool Container, IntPtr pObjectClassGuids, uint GuidCount, IntPtr pAcl, IntPtr pfnArray, IntPtr pGenericMapping, IntPtr pInheritArray);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ADVAPI32_GetInheritanceSourceA' -Namespace Win32 -PassThru
# $api::GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
#uselib "ADVAPI32.dll"
#func global GetInheritanceSourceA "GetInheritanceSourceA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; GetInheritanceSourceA pObjectName, ObjectType, SecurityInfo, Container, varptr(pObjectClassGuids), GuidCount, varptr(pAcl), varptr(pfnArray), varptr(pGenericMapping), varptr(pInheritArray)   ; 戻り値は stat
; pObjectName : LPSTR -> "sptr"
; ObjectType : SE_OBJECT_TYPE -> "sptr"
; SecurityInfo : OBJECT_SECURITY_INFORMATION -> "sptr"
; Container : BOOL -> "sptr"
; pObjectClassGuids : GUID** optional -> "sptr"
; GuidCount : DWORD -> "sptr"
; pAcl : ACL* -> "sptr"
; pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> "sptr"
; pGenericMapping : GENERIC_MAPPING* -> "sptr"
; pInheritArray : INHERITED_FROMA* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "ADVAPI32.dll"
#cfunc global GetInheritanceSourceA "GetInheritanceSourceA" str, int, int, int, var, int, var, var, var, var
; res = GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
; pObjectName : LPSTR -> "str"
; ObjectType : SE_OBJECT_TYPE -> "int"
; SecurityInfo : OBJECT_SECURITY_INFORMATION -> "int"
; Container : BOOL -> "int"
; pObjectClassGuids : GUID** optional -> "var"
; GuidCount : DWORD -> "int"
; pAcl : ACL* -> "var"
; pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> "var"
; pGenericMapping : GENERIC_MAPPING* -> "var"
; pInheritArray : INHERITED_FROMA* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; WIN32_ERROR GetInheritanceSourceA(LPSTR pObjectName, SE_OBJECT_TYPE ObjectType, OBJECT_SECURITY_INFORMATION SecurityInfo, BOOL Container, GUID** pObjectClassGuids, DWORD GuidCount, ACL* pAcl, FN_OBJECT_MGR_FUNCTS* pfnArray, GENERIC_MAPPING* pGenericMapping, INHERITED_FROMA* pInheritArray)
#uselib "ADVAPI32.dll"
#cfunc global GetInheritanceSourceA "GetInheritanceSourceA" str, int, int, int, var, int, var, var, var, var
; res = GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
; pObjectName : LPSTR -> "str"
; ObjectType : SE_OBJECT_TYPE -> "int"
; SecurityInfo : OBJECT_SECURITY_INFORMATION -> "int"
; Container : BOOL -> "int"
; pObjectClassGuids : GUID** optional -> "var"
; GuidCount : DWORD -> "int"
; pAcl : ACL* -> "var"
; pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> "var"
; pGenericMapping : GENERIC_MAPPING* -> "var"
; pInheritArray : INHERITED_FROMA* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	advapi32 = windows.NewLazySystemDLL("ADVAPI32.dll")
	procGetInheritanceSourceA = advapi32.NewProc("GetInheritanceSourceA")
)

// pObjectName (LPSTR), ObjectType (SE_OBJECT_TYPE), SecurityInfo (OBJECT_SECURITY_INFORMATION), Container (BOOL), pObjectClassGuids (GUID** optional), GuidCount (DWORD), pAcl (ACL*), pfnArray (FN_OBJECT_MGR_FUNCTS* optional), pGenericMapping (GENERIC_MAPPING*), pInheritArray (INHERITED_FROMA* out)
r1, _, err := procGetInheritanceSourceA.Call(
	uintptr(unsafe.Pointer(windows.BytePtrFromString(pObjectName))),
	uintptr(ObjectType),
	uintptr(SecurityInfo),
	uintptr(Container),
	uintptr(pObjectClassGuids),
	uintptr(GuidCount),
	uintptr(pAcl),
	uintptr(pfnArray),
	uintptr(pGenericMapping),
	uintptr(pInheritArray),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // WIN32_ERROR
function GetInheritanceSourceA(
  pObjectName: PAnsiChar;   // LPSTR
  ObjectType: Integer;   // SE_OBJECT_TYPE
  SecurityInfo: DWORD;   // OBJECT_SECURITY_INFORMATION
  Container: BOOL;   // BOOL
  pObjectClassGuids: PGUID;   // GUID** optional
  GuidCount: DWORD;   // DWORD
  pAcl: Pointer;   // ACL*
  pfnArray: Pointer;   // FN_OBJECT_MGR_FUNCTS* optional
  pGenericMapping: Pointer;   // GENERIC_MAPPING*
  pInheritArray: Pointer   // INHERITED_FROMA* out
): DWORD; stdcall;
  external 'ADVAPI32.dll' name 'GetInheritanceSourceA';
result := DllCall("ADVAPI32\GetInheritanceSourceA"
    , "AStr", pObjectName   ; LPSTR
    , "Int", ObjectType   ; SE_OBJECT_TYPE
    , "UInt", SecurityInfo   ; OBJECT_SECURITY_INFORMATION
    , "Int", Container   ; BOOL
    , "Ptr", pObjectClassGuids   ; GUID** optional
    , "UInt", GuidCount   ; DWORD
    , "Ptr", pAcl   ; ACL*
    , "Ptr", pfnArray   ; FN_OBJECT_MGR_FUNCTS* optional
    , "Ptr", pGenericMapping   ; GENERIC_MAPPING*
    , "Ptr", pInheritArray   ; INHERITED_FROMA* out
    , "UInt")   ; return: WIN32_ERROR
●GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray) = DLL("ADVAPI32.dll", "dword GetInheritanceSourceA(char*, int, dword, bool, void*, dword, void*, void*, void*, void*)")
# 呼び出し: GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
# pObjectName : LPSTR -> "char*"
# ObjectType : SE_OBJECT_TYPE -> "int"
# SecurityInfo : OBJECT_SECURITY_INFORMATION -> "dword"
# Container : BOOL -> "bool"
# pObjectClassGuids : GUID** optional -> "void*"
# GuidCount : DWORD -> "dword"
# pAcl : ACL* -> "void*"
# pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> "void*"
# pGenericMapping : GENERIC_MAPPING* -> "void*"
# pInheritArray : INHERITED_FROMA* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "advapi32" fn GetInheritanceSourceA(
    pObjectName: [*c]const u8, // LPSTR
    ObjectType: i32, // SE_OBJECT_TYPE
    SecurityInfo: u32, // OBJECT_SECURITY_INFORMATION
    Container: i32, // BOOL
    pObjectClassGuids: [*c][*c]GUID, // GUID** optional
    GuidCount: u32, // DWORD
    pAcl: [*c]ACL, // ACL*
    pfnArray: [*c]FN_OBJECT_MGR_FUNCTS, // FN_OBJECT_MGR_FUNCTS* optional
    pGenericMapping: [*c]GENERIC_MAPPING, // GENERIC_MAPPING*
    pInheritArray: [*c]INHERITED_FROMA // INHERITED_FROMA* out
) callconv(std.os.windows.WINAPI) u32;
proc GetInheritanceSourceA(
    pObjectName: cstring,  # LPSTR
    ObjectType: int32,  # SE_OBJECT_TYPE
    SecurityInfo: uint32,  # OBJECT_SECURITY_INFORMATION
    Container: int32,  # BOOL
    pObjectClassGuids: ptr GUID,  # GUID** optional
    GuidCount: uint32,  # DWORD
    pAcl: ptr ACL,  # ACL*
    pfnArray: ptr FN_OBJECT_MGR_FUNCTS,  # FN_OBJECT_MGR_FUNCTS* optional
    pGenericMapping: ptr GENERIC_MAPPING,  # GENERIC_MAPPING*
    pInheritArray: ptr INHERITED_FROMA  # INHERITED_FROMA* out
): uint32 {.importc: "GetInheritanceSourceA", stdcall, dynlib: "ADVAPI32.dll".}
pragma(lib, "advapi32");
extern(Windows)
uint GetInheritanceSourceA(
    const(char)* pObjectName,   // LPSTR
    int ObjectType,   // SE_OBJECT_TYPE
    uint SecurityInfo,   // OBJECT_SECURITY_INFORMATION
    int Container,   // BOOL
    GUID** pObjectClassGuids,   // GUID** optional
    uint GuidCount,   // DWORD
    ACL* pAcl,   // ACL*
    FN_OBJECT_MGR_FUNCTS* pfnArray,   // FN_OBJECT_MGR_FUNCTS* optional
    GENERIC_MAPPING* pGenericMapping,   // GENERIC_MAPPING*
    INHERITED_FROMA* pInheritArray   // INHERITED_FROMA* out
);
ccall((:GetInheritanceSourceA, "ADVAPI32.dll"), stdcall, UInt32,
      (Cstring, Int32, UInt32, Int32, Ptr{GUID}, UInt32, Ptr{ACL}, Ptr{FN_OBJECT_MGR_FUNCTS}, Ptr{GENERIC_MAPPING}, Ptr{INHERITED_FROMA}),
      pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
# pObjectName : LPSTR -> Cstring
# ObjectType : SE_OBJECT_TYPE -> Int32
# SecurityInfo : OBJECT_SECURITY_INFORMATION -> UInt32
# Container : BOOL -> Int32
# pObjectClassGuids : GUID** optional -> Ptr{GUID}
# GuidCount : DWORD -> UInt32
# pAcl : ACL* -> Ptr{ACL}
# pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> Ptr{FN_OBJECT_MGR_FUNCTS}
# pGenericMapping : GENERIC_MAPPING* -> Ptr{GENERIC_MAPPING}
# pInheritArray : INHERITED_FROMA* out -> Ptr{INHERITED_FROMA}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
uint32_t GetInheritanceSourceA(
    const char* pObjectName,
    int32_t ObjectType,
    uint32_t SecurityInfo,
    int32_t Container,
    void* pObjectClassGuids,
    uint32_t GuidCount,
    void* pAcl,
    void* pfnArray,
    void* pGenericMapping,
    void* pInheritArray);
]]
local advapi32 = ffi.load("advapi32")
-- advapi32.GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
-- pObjectName : LPSTR
-- ObjectType : SE_OBJECT_TYPE
-- SecurityInfo : OBJECT_SECURITY_INFORMATION
-- Container : BOOL
-- pObjectClassGuids : GUID** optional
-- GuidCount : DWORD
-- pAcl : ACL*
-- pfnArray : FN_OBJECT_MGR_FUNCTS* optional
-- pGenericMapping : GENERIC_MAPPING*
-- pInheritArray : INHERITED_FROMA* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('ADVAPI32.dll');
const GetInheritanceSourceA = lib.func('__stdcall', 'GetInheritanceSourceA', 'uint32_t', ['str', 'int32_t', 'uint32_t', 'int32_t', 'void *', 'uint32_t', 'void *', 'void *', 'void *', 'void *']);
// GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
// pObjectName : LPSTR -> 'str'
// ObjectType : SE_OBJECT_TYPE -> 'int32_t'
// SecurityInfo : OBJECT_SECURITY_INFORMATION -> 'uint32_t'
// Container : BOOL -> 'int32_t'
// pObjectClassGuids : GUID** optional -> 'void *'
// GuidCount : DWORD -> 'uint32_t'
// pAcl : ACL* -> 'void *'
// pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> 'void *'
// pGenericMapping : GENERIC_MAPPING* -> 'void *'
// pInheritArray : INHERITED_FROMA* out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("ADVAPI32.dll", {
  GetInheritanceSourceA: { parameters: ["buffer", "i32", "u32", "i32", "pointer", "u32", "pointer", "pointer", "pointer", "pointer"], result: "u32" },
});
// lib.symbols.GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
// pObjectName : LPSTR -> "buffer"
// ObjectType : SE_OBJECT_TYPE -> "i32"
// SecurityInfo : OBJECT_SECURITY_INFORMATION -> "u32"
// Container : BOOL -> "i32"
// pObjectClassGuids : GUID** optional -> "pointer"
// GuidCount : DWORD -> "u32"
// pAcl : ACL* -> "pointer"
// pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> "pointer"
// pGenericMapping : GENERIC_MAPPING* -> "pointer"
// pInheritArray : INHERITED_FROMA* out -> "pointer"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
uint32_t GetInheritanceSourceA(
    const char* pObjectName,
    int32_t ObjectType,
    uint32_t SecurityInfo,
    int32_t Container,
    void* pObjectClassGuids,
    uint32_t GuidCount,
    void* pAcl,
    void* pfnArray,
    void* pGenericMapping,
    void* pInheritArray);
C, "ADVAPI32.dll");
// $ffi->GetInheritanceSourceA(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray);
// pObjectName : LPSTR
// ObjectType : SE_OBJECT_TYPE
// SecurityInfo : OBJECT_SECURITY_INFORMATION
// Container : BOOL
// pObjectClassGuids : GUID** optional
// GuidCount : DWORD
// pAcl : ACL*
// pfnArray : FN_OBJECT_MGR_FUNCTS* optional
// pGenericMapping : GENERIC_MAPPING*
// pInheritArray : INHERITED_FROMA* out
// 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
// WINAPI(stdcall): x64 では呼出規約が統一されるため問題なし。x86 では __stdcall 対応のラッパが必要な場合あり。
import com.sun.jna.*;
import com.sun.jna.ptr.*;
import com.sun.jna.win32.StdCallLibrary;
import com.sun.jna.win32.W32APIOptions;

public interface Advapi32 extends StdCallLibrary {
    Advapi32 INSTANCE = Native.load("advapi32", Advapi32.class, W32APIOptions.ASCII_OPTIONS);
    int GetInheritanceSourceA(
        String pObjectName,   // LPSTR
        int ObjectType,   // SE_OBJECT_TYPE
        int SecurityInfo,   // OBJECT_SECURITY_INFORMATION
        boolean Container,   // BOOL
        Pointer pObjectClassGuids,   // GUID** optional
        int GuidCount,   // DWORD
        Pointer pAcl,   // ACL*
        Pointer pfnArray,   // FN_OBJECT_MGR_FUNCTS* optional
        Pointer pGenericMapping,   // GENERIC_MAPPING*
        Pointer pInheritArray   // INHERITED_FROMA* out
    );
}
@[Link("advapi32")]
lib LibADVAPI32
  fun GetInheritanceSourceA = GetInheritanceSourceA(
    pObjectName : UInt8*,   # LPSTR
    ObjectType : Int32,   # SE_OBJECT_TYPE
    SecurityInfo : UInt32,   # OBJECT_SECURITY_INFORMATION
    Container : Int32,   # BOOL
    pObjectClassGuids : GUID**,   # GUID** optional
    GuidCount : UInt32,   # DWORD
    pAcl : ACL*,   # ACL*
    pfnArray : FN_OBJECT_MGR_FUNCTS*,   # FN_OBJECT_MGR_FUNCTS* optional
    pGenericMapping : GENERIC_MAPPING*,   # GENERIC_MAPPING*
    pInheritArray : INHERITED_FROMA*   # INHERITED_FROMA* out
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef GetInheritanceSourceANative = Uint32 Function(Pointer<Utf8>, Int32, Uint32, Int32, Pointer<Void>, Uint32, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
typedef GetInheritanceSourceADart = int Function(Pointer<Utf8>, int, int, int, Pointer<Void>, int, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
final GetInheritanceSourceA = DynamicLibrary.open('ADVAPI32.dll')
    .lookupFunction<GetInheritanceSourceANative, GetInheritanceSourceADart>('GetInheritanceSourceA');
// pObjectName : LPSTR -> Pointer<Utf8>
// ObjectType : SE_OBJECT_TYPE -> Int32
// SecurityInfo : OBJECT_SECURITY_INFORMATION -> Uint32
// Container : BOOL -> Int32
// pObjectClassGuids : GUID** optional -> Pointer<Void>
// GuidCount : DWORD -> Uint32
// pAcl : ACL* -> Pointer<Void>
// pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> Pointer<Void>
// pGenericMapping : GENERIC_MAPPING* -> Pointer<Void>
// pInheritArray : INHERITED_FROMA* out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function GetInheritanceSourceA(
  pObjectName: PAnsiChar;   // LPSTR
  ObjectType: Integer;   // SE_OBJECT_TYPE
  SecurityInfo: DWORD;   // OBJECT_SECURITY_INFORMATION
  Container: BOOL;   // BOOL
  pObjectClassGuids: PGUID;   // GUID** optional
  GuidCount: DWORD;   // DWORD
  pAcl: Pointer;   // ACL*
  pfnArray: Pointer;   // FN_OBJECT_MGR_FUNCTS* optional
  pGenericMapping: Pointer;   // GENERIC_MAPPING*
  pInheritArray: Pointer   // INHERITED_FROMA* out
): DWORD; stdcall;
  external 'ADVAPI32.dll' name 'GetInheritanceSourceA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "GetInheritanceSourceA"
  c_GetInheritanceSourceA :: CString -> Int32 -> Word32 -> CInt -> Ptr () -> Word32 -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> IO Word32
-- pObjectName : LPSTR -> CString
-- ObjectType : SE_OBJECT_TYPE -> Int32
-- SecurityInfo : OBJECT_SECURITY_INFORMATION -> Word32
-- Container : BOOL -> CInt
-- pObjectClassGuids : GUID** optional -> Ptr ()
-- GuidCount : DWORD -> Word32
-- pAcl : ACL* -> Ptr ()
-- pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> Ptr ()
-- pGenericMapping : GENERIC_MAPPING* -> Ptr ()
-- pInheritArray : INHERITED_FROMA* out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let getinheritancesourcea =
  foreign "GetInheritanceSourceA"
    (string @-> int32_t @-> uint32_t @-> int32_t @-> (ptr void) @-> uint32_t @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning uint32_t)
(* pObjectName : LPSTR -> string *)
(* ObjectType : SE_OBJECT_TYPE -> int32_t *)
(* SecurityInfo : OBJECT_SECURITY_INFORMATION -> uint32_t *)
(* Container : BOOL -> int32_t *)
(* pObjectClassGuids : GUID** optional -> (ptr void) *)
(* GuidCount : DWORD -> uint32_t *)
(* pAcl : ACL* -> (ptr void) *)
(* pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> (ptr void) *)
(* pGenericMapping : GENERIC_MAPPING* -> (ptr void) *)
(* pInheritArray : INHERITED_FROMA* out -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library advapi32 (t "ADVAPI32.dll"))
(cffi:use-foreign-library advapi32)

(cffi:defcfun ("GetInheritanceSourceA" get-inheritance-source-a :convention :stdcall) :uint32
  (p-object-name :string)   ; LPSTR
  (object-type :int32)   ; SE_OBJECT_TYPE
  (security-info :uint32)   ; OBJECT_SECURITY_INFORMATION
  (container :int32)   ; BOOL
  (p-object-class-guids :pointer)   ; GUID** optional
  (guid-count :uint32)   ; DWORD
  (p-acl :pointer)   ; ACL*
  (pfn-array :pointer)   ; FN_OBJECT_MGR_FUNCTS* optional
  (p-generic-mapping :pointer)   ; GENERIC_MAPPING*
  (p-inherit-array :pointer))   ; INHERITED_FROMA* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $GetInheritanceSourceA = Win32::API::More->new('ADVAPI32',
    'DWORD GetInheritanceSourceA(LPCSTR pObjectName, int ObjectType, DWORD SecurityInfo, BOOL Container, LPVOID pObjectClassGuids, DWORD GuidCount, LPVOID pAcl, LPVOID pfnArray, LPVOID pGenericMapping, LPVOID pInheritArray)');
# my $ret = $GetInheritanceSourceA->Call($pObjectName, $ObjectType, $SecurityInfo, $Container, $pObjectClassGuids, $GuidCount, $pAcl, $pfnArray, $pGenericMapping, $pInheritArray);
# pObjectName : LPSTR -> LPCSTR
# ObjectType : SE_OBJECT_TYPE -> int
# SecurityInfo : OBJECT_SECURITY_INFORMATION -> DWORD
# Container : BOOL -> BOOL
# pObjectClassGuids : GUID** optional -> LPVOID
# GuidCount : DWORD -> DWORD
# pAcl : ACL* -> LPVOID
# pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> LPVOID
# pGenericMapping : GENERIC_MAPPING* -> LPVOID
# pInheritArray : INHERITED_FROMA* out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

文字セット違い
公式の関連項目
使用する型