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

GetInheritanceSourceW

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

シグネチャ

// ADVAPI32.dll  (Unicode / -W)
#include <windows.h>

WIN32_ERROR GetInheritanceSourceW(
    LPWSTR 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_FROMW* pInheritArray
);

パラメーター

名前方向説明
pObjectNameLPWSTRin検査対象の 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_FROMW*outGetInheritanceSource 関数が継承情報を格納する INHERITED_FROM 構造体の配列へのポインターです。呼び出し元は、ACL 内の各 ACE に対応するエントリを格納できる十分なメモリを割り当てる必要があります。

戻り値の型: WIN32_ERROR

公式ドキュメント

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

戻り値

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

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

解説(Remarks)

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

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

メモ

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

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

各言語での呼び出し定義

// ADVAPI32.dll  (Unicode / -W)
#include <windows.h>

WIN32_ERROR GetInheritanceSourceW(
    LPWSTR 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_FROMW* pInheritArray
);
[DllImport("ADVAPI32.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
static extern uint GetInheritanceSourceW(
    [MarshalAs(UnmanagedType.LPWStr)] string pObjectName,   // LPWSTR
    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_FROMW* out
);
<DllImport("ADVAPI32.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function GetInheritanceSourceW(
    <MarshalAs(UnmanagedType.LPWStr)> pObjectName As String,   ' LPWSTR
    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_FROMW* out
) As UInteger
End Function
' pObjectName : LPWSTR
' 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_FROMW* out
Declare PtrSafe Function GetInheritanceSourceW Lib "advapi32" ( _
    ByVal pObjectName As LongPtr, _
    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
' Unicode(W): 文字列は ByVal As LongPtr とし StrPtr(unicodeStr) を渡す
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

GetInheritanceSourceW = ctypes.windll.advapi32.GetInheritanceSourceW
GetInheritanceSourceW.restype = wintypes.DWORD
GetInheritanceSourceW.argtypes = [
    wintypes.LPCWSTR,  # pObjectName : LPWSTR
    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_FROMW* out
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ADVAPI32.dll')
GetInheritanceSourceW = Fiddle::Function.new(
  lib['GetInheritanceSourceW'],
  [
    Fiddle::TYPE_VOIDP,  # pObjectName : LPWSTR
    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_FROMW* out
  ],
  -Fiddle::TYPE_INT)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"
#[link(name = "advapi32")]
extern "system" {
    fn GetInheritanceSourceW(
        pObjectName: *mut u16,  // LPWSTR
        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_FROMW  // INHERITED_FROMW* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("ADVAPI32.dll", CharSet = CharSet.Unicode)]
public static extern uint GetInheritanceSourceW([MarshalAs(UnmanagedType.LPWStr)] 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_GetInheritanceSourceW' -Namespace Win32 -PassThru
# $api::GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
#uselib "ADVAPI32.dll"
#func global GetInheritanceSourceW "GetInheritanceSourceW" wptr, wptr, wptr, wptr, wptr, wptr, wptr, wptr, wptr, wptr
; GetInheritanceSourceW pObjectName, ObjectType, SecurityInfo, Container, varptr(pObjectClassGuids), GuidCount, varptr(pAcl), varptr(pfnArray), varptr(pGenericMapping), varptr(pInheritArray)   ; 戻り値は stat
; pObjectName : LPWSTR -> "wptr"
; ObjectType : SE_OBJECT_TYPE -> "wptr"
; SecurityInfo : OBJECT_SECURITY_INFORMATION -> "wptr"
; Container : BOOL -> "wptr"
; pObjectClassGuids : GUID** optional -> "wptr"
; GuidCount : DWORD -> "wptr"
; pAcl : ACL* -> "wptr"
; pfnArray : FN_OBJECT_MGR_FUNCTS* optional -> "wptr"
; pGenericMapping : GENERIC_MAPPING* -> "wptr"
; pInheritArray : INHERITED_FROMW* out -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "ADVAPI32.dll"
#cfunc global GetInheritanceSourceW "GetInheritanceSourceW" wstr, int, int, int, var, int, var, var, var, var
; res = GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
; pObjectName : LPWSTR -> "wstr"
; 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_FROMW* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; WIN32_ERROR GetInheritanceSourceW(LPWSTR 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_FROMW* pInheritArray)
#uselib "ADVAPI32.dll"
#cfunc global GetInheritanceSourceW "GetInheritanceSourceW" wstr, int, int, int, var, int, var, var, var, var
; res = GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
; pObjectName : LPWSTR -> "wstr"
; 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_FROMW* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	advapi32 = windows.NewLazySystemDLL("ADVAPI32.dll")
	procGetInheritanceSourceW = advapi32.NewProc("GetInheritanceSourceW")
)

// pObjectName (LPWSTR), 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_FROMW* out)
r1, _, err := procGetInheritanceSourceW.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(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 GetInheritanceSourceW(
  pObjectName: PWideChar;   // LPWSTR
  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_FROMW* out
): DWORD; stdcall;
  external 'ADVAPI32.dll' name 'GetInheritanceSourceW';
result := DllCall("ADVAPI32\GetInheritanceSourceW"
    , "WStr", pObjectName   ; LPWSTR
    , "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_FROMW* out
    , "UInt")   ; return: WIN32_ERROR
●GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray) = DLL("ADVAPI32.dll", "dword GetInheritanceSourceW(char*, int, dword, bool, void*, dword, void*, void*, void*, void*)")
# 呼び出し: GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
# pObjectName : LPWSTR -> "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_FROMW* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
# ※-W(Unicode)関数。なでしこ1はANSIのため -A 版の利用を推奨。
const std = @import("std");

extern "advapi32" fn GetInheritanceSourceW(
    pObjectName: [*c]const u16, // LPWSTR
    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_FROMW // INHERITED_FROMW* out
) callconv(std.os.windows.WINAPI) u32;
// Unicode(-W): UTF-16LE のヌル終端バッファ([*c]const u16)を渡す。
proc GetInheritanceSourceW(
    pObjectName: WideCString,  # LPWSTR
    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_FROMW  # INHERITED_FROMW* out
): uint32 {.importc: "GetInheritanceSourceW", stdcall, dynlib: "ADVAPI32.dll".}
# Unicode(-W): WideCString は newWideCString("...") で生成。
pragma(lib, "advapi32");
extern(Windows)
uint GetInheritanceSourceW(
    const(wchar)* pObjectName,   // LPWSTR
    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_FROMW* pInheritArray   // INHERITED_FROMW* out
);
ccall((:GetInheritanceSourceW, "ADVAPI32.dll"), stdcall, UInt32,
      (Cwstring, Int32, UInt32, Int32, Ptr{GUID}, UInt32, Ptr{ACL}, Ptr{FN_OBJECT_MGR_FUNCTS}, Ptr{GENERIC_MAPPING}, Ptr{INHERITED_FROMW}),
      pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
# pObjectName : LPWSTR -> Cwstring
# 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_FROMW* out -> Ptr{INHERITED_FROMW}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
# Unicode(-W): Cwstring には transcode(UInt16, "...") 等で UTF-16 を渡す。
local ffi = require("ffi")
ffi.cdef[[
uint32_t GetInheritanceSourceW(
    const uint16_t* 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.GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
-- pObjectName : LPWSTR
-- 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_FROMW* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
-- Unicode(-W): uint16_t* には UTF-16LE のバッファ(ffi.new("uint16_t[?]", ...))を渡す。
const koffi = require('koffi');
const lib = koffi.load('ADVAPI32.dll');
const GetInheritanceSourceW = lib.func('__stdcall', 'GetInheritanceSourceW', 'uint32_t', ['str16', 'int32_t', 'uint32_t', 'int32_t', 'void *', 'uint32_t', 'void *', 'void *', 'void *', 'void *']);
// GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
// pObjectName : LPWSTR -> 'str16'
// 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_FROMW* out -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("ADVAPI32.dll", {
  GetInheritanceSourceW: { parameters: ["buffer", "i32", "u32", "i32", "pointer", "u32", "pointer", "pointer", "pointer", "pointer"], result: "u32" },
});
// lib.symbols.GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray)
// pObjectName : LPWSTR -> "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_FROMW* out -> "pointer"
// 文字列は "buffer"。Unicode(-W) は new TextEncoder() ではなく UTF-16LE のバイト列(末尾に \x00\x00)を Uint8Array で渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
uint32_t GetInheritanceSourceW(
    const uint16_t* 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->GetInheritanceSourceW(pObjectName, ObjectType, SecurityInfo, Container, pObjectClassGuids, GuidCount, pAcl, pfnArray, pGenericMapping, pInheritArray);
// pObjectName : LPWSTR
// 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_FROMW* 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.UNICODE_OPTIONS);
    int GetInheritanceSourceW(
        WString pObjectName,   // LPWSTR
        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_FROMW* out
    );
}
// Unicode(-W): WString(入力)/char[](出力)で UTF-16 をマーシャリング。
@[Link("advapi32")]
lib LibADVAPI32
  fun GetInheritanceSourceW = GetInheritanceSourceW(
    pObjectName : UInt16*,   # LPWSTR
    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_FROMW*   # INHERITED_FROMW* out
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef GetInheritanceSourceWNative = Uint32 Function(Pointer<Utf16>, Int32, Uint32, Int32, Pointer<Void>, Uint32, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
typedef GetInheritanceSourceWDart = int Function(Pointer<Utf16>, int, int, int, Pointer<Void>, int, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
final GetInheritanceSourceW = DynamicLibrary.open('ADVAPI32.dll')
    .lookupFunction<GetInheritanceSourceWNative, GetInheritanceSourceWDart>('GetInheritanceSourceW');
// pObjectName : LPWSTR -> Pointer<Utf16>
// 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_FROMW* out -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function GetInheritanceSourceW(
  pObjectName: PWideChar;   // LPWSTR
  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_FROMW* out
): DWORD; stdcall;
  external 'ADVAPI32.dll' name 'GetInheritanceSourceW';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "GetInheritanceSourceW"
  c_GetInheritanceSourceW :: CWString -> Int32 -> Word32 -> CInt -> Ptr () -> Word32 -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> IO Word32
-- pObjectName : LPWSTR -> CWString
-- 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_FROMW* out -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let getinheritancesourcew =
  foreign "GetInheritanceSourceW"
    ((ptr uint16_t) @-> int32_t @-> uint32_t @-> int32_t @-> (ptr void) @-> uint32_t @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning uint32_t)
(* pObjectName : LPWSTR -> (ptr uint16_t) *)
(* 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_FROMW* 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 ("GetInheritanceSourceW" get-inheritance-source-w :convention :stdcall) :uint32
  (p-object-name (:string :encoding :utf-16le))   ; LPWSTR
  (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_FROMW* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $GetInheritanceSourceW = Win32::API::More->new('ADVAPI32',
    'DWORD GetInheritanceSourceW(LPCWSTR pObjectName, int ObjectType, DWORD SecurityInfo, BOOL Container, LPVOID pObjectClassGuids, DWORD GuidCount, LPVOID pAcl, LPVOID pfnArray, LPVOID pGenericMapping, LPVOID pInheritArray)');
# my $ret = $GetInheritanceSourceW->Call($pObjectName, $ObjectType, $SecurityInfo, $Container, $pObjectClassGuids, $GuidCount, $pAcl, $pfnArray, $pGenericMapping, $pInheritArray);
# pObjectName : LPWSTR -> LPCWSTR
# 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_FROMW* out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# Unicode(-W): LPCWSTR/LPWSTR は Win32::API が UTF-16 変換を行う。

関連項目

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