ApplyPatchToFileByBuffers

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

BOOL ApplyPatchToFileByBuffers(
    BYTE* PatchFileMapped,
    DWORD PatchFileSize,
    BYTE* OldFileMapped,   // optional
    DWORD OldFileSize,
    BYTE** NewFileBuffer,
    DWORD NewFileBufferSize,
    DWORD* NewFileActualSize,   // optional
    FILETIME* NewFileTime,   // optional
    DWORD ApplyOptionFlags,
    PPATCH_PROGRESS_CALLBACK ProgressCallback,   // optional
    void* CallbackContext   // optional
);

<DllImport("mspatcha.dll", ExactSpelling:=True)>
Public Shared Function ApplyPatchToFileByBuffers(
    PatchFileMapped As IntPtr,   ' BYTE*
    PatchFileSize As UInteger,   ' DWORD
    OldFileMapped As IntPtr,   ' BYTE* optional
    OldFileSize As UInteger,   ' DWORD
    NewFileBuffer As IntPtr,   ' BYTE** in/out
    NewFileBufferSize As UInteger,   ' DWORD
    NewFileActualSize As IntPtr,   ' DWORD* optional, out
    NewFileTime As IntPtr,   ' FILETIME* optional, out
    ApplyOptionFlags As UInteger,   ' DWORD
    ProgressCallback As IntPtr,   ' PPATCH_PROGRESS_CALLBACK optional
    CallbackContext As IntPtr   ' void* optional
) As Boolean
End Function

