XLATEOBJ_iXlate

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

DWORD XLATEOBJ_iXlate(
    XLATEOBJ* pxlo,
    DWORD iColor
);

<DllImport("GDI32.dll", ExactSpelling:=True)>
Public Shared Function XLATEOBJ_iXlate(
    pxlo As IntPtr,   ' XLATEOBJ* in/out
    iColor As UInteger   ' DWORD
) As UInteger
End Function

' pxlo : XLATEOBJ* in/out
' iColor : DWORD
Declare PtrSafe Function XLATEOBJ_iXlate Lib "gdi32" ( _
    ByVal pxlo As LongPtr, _
    ByVal iColor As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

XLATEOBJ_iXlate = ctypes.windll.gdi32.XLATEOBJ_iXlate
XLATEOBJ_iXlate.restype = wintypes.DWORD
XLATEOBJ_iXlate.argtypes = [
    ctypes.c_void_p,  # pxlo : XLATEOBJ* in/out
    wintypes.DWORD,  # iColor : DWORD
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('GDI32.dll')
XLATEOBJ_iXlate = Fiddle::Function.new(
  lib['XLATEOBJ_iXlate'],
  [
    Fiddle::TYPE_VOIDP,  # pxlo : XLATEOBJ* in/out
    -Fiddle::TYPE_INT,  # iColor : DWORD
  ],
  -Fiddle::TYPE_INT)

#[link(name = "gdi32")]
extern "system" {
    fn XLATEOBJ_iXlate(
        pxlo: *mut XLATEOBJ,  // XLATEOBJ* in/out
        iColor: u32  // DWORD
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("GDI32.dll")]
public static extern uint XLATEOBJ_iXlate(IntPtr pxlo, uint iColor);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GDI32_XLATEOBJ_iXlate' -Namespace Win32 -PassThru
# $api::XLATEOBJ_iXlate(pxlo, iColor)

#uselib "GDI32.dll"
#func global XLATEOBJ_iXlate "XLATEOBJ_iXlate" sptr, sptr
; XLATEOBJ_iXlate varptr(pxlo), iColor   ; 戻り値は stat
; pxlo : XLATEOBJ* in/out -> "sptr"
; iColor : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "GDI32.dll"
#cfunc global XLATEOBJ_iXlate "XLATEOBJ_iXlate" var, int
; res = XLATEOBJ_iXlate(pxlo, iColor)
; pxlo : XLATEOBJ* in/out -> "var"
; iColor : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; DWORD XLATEOBJ_iXlate(XLATEOBJ* pxlo, DWORD iColor)
#uselib "GDI32.dll"
#cfunc global XLATEOBJ_iXlate "XLATEOBJ_iXlate" var, int
; res = XLATEOBJ_iXlate(pxlo, iColor)
; pxlo : XLATEOBJ* in/out -> "var"
; iColor : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	gdi32 = windows.NewLazySystemDLL("GDI32.dll")
	procXLATEOBJ_iXlate = gdi32.NewProc("XLATEOBJ_iXlate")
)

// pxlo (XLATEOBJ* in/out), iColor (DWORD)
r1, _, err := procXLATEOBJ_iXlate.Call(
	uintptr(pxlo),
	uintptr(iColor),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function XLATEOBJ_iXlate(
  pxlo: Pointer;   // XLATEOBJ* in/out
  iColor: DWORD   // DWORD
): DWORD; stdcall;
  external 'GDI32.dll' name 'XLATEOBJ_iXlate';

result := DllCall("GDI32\XLATEOBJ_iXlate"
    , "Ptr", pxlo   ; XLATEOBJ* in/out
    , "UInt", iColor   ; DWORD
    , "UInt")   ; return: DWORD

●XLATEOBJ_iXlate(pxlo, iColor) = DLL("GDI32.dll", "dword XLATEOBJ_iXlate(void*, dword)")
# 呼び出し: XLATEOBJ_iXlate(pxlo, iColor)
# pxlo : XLATEOBJ* in/out -> "void*"
# iColor : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。