OleUIAddVerbMenuA

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

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

<DllImport("oledlg.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function OleUIAddVerbMenuA(
    lpOleObj As IntPtr,   ' IOleObject* optional
    <MarshalAs(UnmanagedType.LPStr)> lpszShortType As String,   ' LPCSTR 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 : LPCSTR optional
' hMenu : HMENU
' uPos : DWORD
' uIDVerbMin : DWORD
' uIDVerbMax : DWORD
' bAddConvert : BOOL
' idConvert : DWORD
' lphMenu : HMENU* out
Declare PtrSafe Function OleUIAddVerbMenuA Lib "oledlg" ( _
    ByVal lpOleObj As LongPtr, _
    ByVal lpszShortType As String, _
    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
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

OleUIAddVerbMenuA = ctypes.windll.oledlg.OleUIAddVerbMenuA
OleUIAddVerbMenuA.restype = wintypes.BOOL
OleUIAddVerbMenuA.argtypes = [
    ctypes.c_void_p,  # lpOleObj : IOleObject* optional
    wintypes.LPCSTR,  # lpszShortType : LPCSTR 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')
OleUIAddVerbMenuA = Fiddle::Function.new(
  lib['OleUIAddVerbMenuA'],
  [
    Fiddle::TYPE_VOIDP,  # lpOleObj : IOleObject* optional
    Fiddle::TYPE_VOIDP,  # lpszShortType : LPCSTR 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)

#[link(name = "oledlg")]
extern "system" {
    fn OleUIAddVerbMenuA(
        lpOleObj: *mut core::ffi::c_void,  // IOleObject* optional
        lpszShortType: *const u8,  // LPCSTR 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.Ansi)]
public static extern bool OleUIAddVerbMenuA(IntPtr lpOleObj, [MarshalAs(UnmanagedType.LPStr)] string lpszShortType, IntPtr hMenu, uint uPos, uint uIDVerbMin, uint uIDVerbMax, bool bAddConvert, uint idConvert, IntPtr lphMenu);
"@
$api = Add-Type -MemberDefinition $sig -Name 'oledlg_OleUIAddVerbMenuA' -Namespace Win32 -PassThru
# $api::OleUIAddVerbMenuA(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)

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

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

; BOOL OleUIAddVerbMenuA(IOleObject* lpOleObj, LPCSTR lpszShortType, HMENU hMenu, DWORD uPos, DWORD uIDVerbMin, DWORD uIDVerbMax, BOOL bAddConvert, DWORD idConvert, HMENU* lphMenu)
#uselib "oledlg.dll"
#cfunc global OleUIAddVerbMenuA "OleUIAddVerbMenuA" intptr, str, intptr, int, int, int, int, int, intptr
; res = OleUIAddVerbMenuA(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)
; lpOleObj : IOleObject* optional -> "intptr"
; lpszShortType : LPCSTR optional -> "str"
; 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")
	procOleUIAddVerbMenuA = oledlg.NewProc("OleUIAddVerbMenuA")
)

// lpOleObj (IOleObject* optional), lpszShortType (LPCSTR optional), hMenu (HMENU), uPos (DWORD), uIDVerbMin (DWORD), uIDVerbMax (DWORD), bAddConvert (BOOL), idConvert (DWORD), lphMenu (HMENU* out)
r1, _, err := procOleUIAddVerbMenuA.Call(
	uintptr(lpOleObj),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(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 OleUIAddVerbMenuA(
  lpOleObj: Pointer;   // IOleObject* optional
  lpszShortType: PAnsiChar;   // LPCSTR 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 'OleUIAddVerbMenuA';

result := DllCall("oledlg\OleUIAddVerbMenuA"
    , "Ptr", lpOleObj   ; IOleObject* optional
    , "AStr", lpszShortType   ; LPCSTR 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

●OleUIAddVerbMenuA(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu) = DLL("oledlg.dll", "bool OleUIAddVerbMenuA(void*, char*, void*, dword, dword, dword, bool, dword, void*)")
# 呼び出し: OleUIAddVerbMenuA(lpOleObj, lpszShortType, hMenu, uPos, uIDVerbMin, uIDVerbMax, bAddConvert, idConvert, lphMenu)
# lpOleObj : IOleObject* optional -> "void*"
# lpszShortType : LPCSTR 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)。