' PatchFileMapped : BYTE*
' PatchFileSize : DWORD
' OldFileMapped : BYTE* optional
' OldFileSize : DWORD
' NewFileBuffer : BYTE** in/out
' NewFileBufferSize : DWORD
' NewFileActualSize : DWORD* optional, out
' NewFileTime : FILETIME* optional, out
' ApplyOptionFlags : DWORD
' ProgressCallback : PPATCH_PROGRESS_CALLBACK optional
' CallbackContext : void* optional
Declare PtrSafe Function ApplyPatchToFileByBuffers Lib "mspatcha" ( _
    ByVal PatchFileMapped As LongPtr, _
    ByVal PatchFileSize As Long, _
    ByVal OldFileMapped As LongPtr, _
    ByVal OldFileSize As Long, _
    ByVal NewFileBuffer As LongPtr, _
    ByVal NewFileBufferSize As Long, _
    ByVal NewFileActualSize As LongPtr, _
    ByVal NewFileTime As LongPtr, _
    ByVal ApplyOptionFlags As Long, _
    ByVal ProgressCallback As LongPtr, _
    ByVal CallbackContext As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

ApplyPatchToFileByBuffers = ctypes.windll.mspatcha.ApplyPatchToFileByBuffers
ApplyPatchToFileByBuffers.restype = wintypes.BOOL
ApplyPatchToFileByBuffers.argtypes = [
    ctypes.POINTER(ctypes.c_ubyte),  # PatchFileMapped : BYTE*
    wintypes.DWORD,  # PatchFileSize : DWORD
    ctypes.POINTER(ctypes.c_ubyte),  # OldFileMapped : BYTE* optional
    wintypes.DWORD,  # OldFileSize : DWORD
    ctypes.c_void_p,  # NewFileBuffer : BYTE** in/out
    wintypes.DWORD,  # NewFileBufferSize : DWORD
    ctypes.POINTER(wintypes.DWORD),  # NewFileActualSize : DWORD* optional, out
    ctypes.c_void_p,  # NewFileTime : FILETIME* optional, out
    wintypes.DWORD,  # ApplyOptionFlags : DWORD
    ctypes.c_void_p,  # ProgressCallback : PPATCH_PROGRESS_CALLBACK optional
    ctypes.POINTER(None),  # CallbackContext : void* optional
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('mspatcha.dll')
ApplyPatchToFileByBuffers = Fiddle::Function.new(
  lib['ApplyPatchToFileByBuffers'],
  [
    Fiddle::TYPE_VOIDP,  # PatchFileMapped : BYTE*
    -Fiddle::TYPE_INT,  # PatchFileSize : DWORD
    Fiddle::TYPE_VOIDP,  # OldFileMapped : BYTE* optional
    -Fiddle::TYPE_INT,  # OldFileSize : DWORD
    Fiddle::TYPE_VOIDP,  # NewFileBuffer : BYTE** in/out
    -Fiddle::TYPE_INT,  # NewFileBufferSize : DWORD
    Fiddle::TYPE_VOIDP,  # NewFileActualSize : DWORD* optional, out
    Fiddle::TYPE_VOIDP,  # NewFileTime : FILETIME* optional, out
    -Fiddle::TYPE_INT,  # ApplyOptionFlags : DWORD
    Fiddle::TYPE_VOIDP,  # ProgressCallback : PPATCH_PROGRESS_CALLBACK optional
    Fiddle::TYPE_VOIDP,  # CallbackContext : void* optional
  ],
  Fiddle::TYPE_INT)

#[link(name = "mspatcha")]
extern "system" {
    fn ApplyPatchToFileByBuffers(
        PatchFileMapped: *mut u8,  // BYTE*
        PatchFileSize: u32,  // DWORD
        OldFileMapped: *mut u8,  // BYTE* optional
        OldFileSize: u32,  // DWORD
        NewFileBuffer: *mut *mut u8,  // BYTE** in/out
        NewFileBufferSize: u32,  // DWORD
        NewFileActualSize: *mut u32,  // DWORD* optional, out
        NewFileTime: *mut FILETIME,  // FILETIME* optional, out
        ApplyOptionFlags: u32,  // DWORD
        ProgressCallback: *const core::ffi::c_void,  // PPATCH_PROGRESS_CALLBACK optional
        CallbackContext: *mut ()  // void* optional
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("mspatcha.dll")]
public static extern bool ApplyPatchToFileByBuffers(IntPtr PatchFileMapped, uint PatchFileSize, IntPtr OldFileMapped, uint OldFileSize, IntPtr NewFileBuffer, uint NewFileBufferSize, IntPtr NewFileActualSize, IntPtr NewFileTime, uint ApplyOptionFlags, IntPtr ProgressCallback, IntPtr CallbackContext);
"@
$api = Add-Type -MemberDefinition $sig -Name 'mspatcha_ApplyPatchToFileByBuffers' -Namespace Win32 -PassThru
# $api::ApplyPatchToFileByBuffers(PatchFileMapped, PatchFileSize, OldFileMapped, OldFileSize, NewFileBuffer, NewFileBufferSize, NewFileActualSize, NewFileTime, ApplyOptionFlags, ProgressCallback, CallbackContext)

#uselib "mspatcha.dll"
#func global ApplyPatchToFileByBuffers "ApplyPatchToFileByBuffers" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; ApplyPatchToFileByBuffers varptr(PatchFileMapped), PatchFileSize, varptr(OldFileMapped), OldFileSize, varptr(NewFileBuffer), NewFileBufferSize, varptr(NewFileActualSize), varptr(NewFileTime), ApplyOptionFlags, ProgressCallback, CallbackContext   ; 戻り値は stat
; PatchFileMapped : BYTE* -> "sptr"
; PatchFileSize : DWORD -> "sptr"
; OldFileMapped : BYTE* optional -> "sptr"
; OldFileSize : DWORD -> "sptr"
; NewFileBuffer : BYTE** in/out -> "sptr"
; NewFileBufferSize : DWORD -> "sptr"
; NewFileActualSize : DWORD* optional, out -> "sptr"
; NewFileTime : FILETIME* optional, out -> "sptr"
; ApplyOptionFlags : DWORD -> "sptr"
; ProgressCallback : PPATCH_PROGRESS_CALLBACK optional -> "sptr"
; CallbackContext : void* optional -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "mspatcha.dll"
#cfunc global ApplyPatchToFileByBuffers "ApplyPatchToFileByBuffers" var, int, var, int, var, int, var, var, int, sptr, sptr
; res = ApplyPatchToFileByBuffers(PatchFileMapped, PatchFileSize, OldFileMapped, OldFileSize, NewFileBuffer, NewFileBufferSize, NewFileActualSize, NewFileTime, ApplyOptionFlags, ProgressCallback, CallbackContext)
; PatchFileMapped : BYTE* -> "var"
; PatchFileSize : DWORD -> "int"
; OldFileMapped : BYTE* optional -> "var"
; OldFileSize : DWORD -> "int"
; NewFileBuffer : BYTE** in/out -> "var"
; NewFileBufferSize : DWORD -> "int"
; NewFileActualSize : DWORD* optional, out -> "var"
; NewFileTime : FILETIME* optional, out -> "var"
; ApplyOptionFlags : DWORD -> "int"
; ProgressCallback : PPATCH_PROGRESS_CALLBACK optional -> "sptr"
; CallbackContext : void* optional -> "sptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; BOOL ApplyPatchToFileByBuffers(BYTE* PatchFileMapped, DWORD PatchFileSize, BYTE* OldFileMapped, DWORD OldFileSize, BYTE** NewFileBuffer, DWORD NewFileBufferSize, DWORD* NewFileActualSize, FILETIME* NewFileTime, DWORD ApplyOptionFlags, PPATCH_PROGRESS_CALLBACK ProgressCallback, void* CallbackContext)
#uselib "mspatcha.dll"
#cfunc global ApplyPatchToFileByBuffers "ApplyPatchToFileByBuffers" var, int, var, int, var, int, var, var, int, intptr, intptr
; res = ApplyPatchToFileByBuffers(PatchFileMapped, PatchFileSize, OldFileMapped, OldFileSize, NewFileBuffer, NewFileBufferSize, NewFileActualSize, NewFileTime, ApplyOptionFlags, ProgressCallback, CallbackContext)
; PatchFileMapped : BYTE* -> "var"
; PatchFileSize : DWORD -> "int"
; OldFileMapped : BYTE* optional -> "var"
; OldFileSize : DWORD -> "int"
; NewFileBuffer : BYTE** in/out -> "var"
; NewFileBufferSize : DWORD -> "int"
; NewFileActualSize : DWORD* optional, out -> "var"
; NewFileTime : FILETIME* optional, out -> "var"
; ApplyOptionFlags : DWORD -> "int"
; ProgressCallback : PPATCH_PROGRESS_CALLBACK optional -> "intptr"
; CallbackContext : void* optional -> "intptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	mspatcha = windows.NewLazySystemDLL("mspatcha.dll")
	procApplyPatchToFileByBuffers = mspatcha.NewProc("ApplyPatchToFileByBuffers")
)

// PatchFileMapped (BYTE*), PatchFileSize (DWORD), OldFileMapped (BYTE* optional), OldFileSize (DWORD), NewFileBuffer (BYTE** in/out), NewFileBufferSize (DWORD), NewFileActualSize (DWORD* optional, out), NewFileTime (FILETIME* optional, out), ApplyOptionFlags (DWORD), ProgressCallback (PPATCH_PROGRESS_CALLBACK optional), CallbackContext (void* optional)
r1, _, err := procApplyPatchToFileByBuffers.Call(
	uintptr(PatchFileMapped),
	uintptr(PatchFileSize),
	uintptr(OldFileMapped),
	uintptr(OldFileSize),
	uintptr(NewFileBuffer),
	uintptr(NewFileBufferSize),
	uintptr(NewFileActualSize),
	uintptr(NewFileTime),
	uintptr(ApplyOptionFlags),
	uintptr(ProgressCallback),
	uintptr(CallbackContext),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL

function ApplyPatchToFileByBuffers(
  PatchFileMapped: Pointer;   // BYTE*
  PatchFileSize: DWORD;   // DWORD
  OldFileMapped: Pointer;   // BYTE* optional
  OldFileSize: DWORD;   // DWORD
  NewFileBuffer: Pointer;   // BYTE** in/out
  NewFileBufferSize: DWORD;   // DWORD
  NewFileActualSize: Pointer;   // DWORD* optional, out
  NewFileTime: Pointer;   // FILETIME* optional, out
  ApplyOptionFlags: DWORD;   // DWORD
  ProgressCallback: Pointer;   // PPATCH_PROGRESS_CALLBACK optional
  CallbackContext: Pointer   // void* optional
): BOOL; stdcall;
  external 'mspatcha.dll' name 'ApplyPatchToFileByBuffers';

result := DllCall("mspatcha\ApplyPatchToFileByBuffers"
    , "Ptr", PatchFileMapped   ; BYTE*
    , "UInt", PatchFileSize   ; DWORD
    , "Ptr", OldFileMapped   ; BYTE* optional
    , "UInt", OldFileSize   ; DWORD
    , "Ptr", NewFileBuffer   ; BYTE** in/out
    , "UInt", NewFileBufferSize   ; DWORD
    , "Ptr", NewFileActualSize   ; DWORD* optional, out
    , "Ptr", NewFileTime   ; FILETIME* optional, out
    , "UInt", ApplyOptionFlags   ; DWORD
    , "Ptr", ProgressCallback   ; PPATCH_PROGRESS_CALLBACK optional
    , "Ptr", CallbackContext   ; void* optional
    , "Int")   ; return: BOOL

●ApplyPatchToFileByBuffers(PatchFileMapped, PatchFileSize, OldFileMapped, OldFileSize, NewFileBuffer, NewFileBufferSize, NewFileActualSize, NewFileTime, ApplyOptionFlags, ProgressCallback, CallbackContext) = DLL("mspatcha.dll", "bool ApplyPatchToFileByBuffers(void*, dword, void*, dword, void*, dword, void*, void*, dword, void*, void*)")
# 呼び出し: ApplyPatchToFileByBuffers(PatchFileMapped, PatchFileSize, OldFileMapped, OldFileSize, NewFileBuffer, NewFileBufferSize, NewFileActualSize, NewFileTime, ApplyOptionFlags, ProgressCallback, CallbackContext)
# PatchFileMapped : BYTE* -> "void*"
# PatchFileSize : DWORD -> "dword"
# OldFileMapped : BYTE* optional -> "void*"
# OldFileSize : DWORD -> "dword"
# NewFileBuffer : BYTE** in/out -> "void*"
# NewFileBufferSize : DWORD -> "dword"
# NewFileActualSize : DWORD* optional, out -> "void*"
# NewFileTime : FILETIME* optional, out -> "void*"
# ApplyOptionFlags : DWORD -> "dword"
# ProgressCallback : PPATCH_PROGRESS_CALLBACK optional -> "void*"
# CallbackContext : void* optional -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。