MQLocateBegin

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

HRESULT MQLocateBegin(
    LPCWSTR lpwcsContext,   // optional
    MQRESTRICTION* pRestriction,   // optional
    MQCOLUMNSET* pColumns,
    MQSORTSET* pSort,
    HANDLE* phEnum
);

<DllImport("mqrt.dll", ExactSpelling:=True)>
Public Shared Function MQLocateBegin(
    <MarshalAs(UnmanagedType.LPWStr)> lpwcsContext As String,   ' LPCWSTR optional
    pRestriction As IntPtr,   ' MQRESTRICTION* optional
    pColumns As IntPtr,   ' MQCOLUMNSET*
    pSort As IntPtr,   ' MQSORTSET*
    phEnum As IntPtr   ' HANDLE* out
) As Integer
End Function

' lpwcsContext : LPCWSTR optional
' pRestriction : MQRESTRICTION* optional
' pColumns : MQCOLUMNSET*
' pSort : MQSORTSET*
' phEnum : HANDLE* out
Declare PtrSafe Function MQLocateBegin Lib "mqrt" ( _
    ByVal lpwcsContext As LongPtr, _
    ByVal pRestriction As LongPtr, _
    ByVal pColumns As LongPtr, _
    ByVal pSort As LongPtr, _
    ByVal phEnum As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

MQLocateBegin = ctypes.windll.mqrt.MQLocateBegin
MQLocateBegin.restype = ctypes.c_int
MQLocateBegin.argtypes = [
    wintypes.LPCWSTR,  # lpwcsContext : LPCWSTR optional
    ctypes.c_void_p,  # pRestriction : MQRESTRICTION* optional
    ctypes.c_void_p,  # pColumns : MQCOLUMNSET*
    ctypes.c_void_p,  # pSort : MQSORTSET*
    ctypes.c_void_p,  # phEnum : HANDLE* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('mqrt.dll')
MQLocateBegin = Fiddle::Function.new(
  lib['MQLocateBegin'],
  [
    Fiddle::TYPE_VOIDP,  # lpwcsContext : LPCWSTR optional
    Fiddle::TYPE_VOIDP,  # pRestriction : MQRESTRICTION* optional
    Fiddle::TYPE_VOIDP,  # pColumns : MQCOLUMNSET*
    Fiddle::TYPE_VOIDP,  # pSort : MQSORTSET*
    Fiddle::TYPE_VOIDP,  # phEnum : HANDLE* out
  ],
  Fiddle::TYPE_INT)

#[link(name = "mqrt")]
extern "system" {
    fn MQLocateBegin(
        lpwcsContext: *const u16,  // LPCWSTR optional
        pRestriction: *mut MQRESTRICTION,  // MQRESTRICTION* optional
        pColumns: *mut MQCOLUMNSET,  // MQCOLUMNSET*
        pSort: *mut MQSORTSET,  // MQSORTSET*
        phEnum: *mut *mut core::ffi::c_void  // HANDLE* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("mqrt.dll")]
public static extern int MQLocateBegin([MarshalAs(UnmanagedType.LPWStr)] string lpwcsContext, IntPtr pRestriction, IntPtr pColumns, IntPtr pSort, IntPtr phEnum);
"@
$api = Add-Type -MemberDefinition $sig -Name 'mqrt_MQLocateBegin' -Namespace Win32 -PassThru
# $api::MQLocateBegin(lpwcsContext, pRestriction, pColumns, pSort, phEnum)

#uselib "mqrt.dll"
#func global MQLocateBegin "MQLocateBegin" sptr, sptr, sptr, sptr, sptr
; MQLocateBegin lpwcsContext, varptr(pRestriction), varptr(pColumns), varptr(pSort), phEnum   ; 戻り値は stat
; lpwcsContext : LPCWSTR optional -> "sptr"
; pRestriction : MQRESTRICTION* optional -> "sptr"
; pColumns : MQCOLUMNSET* -> "sptr"
; pSort : MQSORTSET* -> "sptr"
; phEnum : HANDLE* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "mqrt.dll"
#cfunc global MQLocateBegin "MQLocateBegin" wstr, var, var, var, sptr
; res = MQLocateBegin(lpwcsContext, pRestriction, pColumns, pSort, phEnum)
; lpwcsContext : LPCWSTR optional -> "wstr"
; pRestriction : MQRESTRICTION* optional -> "var"
; pColumns : MQCOLUMNSET* -> "var"
; pSort : MQSORTSET* -> "var"
; phEnum : HANDLE* out -> "sptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; HRESULT MQLocateBegin(LPCWSTR lpwcsContext, MQRESTRICTION* pRestriction, MQCOLUMNSET* pColumns, MQSORTSET* pSort, HANDLE* phEnum)
#uselib "mqrt.dll"
#cfunc global MQLocateBegin "MQLocateBegin" wstr, var, var, var, intptr
; res = MQLocateBegin(lpwcsContext, pRestriction, pColumns, pSort, phEnum)
; lpwcsContext : LPCWSTR optional -> "wstr"
; pRestriction : MQRESTRICTION* optional -> "var"
; pColumns : MQCOLUMNSET* -> "var"
; pSort : MQSORTSET* -> "var"
; phEnum : HANDLE* out -> "intptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	mqrt = windows.NewLazySystemDLL("mqrt.dll")
	procMQLocateBegin = mqrt.NewProc("MQLocateBegin")
)

// lpwcsContext (LPCWSTR optional), pRestriction (MQRESTRICTION* optional), pColumns (MQCOLUMNSET*), pSort (MQSORTSET*), phEnum (HANDLE* out)
r1, _, err := procMQLocateBegin.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpwcsContext))),
	uintptr(pRestriction),
	uintptr(pColumns),
	uintptr(pSort),
	uintptr(phEnum),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function MQLocateBegin(
  lpwcsContext: PWideChar;   // LPCWSTR optional
  pRestriction: Pointer;   // MQRESTRICTION* optional
  pColumns: Pointer;   // MQCOLUMNSET*
  pSort: Pointer;   // MQSORTSET*
  phEnum: Pointer   // HANDLE* out
): Integer; stdcall;
  external 'mqrt.dll' name 'MQLocateBegin';

result := DllCall("mqrt\MQLocateBegin"
    , "WStr", lpwcsContext   ; LPCWSTR optional
    , "Ptr", pRestriction   ; MQRESTRICTION* optional
    , "Ptr", pColumns   ; MQCOLUMNSET*
    , "Ptr", pSort   ; MQSORTSET*
    , "Ptr", phEnum   ; HANDLE* out
    , "Int")   ; return: HRESULT

●MQLocateBegin(lpwcsContext, pRestriction, pColumns, pSort, phEnum) = DLL("mqrt.dll", "int MQLocateBegin(char*, void*, void*, void*, void*)")
# 呼び出し: MQLocateBegin(lpwcsContext, pRestriction, pColumns, pSort, phEnum)
# lpwcsContext : LPCWSTR optional -> "char*"
# pRestriction : MQRESTRICTION* optional -> "void*"
# pColumns : MQCOLUMNSET* -> "void*"
# pSort : MQSORTSET* -> "void*"
# phEnum : HANDLE* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。