DeltaNormalizeProvidedB

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

BOOL DeltaNormalizeProvidedB(
    LONGLONG FileTypeSet,
    LONGLONG NormalizeFlags,
    DELTA_INPUT NormalizeOptions,
    void* lpSource,
    UINT_PTR uSourceSize
);

<DllImport("msdelta.dll", ExactSpelling:=True)>
Public Shared Function DeltaNormalizeProvidedB(
    FileTypeSet As Long,   ' LONGLONG
    NormalizeFlags As Long,   ' LONGLONG
    NormalizeOptions As DELTA_INPUT,   ' DELTA_INPUT
    lpSource As IntPtr,   ' void* in/out
    uSourceSize As UIntPtr   ' UINT_PTR
) As Boolean
End Function

' FileTypeSet : LONGLONG
' NormalizeFlags : LONGLONG
' NormalizeOptions : DELTA_INPUT
' lpSource : void* in/out
' uSourceSize : UINT_PTR
Declare PtrSafe Function DeltaNormalizeProvidedB Lib "msdelta" ( _
    ByVal FileTypeSet As LongLong, _
    ByVal NormalizeFlags As LongLong, _
    ByVal NormalizeOptions As LongPtr, _
    ByVal lpSource As LongPtr, _
    ByVal uSourceSize As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

DeltaNormalizeProvidedB = ctypes.windll.msdelta.DeltaNormalizeProvidedB
DeltaNormalizeProvidedB.restype = wintypes.BOOL
DeltaNormalizeProvidedB.argtypes = [
    ctypes.c_longlong,  # FileTypeSet : LONGLONG
    ctypes.c_longlong,  # NormalizeFlags : LONGLONG
    DELTA_INPUT,  # NormalizeOptions : DELTA_INPUT
    ctypes.POINTER(None),  # lpSource : void* in/out
    ctypes.c_size_t,  # uSourceSize : UINT_PTR
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('msdelta.dll')
DeltaNormalizeProvidedB = Fiddle::Function.new(
  lib['DeltaNormalizeProvidedB'],
  [
    Fiddle::TYPE_LONG_LONG,  # FileTypeSet : LONGLONG
    Fiddle::TYPE_LONG_LONG,  # NormalizeFlags : LONGLONG
    Fiddle::TYPE_VOIDP,  # NormalizeOptions : DELTA_INPUT
    Fiddle::TYPE_VOIDP,  # lpSource : void* in/out
    Fiddle::TYPE_UINTPTR_T,  # uSourceSize : UINT_PTR
  ],
  Fiddle::TYPE_INT)

#[link(name = "msdelta")]
extern "system" {
    fn DeltaNormalizeProvidedB(
        FileTypeSet: i64,  // LONGLONG
        NormalizeFlags: i64,  // LONGLONG
        NormalizeOptions: DELTA_INPUT,  // DELTA_INPUT
        lpSource: *mut (),  // void* in/out
        uSourceSize: usize  // UINT_PTR
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("msdelta.dll")]
public static extern bool DeltaNormalizeProvidedB(long FileTypeSet, long NormalizeFlags, DELTA_INPUT NormalizeOptions, IntPtr lpSource, UIntPtr uSourceSize);
"@
$api = Add-Type -MemberDefinition $sig -Name 'msdelta_DeltaNormalizeProvidedB' -Namespace Win32 -PassThru
# $api::DeltaNormalizeProvidedB(FileTypeSet, NormalizeFlags, NormalizeOptions, lpSource, uSourceSize)

#uselib "msdelta.dll"
#func global DeltaNormalizeProvidedB "DeltaNormalizeProvidedB" sptr, sptr, sptr, sptr, sptr
; DeltaNormalizeProvidedB FileTypeSet, NormalizeFlags, NormalizeOptions, lpSource, uSourceSize   ; 戻り値は stat
; FileTypeSet : LONGLONG -> "sptr"
; NormalizeFlags : LONGLONG -> "sptr"
; NormalizeOptions : DELTA_INPUT -> "sptr"
; lpSource : void* in/out -> "sptr"
; uSourceSize : UINT_PTR -> "sptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※HSP3.7は int64 引数(64bit値渡し)に非対応です。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "msdelta.dll"
#cfunc global DeltaNormalizeProvidedB "DeltaNormalizeProvidedB" int64, int64, int, sptr, sptr
; res = DeltaNormalizeProvidedB(FileTypeSet, NormalizeFlags, NormalizeOptions, lpSource, uSourceSize)
; FileTypeSet : LONGLONG -> "int64"
; NormalizeFlags : LONGLONG -> "int64"
; NormalizeOptions : DELTA_INPUT -> "int"
; lpSource : void* in/out -> "sptr"
; uSourceSize : UINT_PTR -> "sptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※int64 引数の DLL 値渡しは x64 ランタイム(hsp3_64)のみ対応(x86 は未対応)。

; BOOL DeltaNormalizeProvidedB(LONGLONG FileTypeSet, LONGLONG NormalizeFlags, DELTA_INPUT NormalizeOptions, void* lpSource, UINT_PTR uSourceSize)
#uselib "msdelta.dll"
#cfunc global DeltaNormalizeProvidedB "DeltaNormalizeProvidedB" int64, int64, int, intptr, intptr
; res = DeltaNormalizeProvidedB(FileTypeSet, NormalizeFlags, NormalizeOptions, lpSource, uSourceSize)
; FileTypeSet : LONGLONG -> "int64"
; NormalizeFlags : LONGLONG -> "int64"
; NormalizeOptions : DELTA_INPUT -> "int"
; lpSource : void* in/out -> "intptr"
; uSourceSize : UINT_PTR -> "intptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。

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

var (
	msdelta = windows.NewLazySystemDLL("msdelta.dll")
	procDeltaNormalizeProvidedB = msdelta.NewProc("DeltaNormalizeProvidedB")
)

// FileTypeSet (LONGLONG), NormalizeFlags (LONGLONG), NormalizeOptions (DELTA_INPUT), lpSource (void* in/out), uSourceSize (UINT_PTR)
r1, _, err := procDeltaNormalizeProvidedB.Call(
	uintptr(FileTypeSet),
	uintptr(NormalizeFlags),
	uintptr(NormalizeOptions),
	uintptr(lpSource),
	uintptr(uSourceSize),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL

function DeltaNormalizeProvidedB(
  FileTypeSet: Int64;   // LONGLONG
  NormalizeFlags: Int64;   // LONGLONG
  NormalizeOptions: DELTA_INPUT;   // DELTA_INPUT
  lpSource: Pointer;   // void* in/out
  uSourceSize: NativeUInt   // UINT_PTR
): BOOL; stdcall;
  external 'msdelta.dll' name 'DeltaNormalizeProvidedB';

result := DllCall("msdelta\DeltaNormalizeProvidedB"
    , "Int64", FileTypeSet   ; LONGLONG
    , "Int64", NormalizeFlags   ; LONGLONG
    , "Ptr", NormalizeOptions   ; DELTA_INPUT
    , "Ptr", lpSource   ; void* in/out
    , "UPtr", uSourceSize   ; UINT_PTR
    , "Int")   ; return: BOOL

●DeltaNormalizeProvidedB(FileTypeSet, NormalizeFlags, NormalizeOptions, lpSource, uSourceSize) = DLL("msdelta.dll", "bool DeltaNormalizeProvidedB(int64, int64, void*, void*, int)")
# 呼び出し: DeltaNormalizeProvidedB(FileTypeSet, NormalizeFlags, NormalizeOptions, lpSource, uSourceSize)
# FileTypeSet : LONGLONG -> "int64"
# NormalizeFlags : LONGLONG -> "int64"
# NormalizeOptions : DELTA_INPUT -> "void*"
# lpSource : void* in/out -> "void*"
# uSourceSize : UINT_PTR -> "int"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。