GetStorageDependencyInformation

// VirtDisk.dll
#include <windows.h>

WIN32_ERROR GetStorageDependencyInformation(
    HANDLE ObjectHandle,
    GET_STORAGE_DEPENDENCY_FLAG Flags,
    DWORD StorageDependencyInfoSize,
    STORAGE_DEPENDENCY_INFO* StorageDependencyInfo,
    DWORD* SizeUsed   // optional
);

<DllImport("VirtDisk.dll", ExactSpelling:=True)>
Public Shared Function GetStorageDependencyInformation(
    ObjectHandle As IntPtr,   ' HANDLE
    Flags As Integer,   ' GET_STORAGE_DEPENDENCY_FLAG
    StorageDependencyInfoSize As UInteger,   ' DWORD
    StorageDependencyInfo As IntPtr,   ' STORAGE_DEPENDENCY_INFO* in/out
    SizeUsed As IntPtr   ' DWORD* optional, in/out
) As UInteger
End Function

' ObjectHandle : HANDLE
' Flags : GET_STORAGE_DEPENDENCY_FLAG
' StorageDependencyInfoSize : DWORD
' StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out
' SizeUsed : DWORD* optional, in/out
Declare PtrSafe Function GetStorageDependencyInformation Lib "virtdisk" ( _
    ByVal ObjectHandle As LongPtr, _
    ByVal Flags As Long, _
    ByVal StorageDependencyInfoSize As Long, _
    ByVal StorageDependencyInfo As LongPtr, _
    ByVal SizeUsed As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

GetStorageDependencyInformation = ctypes.windll.virtdisk.GetStorageDependencyInformation
GetStorageDependencyInformation.restype = wintypes.DWORD
GetStorageDependencyInformation.argtypes = [
    wintypes.HANDLE,  # ObjectHandle : HANDLE
    ctypes.c_int,  # Flags : GET_STORAGE_DEPENDENCY_FLAG
    wintypes.DWORD,  # StorageDependencyInfoSize : DWORD
    ctypes.c_void_p,  # StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out
    ctypes.POINTER(wintypes.DWORD),  # SizeUsed : DWORD* optional, in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('VirtDisk.dll')
GetStorageDependencyInformation = Fiddle::Function.new(
  lib['GetStorageDependencyInformation'],
  [
    Fiddle::TYPE_VOIDP,  # ObjectHandle : HANDLE
    Fiddle::TYPE_INT,  # Flags : GET_STORAGE_DEPENDENCY_FLAG
    -Fiddle::TYPE_INT,  # StorageDependencyInfoSize : DWORD
    Fiddle::TYPE_VOIDP,  # StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out
    Fiddle::TYPE_VOIDP,  # SizeUsed : DWORD* optional, in/out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "virtdisk")]
extern "system" {
    fn GetStorageDependencyInformation(
        ObjectHandle: *mut core::ffi::c_void,  // HANDLE
        Flags: i32,  // GET_STORAGE_DEPENDENCY_FLAG
        StorageDependencyInfoSize: u32,  // DWORD
        StorageDependencyInfo: *mut STORAGE_DEPENDENCY_INFO,  // STORAGE_DEPENDENCY_INFO* in/out
        SizeUsed: *mut u32  // DWORD* optional, in/out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("VirtDisk.dll")]
public static extern uint GetStorageDependencyInformation(IntPtr ObjectHandle, int Flags, uint StorageDependencyInfoSize, IntPtr StorageDependencyInfo, IntPtr SizeUsed);
"@
$api = Add-Type -MemberDefinition $sig -Name 'VirtDisk_GetStorageDependencyInformation' -Namespace Win32 -PassThru
# $api::GetStorageDependencyInformation(ObjectHandle, Flags, StorageDependencyInfoSize, StorageDependencyInfo, SizeUsed)

#uselib "VirtDisk.dll"
#func global GetStorageDependencyInformation "GetStorageDependencyInformation" sptr, sptr, sptr, sptr, sptr
; GetStorageDependencyInformation ObjectHandle, Flags, StorageDependencyInfoSize, varptr(StorageDependencyInfo), varptr(SizeUsed)   ; 戻り値は stat
; ObjectHandle : HANDLE -> "sptr"
; Flags : GET_STORAGE_DEPENDENCY_FLAG -> "sptr"
; StorageDependencyInfoSize : DWORD -> "sptr"
; StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out -> "sptr"
; SizeUsed : DWORD* optional, in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "VirtDisk.dll"
#cfunc global GetStorageDependencyInformation "GetStorageDependencyInformation" sptr, int, int, var, var
; res = GetStorageDependencyInformation(ObjectHandle, Flags, StorageDependencyInfoSize, StorageDependencyInfo, SizeUsed)
; ObjectHandle : HANDLE -> "sptr"
; Flags : GET_STORAGE_DEPENDENCY_FLAG -> "int"
; StorageDependencyInfoSize : DWORD -> "int"
; StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out -> "var"
; SizeUsed : DWORD* optional, in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; WIN32_ERROR GetStorageDependencyInformation(HANDLE ObjectHandle, GET_STORAGE_DEPENDENCY_FLAG Flags, DWORD StorageDependencyInfoSize, STORAGE_DEPENDENCY_INFO* StorageDependencyInfo, DWORD* SizeUsed)
#uselib "VirtDisk.dll"
#cfunc global GetStorageDependencyInformation "GetStorageDependencyInformation" intptr, int, int, var, var
; res = GetStorageDependencyInformation(ObjectHandle, Flags, StorageDependencyInfoSize, StorageDependencyInfo, SizeUsed)
; ObjectHandle : HANDLE -> "intptr"
; Flags : GET_STORAGE_DEPENDENCY_FLAG -> "int"
; StorageDependencyInfoSize : DWORD -> "int"
; StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out -> "var"
; SizeUsed : DWORD* optional, in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	virtdisk = windows.NewLazySystemDLL("VirtDisk.dll")
	procGetStorageDependencyInformation = virtdisk.NewProc("GetStorageDependencyInformation")
)

// ObjectHandle (HANDLE), Flags (GET_STORAGE_DEPENDENCY_FLAG), StorageDependencyInfoSize (DWORD), StorageDependencyInfo (STORAGE_DEPENDENCY_INFO* in/out), SizeUsed (DWORD* optional, in/out)
r1, _, err := procGetStorageDependencyInformation.Call(
	uintptr(ObjectHandle),
	uintptr(Flags),
	uintptr(StorageDependencyInfoSize),
	uintptr(StorageDependencyInfo),
	uintptr(SizeUsed),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // WIN32_ERROR

function GetStorageDependencyInformation(
  ObjectHandle: THandle;   // HANDLE
  Flags: Integer;   // GET_STORAGE_DEPENDENCY_FLAG
  StorageDependencyInfoSize: DWORD;   // DWORD
  StorageDependencyInfo: Pointer;   // STORAGE_DEPENDENCY_INFO* in/out
  SizeUsed: Pointer   // DWORD* optional, in/out
): DWORD; stdcall;
  external 'VirtDisk.dll' name 'GetStorageDependencyInformation';

result := DllCall("VirtDisk\GetStorageDependencyInformation"
    , "Ptr", ObjectHandle   ; HANDLE
    , "Int", Flags   ; GET_STORAGE_DEPENDENCY_FLAG
    , "UInt", StorageDependencyInfoSize   ; DWORD
    , "Ptr", StorageDependencyInfo   ; STORAGE_DEPENDENCY_INFO* in/out
    , "Ptr", SizeUsed   ; DWORD* optional, in/out
    , "UInt")   ; return: WIN32_ERROR

●GetStorageDependencyInformation(ObjectHandle, Flags, StorageDependencyInfoSize, StorageDependencyInfo, SizeUsed) = DLL("VirtDisk.dll", "dword GetStorageDependencyInformation(void*, int, dword, void*, void*)")
# 呼び出し: GetStorageDependencyInformation(ObjectHandle, Flags, StorageDependencyInfoSize, StorageDependencyInfo, SizeUsed)
# ObjectHandle : HANDLE -> "void*"
# Flags : GET_STORAGE_DEPENDENCY_FLAG -> "int"
# StorageDependencyInfoSize : DWORD -> "dword"
# StorageDependencyInfo : STORAGE_DEPENDENCY_INFO* in/out -> "void*"
# SizeUsed : DWORD* optional, in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。