VerQueryValueA

// VERSION.dll  (ANSI / -A)
#include <windows.h>

BOOL VerQueryValueA(
    const void* pBlock,
    LPCSTR lpSubBlock,
    void** lplpBuffer,
    DWORD* puLen
);

<DllImport("VERSION.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function VerQueryValueA(
    pBlock As IntPtr,   ' void*
    <MarshalAs(UnmanagedType.LPStr)> lpSubBlock As String,   ' LPCSTR
    lplpBuffer As IntPtr,   ' void** out
    <Out> ByRef puLen As UInteger   ' DWORD* out
) As Boolean
End Function

' pBlock : void*
' lpSubBlock : LPCSTR
' lplpBuffer : void** out
' puLen : DWORD* out
Declare PtrSafe Function VerQueryValueA Lib "version" ( _
    ByVal pBlock As LongPtr, _
    ByVal lpSubBlock As String, _
    ByVal lplpBuffer As LongPtr, _
    ByRef puLen As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

VerQueryValueA = ctypes.windll.version.VerQueryValueA
VerQueryValueA.restype = wintypes.BOOL
VerQueryValueA.argtypes = [
    ctypes.POINTER(None),  # pBlock : void*
    wintypes.LPCSTR,  # lpSubBlock : LPCSTR
    ctypes.c_void_p,  # lplpBuffer : void** out
    ctypes.POINTER(wintypes.DWORD),  # puLen : DWORD* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('VERSION.dll')
VerQueryValueA = Fiddle::Function.new(
  lib['VerQueryValueA'],
  [
    Fiddle::TYPE_VOIDP,  # pBlock : void*
    Fiddle::TYPE_VOIDP,  # lpSubBlock : LPCSTR
    Fiddle::TYPE_VOIDP,  # lplpBuffer : void** out
    Fiddle::TYPE_VOIDP,  # puLen : DWORD* out
  ],
  Fiddle::TYPE_INT)

#[link(name = "version")]
extern "system" {
    fn VerQueryValueA(
        pBlock: *const (),  // void*
        lpSubBlock: *const u8,  // LPCSTR
        lplpBuffer: *mut *mut (),  // void** out
        puLen: *mut u32  // DWORD* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("VERSION.dll", CharSet = CharSet.Ansi)]
public static extern bool VerQueryValueA(IntPtr pBlock, [MarshalAs(UnmanagedType.LPStr)] string lpSubBlock, IntPtr lplpBuffer, out uint puLen);
"@
$api = Add-Type -MemberDefinition $sig -Name 'VERSION_VerQueryValueA' -Namespace Win32 -PassThru
# $api::VerQueryValueA(pBlock, lpSubBlock, lplpBuffer, puLen)

#uselib "VERSION.dll"
#func global VerQueryValueA "VerQueryValueA" sptr, sptr, sptr, sptr
; VerQueryValueA pBlock, lpSubBlock, lplpBuffer, varptr(puLen)   ; 戻り値は stat
; pBlock : void* -> "sptr"
; lpSubBlock : LPCSTR -> "sptr"
; lplpBuffer : void** out -> "sptr"
; puLen : DWORD* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "VERSION.dll"
#cfunc global VerQueryValueA "VerQueryValueA" sptr, str, sptr, var
; res = VerQueryValueA(pBlock, lpSubBlock, lplpBuffer, puLen)
; pBlock : void* -> "sptr"
; lpSubBlock : LPCSTR -> "str"
; lplpBuffer : void** out -> "sptr"
; puLen : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; BOOL VerQueryValueA(void* pBlock, LPCSTR lpSubBlock, void** lplpBuffer, DWORD* puLen)
#uselib "VERSION.dll"
#cfunc global VerQueryValueA "VerQueryValueA" intptr, str, intptr, var
; res = VerQueryValueA(pBlock, lpSubBlock, lplpBuffer, puLen)
; pBlock : void* -> "intptr"
; lpSubBlock : LPCSTR -> "str"
; lplpBuffer : void** out -> "intptr"
; puLen : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	version = windows.NewLazySystemDLL("VERSION.dll")
	procVerQueryValueA = version.NewProc("VerQueryValueA")
)

// pBlock (void*), lpSubBlock (LPCSTR), lplpBuffer (void** out), puLen (DWORD* out)
r1, _, err := procVerQueryValueA.Call(
	uintptr(pBlock),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(lpSubBlock))),
	uintptr(lplpBuffer),
	uintptr(puLen),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL

function VerQueryValueA(
  pBlock: Pointer;   // void*
  lpSubBlock: PAnsiChar;   // LPCSTR
  lplpBuffer: Pointer;   // void** out
  puLen: Pointer   // DWORD* out
): BOOL; stdcall;
  external 'VERSION.dll' name 'VerQueryValueA';

result := DllCall("VERSION\VerQueryValueA"
    , "Ptr", pBlock   ; void*
    , "AStr", lpSubBlock   ; LPCSTR
    , "Ptr", lplpBuffer   ; void** out
    , "Ptr", puLen   ; DWORD* out
    , "Int")   ; return: BOOL

●VerQueryValueA(pBlock, lpSubBlock, lplpBuffer, puLen) = DLL("VERSION.dll", "bool VerQueryValueA(void*, char*, void*, void*)")
# 呼び出し: VerQueryValueA(pBlock, lpSubBlock, lplpBuffer, puLen)
# pBlock : void* -> "void*"
# lpSubBlock : LPCSTR -> "char*"
# lplpBuffer : void** out -> "void*"
# puLen : DWORD* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。