OleUIAddVerbMenuW

// oledlg.dll  (Unicode / -W)
#include <windows.h>

BOOL OleUIAddVerbMenuW(
    IOleObject* lpOleObj,   // optional
    LPCWSTR lpszShortType,   // optional
    HMENU hMenu,
    DWORD uPos,
    DWORD uIDVerbMin,
    DWORD uIDVerbMax,
    BOOL bAddConvert,
    DWORD idConvert,
    HMENU* lphMenu
);

<DllImport("oledlg.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function OleUIAddVerbMenuW(
    lpOleObj As IntPtr,   ' IOleObject* optional
    <MarshalAs(UnmanagedType.LPWStr)> lpszShortType As String,   ' LPCWSTR optional
    hMenu As IntPtr,   ' HMENU
    uPos As UInteger,   ' DWORD
    uIDVerbMin As UInteger,   ' DWORD
    uIDVerbMax As UInteger,   ' DWORD
    bAddConvert As Boolean,   ' BOOL
    idConvert As UInteger,   ' DWORD
    lphMenu As IntPtr   ' HMENU* out
) As Boolean
End Function

' lpOleObj : IOleObject* optional
' lpszShortType : LPCWSTR optional
' hMenu : HMENU
' uPos : DWORD
' uIDVerbMin : DWORD
' uIDVerbMax : DWORD
' bAddConvert : BOOL
' idConvert : DWORD
' lphMenu : HMENU* out
Declare PtrSafe Function OleUIAddVerbMenuW Lib "oledlg" ( _
    ByVal lpOleObj As LongPtr, _
    ByVal lpszShortType As LongPtr, _
    ByVal hMenu As LongPtr, _
    ByVal uPos As Long, _
    ByVal uIDVerbMin As Long, _
    ByVal uIDVerbMax As Long, _
    ByVal bAddConvert As Long, _
    ByVal idConvert As Long, _
    ByVal lphMenu As LongPtr) As Long
' Unicode(W): 文字列は ByVal As LongPtr とし StrPtr(unicodeStr) を渡す
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

