QueryChangesVirtualDisk

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

WIN32_ERROR QueryChangesVirtualDisk(
    HANDLE VirtualDiskHandle,
    LPCWSTR ChangeTrackingId,
    ULONGLONG ByteOffset,
    ULONGLONG ByteLength,
    QUERY_CHANGES_VIRTUAL_DISK_FLAG Flags,
    QUERY_CHANGES_VIRTUAL_DISK_RANGE* Ranges,
    DWORD* RangeCount,
    ULONGLONG* ProcessedLength
);

<DllImport("VirtDisk.dll", ExactSpelling:=True)>
Public Shared Function QueryChangesVirtualDisk(
    VirtualDiskHandle As IntPtr,   ' HANDLE
    <MarshalAs(UnmanagedType.LPWStr)> ChangeTrackingId As String,   ' LPCWSTR
    ByteOffset As ULong,   ' ULONGLONG
    ByteLength As ULong,   ' ULONGLONG
    Flags As Integer,   ' QUERY_CHANGES_VIRTUAL_DISK_FLAG
    Ranges As IntPtr,   ' QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
    ByRef RangeCount As UInteger,   ' DWORD* in/out
    <Out> ByRef ProcessedLength As ULong   ' ULONGLONG* out
) As UInteger
End Function

' VirtualDiskHandle : HANDLE
' ChangeTrackingId : LPCWSTR
' ByteOffset : ULONGLONG
' ByteLength : ULONGLONG
' Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG
' Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
' RangeCount : DWORD* in/out
' ProcessedLength : ULONGLONG* out
Declare PtrSafe Function QueryChangesVirtualDisk Lib "virtdisk" ( _
    ByVal VirtualDiskHandle As LongPtr, _
    ByVal ChangeTrackingId As LongPtr, _
    ByVal ByteOffset As LongLong, _
    ByVal ByteLength As LongLong, _
    ByVal Flags As Long, _
    ByVal Ranges As LongPtr, _
    ByRef RangeCount As Long, _
    ByRef ProcessedLength As LongLong) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

QueryChangesVirtualDisk = ctypes.windll.virtdisk.QueryChangesVirtualDisk
QueryChangesVirtualDisk.restype = wintypes.DWORD
QueryChangesVirtualDisk.argtypes = [
    wintypes.HANDLE,  # VirtualDiskHandle : HANDLE
    wintypes.LPCWSTR,  # ChangeTrackingId : LPCWSTR
    ctypes.c_ulonglong,  # ByteOffset : ULONGLONG
    ctypes.c_ulonglong,  # ByteLength : ULONGLONG
    ctypes.c_int,  # Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG
    ctypes.c_void_p,  # Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
    ctypes.POINTER(wintypes.DWORD),  # RangeCount : DWORD* in/out
    ctypes.POINTER(ctypes.c_ulonglong),  # ProcessedLength : ULONGLONG* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('VirtDisk.dll')
QueryChangesVirtualDisk = Fiddle::Function.new(
  lib['QueryChangesVirtualDisk'],
  [
    Fiddle::TYPE_VOIDP,  # VirtualDiskHandle : HANDLE
    Fiddle::TYPE_VOIDP,  # ChangeTrackingId : LPCWSTR
    -Fiddle::TYPE_LONG_LONG,  # ByteOffset : ULONGLONG
    -Fiddle::TYPE_LONG_LONG,  # ByteLength : ULONGLONG
    Fiddle::TYPE_INT,  # Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG
    Fiddle::TYPE_VOIDP,  # Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
    Fiddle::TYPE_VOIDP,  # RangeCount : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # ProcessedLength : ULONGLONG* out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "virtdisk")]
extern "system" {
    fn QueryChangesVirtualDisk(
        VirtualDiskHandle: *mut core::ffi::c_void,  // HANDLE
        ChangeTrackingId: *const u16,  // LPCWSTR
        ByteOffset: u64,  // ULONGLONG
        ByteLength: u64,  // ULONGLONG
        Flags: i32,  // QUERY_CHANGES_VIRTUAL_DISK_FLAG
        Ranges: *mut QUERY_CHANGES_VIRTUAL_DISK_RANGE,  // QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
        RangeCount: *mut u32,  // DWORD* in/out
        ProcessedLength: *mut u64  // ULONGLONG* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("VirtDisk.dll")]
public static extern uint QueryChangesVirtualDisk(IntPtr VirtualDiskHandle, [MarshalAs(UnmanagedType.LPWStr)] string ChangeTrackingId, ulong ByteOffset, ulong ByteLength, int Flags, IntPtr Ranges, ref uint RangeCount, out ulong ProcessedLength);
"@
$api = Add-Type -MemberDefinition $sig -Name 'VirtDisk_QueryChangesVirtualDisk' -Namespace Win32 -PassThru
# $api::QueryChangesVirtualDisk(VirtualDiskHandle, ChangeTrackingId, ByteOffset, ByteLength, Flags, Ranges, RangeCount, ProcessedLength)

#uselib "VirtDisk.dll"
#func global QueryChangesVirtualDisk "QueryChangesVirtualDisk" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; QueryChangesVirtualDisk VirtualDiskHandle, ChangeTrackingId, ByteOffset, ByteLength, Flags, varptr(Ranges), varptr(RangeCount), varptr(ProcessedLength)   ; 戻り値は stat
; VirtualDiskHandle : HANDLE -> "sptr"
; ChangeTrackingId : LPCWSTR -> "sptr"
; ByteOffset : ULONGLONG -> "sptr"
; ByteLength : ULONGLONG -> "sptr"
; Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG -> "sptr"
; Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out -> "sptr"
; RangeCount : DWORD* in/out -> "sptr"
; ProcessedLength : ULONGLONG* out -> "sptr"
; ※HSP3.7は int64 引数(64bit値渡し)に非対応です。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "VirtDisk.dll"
#cfunc global QueryChangesVirtualDisk "QueryChangesVirtualDisk" sptr, wstr, int64, int64, int, var, var, var
; res = QueryChangesVirtualDisk(VirtualDiskHandle, ChangeTrackingId, ByteOffset, ByteLength, Flags, Ranges, RangeCount, ProcessedLength)
; VirtualDiskHandle : HANDLE -> "sptr"
; ChangeTrackingId : LPCWSTR -> "wstr"
; ByteOffset : ULONGLONG -> "int64"
; ByteLength : ULONGLONG -> "int64"
; Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG -> "int"
; Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out -> "var"
; RangeCount : DWORD* in/out -> "var"
; ProcessedLength : ULONGLONG* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
; ※int64 引数の DLL 値渡しは x64 ランタイム(hsp3_64)のみ対応(x86 は未対応)。

; WIN32_ERROR QueryChangesVirtualDisk(HANDLE VirtualDiskHandle, LPCWSTR ChangeTrackingId, ULONGLONG ByteOffset, ULONGLONG ByteLength, QUERY_CHANGES_VIRTUAL_DISK_FLAG Flags, QUERY_CHANGES_VIRTUAL_DISK_RANGE* Ranges, DWORD* RangeCount, ULONGLONG* ProcessedLength)
#uselib "VirtDisk.dll"
#cfunc global QueryChangesVirtualDisk "QueryChangesVirtualDisk" intptr, wstr, int64, int64, int, var, var, var
; res = QueryChangesVirtualDisk(VirtualDiskHandle, ChangeTrackingId, ByteOffset, ByteLength, Flags, Ranges, RangeCount, ProcessedLength)
; VirtualDiskHandle : HANDLE -> "intptr"
; ChangeTrackingId : LPCWSTR -> "wstr"
; ByteOffset : ULONGLONG -> "int64"
; ByteLength : ULONGLONG -> "int64"
; Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG -> "int"
; Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out -> "var"
; RangeCount : DWORD* in/out -> "var"
; ProcessedLength : ULONGLONG* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	virtdisk = windows.NewLazySystemDLL("VirtDisk.dll")
	procQueryChangesVirtualDisk = virtdisk.NewProc("QueryChangesVirtualDisk")
)

// VirtualDiskHandle (HANDLE), ChangeTrackingId (LPCWSTR), ByteOffset (ULONGLONG), ByteLength (ULONGLONG), Flags (QUERY_CHANGES_VIRTUAL_DISK_FLAG), Ranges (QUERY_CHANGES_VIRTUAL_DISK_RANGE* out), RangeCount (DWORD* in/out), ProcessedLength (ULONGLONG* out)
r1, _, err := procQueryChangesVirtualDisk.Call(
	uintptr(VirtualDiskHandle),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(ChangeTrackingId))),
	uintptr(ByteOffset),
	uintptr(ByteLength),
	uintptr(Flags),
	uintptr(Ranges),
	uintptr(RangeCount),
	uintptr(ProcessedLength),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // WIN32_ERROR

function QueryChangesVirtualDisk(
  VirtualDiskHandle: THandle;   // HANDLE
  ChangeTrackingId: PWideChar;   // LPCWSTR
  ByteOffset: UInt64;   // ULONGLONG
  ByteLength: UInt64;   // ULONGLONG
  Flags: Integer;   // QUERY_CHANGES_VIRTUAL_DISK_FLAG
  Ranges: Pointer;   // QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
  RangeCount: Pointer;   // DWORD* in/out
  ProcessedLength: Pointer   // ULONGLONG* out
): DWORD; stdcall;
  external 'VirtDisk.dll' name 'QueryChangesVirtualDisk';

result := DllCall("VirtDisk\QueryChangesVirtualDisk"
    , "Ptr", VirtualDiskHandle   ; HANDLE
    , "WStr", ChangeTrackingId   ; LPCWSTR
    , "Int64", ByteOffset   ; ULONGLONG
    , "Int64", ByteLength   ; ULONGLONG
    , "Int", Flags   ; QUERY_CHANGES_VIRTUAL_DISK_FLAG
    , "Ptr", Ranges   ; QUERY_CHANGES_VIRTUAL_DISK_RANGE* out
    , "Ptr", RangeCount   ; DWORD* in/out
    , "Ptr", ProcessedLength   ; ULONGLONG* out
    , "UInt")   ; return: WIN32_ERROR

●QueryChangesVirtualDisk(VirtualDiskHandle, ChangeTrackingId, ByteOffset, ByteLength, Flags, Ranges, RangeCount, ProcessedLength) = DLL("VirtDisk.dll", "dword QueryChangesVirtualDisk(void*, char*, qword, qword, int, void*, void*, void*)")
# 呼び出し: QueryChangesVirtualDisk(VirtualDiskHandle, ChangeTrackingId, ByteOffset, ByteLength, Flags, Ranges, RangeCount, ProcessedLength)
# VirtualDiskHandle : HANDLE -> "void*"
# ChangeTrackingId : LPCWSTR -> "char*"
# ByteOffset : ULONGLONG -> "qword"
# ByteLength : ULONGLONG -> "qword"
# Flags : QUERY_CHANGES_VIRTUAL_DISK_FLAG -> "int"
# Ranges : QUERY_CHANGES_VIRTUAL_DISK_RANGE* out -> "void*"
# RangeCount : DWORD* in/out -> "void*"
# ProcessedLength : ULONGLONG* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。