OleUIAddVerbMenuW = ctypes.windll.oledlg.OleUIAddVerbMenuW
OleUIAddVerbMenuW.restype = wintypes.BOOL
OleUIAddVerbMenuW.argtypes = [
    ctypes.c_void_p,  # lpOleObj : IOleObject* optional
    wintypes.LPCWSTR,  # lpszShortType : LPCWSTR optional
    wintypes.HANDLE,  # hMenu : HMENU
    wintypes.DWORD,  # uPos : DWORD
    wintypes.DWORD,  # uIDVerbMin : DWORD
    wintypes.DWORD,  # uIDVerbMax : DWORD
    wintypes.BOOL,  # bAddConvert : BOOL
    wintypes.DWORD,  # idConvert : DWORD
    ctypes.c_void_p,  # lphMenu : HMENU* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('oledlg.dll')
OleUIAddVerbMenuW = Fiddle::Function.new(
  lib['OleUIAddVerbMenuW'],
  [
    Fiddle::TYPE_VOIDP,  # lpOleObj : IOleObject* optional
    Fiddle::TYPE_VOIDP,  # lpszShortType : LPCWSTR optional
    Fiddle::TYPE_VOIDP,  # hMenu : HMENU
    -Fiddle::TYPE_INT,  # uPos : DWORD
    -Fiddle::TYPE_INT,  # uIDVerbMin : DWORD
    -Fiddle::TYPE_INT,  # uIDVerbMax : DWORD
    Fiddle::TYPE_INT,  # bAddConvert : BOOL
    -Fiddle::TYPE_INT,  # idConvert : DWORD
    Fiddle::TYPE_VOIDP,  # lphMenu : HMENU* out
  ],
  Fiddle::TYPE_INT)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"

#[link(name = "oledlg")]
extern "system" {
    fn OleUIAddVerbMenuW(
        lpOleObj: *mut core::ffi::c_void,  // IOleObject* optional
        lpszShortType: *const u16,  // LPCWSTR optional
        hMenu: *mut core::ffi::c_void,  // HMENU
        uPos: u32,  // DWORD
        uIDVerbMin: u32,  // DWORD
        uIDVerbMax: u32,  // DWORD
        bAddConvert: i32,  // BOOL
        idConvert: u32,  // DWORD
        lphMenu: *mut *mut core::ffi::c_void  // HMENU* out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("oledlg.dll", CharSet = CharSet.Unicode)]
public static extern bool OleUIAddVerbMenuW(IntPtr lpOleObj, [MarshalAs(UnmanagedType.LPWStr)] string lpszShortType, IntPtr hMenu, uint uPos, uint uIDVerbMin, uint uIDVerbMax, bool bAddConvert, uint idConvert, IntPtr lphMenu);
"@
$api = Add-Type -MemberDefinition $sig -Name 'oledlg_OleUIAddVerbMenuW' -Namespace Win32 -PassThru
# $api::OleUIAddVerbMenuW(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)

#uselib "oledlg.dll"
#func global OleUIAddVerbMenuW "OleUIAddVerbMenuW" wptr, wptr, wptr, wptr, wptr, wptr, wptr, wptr, wptr
; OleUIAddVerbMenuW lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu   ; 戻り値は stat
; lpOleObj : IOleObject* optional -> "wptr"
; lpszShortType : LPCWSTR optional -> "wptr"
; hMenu : HMENU -> "wptr"
; uPos : DWORD -> "wptr"
; uIDVerbMin : DWORD -> "wptr"
; uIDVerbMax : DWORD -> "wptr"
; bAddConvert : BOOL -> "wptr"
; idConvert : DWORD -> "wptr"
; lphMenu : HMENU* out -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "oledlg.dll"
#cfunc global OleUIAddVerbMenuW "OleUIAddVerbMenuW" sptr, wstr, sptr, int, int, int, int, int, sptr
; res = OleUIAddVerbMenuW(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)
; lpOleObj : IOleObject* optional -> "sptr"
; lpszShortType : LPCWSTR optional -> "wstr"
; hMenu : HMENU -> "sptr"
; uPos : DWORD -> "int"
; uIDVerbMin : DWORD -> "int"
; uIDVerbMax : DWORD -> "int"
; bAddConvert : BOOL -> "int"
; idConvert : DWORD -> "int"
; lphMenu : HMENU* out -> "sptr"

; BOOL OleUIAddVerbMenuW(IOleObject* lpOleObj, LPCWSTR lpszShortType, HMENU hMenu, DWORD uPos, DWORD uIDVerbMin, DWORD uIDVerbMax, BOOL bAddConvert, DWORD idConvert, HMENU* lphMenu)
#uselib "oledlg.dll"
#cfunc global OleUIAddVerbMenuW "OleUIAddVerbMenuW" intptr, wstr, intptr, int, int, int, int, int, intptr
; res = OleUIAddVerbMenuW(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)
; lpOleObj : IOleObject* optional -> "intptr"
; lpszShortType : LPCWSTR optional -> "wstr"
; hMenu : HMENU -> "intptr"
; uPos : DWORD -> "int"
; uIDVerbMin : DWORD -> "int"
; uIDVerbMax : DWORD -> "int"
; bAddConvert : BOOL -> "int"
; idConvert : DWORD -> "int"
; lphMenu : HMENU* out -> "intptr"

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

var (
	oledlg = windows.NewLazySystemDLL("oledlg.dll")
	procOleUIAddVerbMenuW = oledlg.NewProc("OleUIAddVerbMenuW")
)

// lpOleObj (IOleObject* optional), lpszShortType (LPCWSTR optional), hMenu (HMENU), uPos (DWORD), uIDVerbMin (DWORD), uIDVerbMax (DWORD), bAddConvert (BOOL), idConvert (DWORD), lphMenu (HMENU* out)
r1, _, err := procOleUIAddVerbMenuW.Call(
	uintptr(lpOleObj),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpszShortType))),
	uintptr(hMenu),
	uintptr(uPos),
	uintptr(uIDVerbMin),
	uintptr(uIDVerbMax),
	uintptr(bAddConvert),
	uintptr(idConvert),
	uintptr(lphMenu),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL

function OleUIAddVerbMenuW(
  lpOleObj: Pointer;   // IOleObject* optional
  lpszShortType: PWideChar;   // LPCWSTR optional
  hMenu: THandle;   // HMENU
  uPos: DWORD;   // DWORD
  uIDVerbMin: DWORD;   // DWORD
  uIDVerbMax: DWORD;   // DWORD
  bAddConvert: BOOL;   // BOOL
  idConvert: DWORD;   // DWORD
  lphMenu: Pointer   // HMENU* out
): BOOL; stdcall;
  external 'oledlg.dll' name 'OleUIAddVerbMenuW';

result := DllCall("oledlg\OleUIAddVerbMenuW"
    , "Ptr", lpOleObj   ; IOleObject* optional
    , "WStr", lpszShortType   ; LPCWSTR optional
    , "Ptr", hMenu   ; HMENU
    , "UInt", uPos   ; DWORD
    , "UInt", uIDVerbMin   ; DWORD
    , "UInt", uIDVerbMax   ; DWORD
    , "Int", bAddConvert   ; BOOL
    , "UInt", idConvert   ; DWORD
    , "Ptr", lphMenu   ; HMENU* out
    , "Int")   ; return: BOOL

●OleUIAddVerbMenuW(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu) = DLL("oledlg.dll", "bool OleUIAddVerbMenuW(void*, char*, void*, dword, dword, dword, bool, dword, void*)")
# 呼び出し: OleUIAddVerbMenuW(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)
# lpOleObj : IOleObject* optional -> "void*"
# lpszShortType : LPCWSTR optional -> "char*"
# hMenu : HMENU -> "void*"
# uPos : DWORD -> "dword"
# uIDVerbMin : DWORD -> "dword"
# uIDVerbMax : DWORD -> "dword"
# bAddConvert : BOOL -> "bool"
# idConvert : DWORD -> "dword"
# lphMenu : HMENU* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
# ※-W(Unicode)関数。なでしこ1はANSIのため -A 版の利用を推奨。