EngFindResource

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

void* EngFindResource(
    HANDLE h,
    INT iName,
    INT iType,
    DWORD* pulSize
);

<DllImport("GDI32.dll", ExactSpelling:=True)>
Public Shared Function EngFindResource(
    h As IntPtr,   ' HANDLE
    iName As Integer,   ' INT
    iType As Integer,   ' INT
    <Out> ByRef pulSize As UInteger   ' DWORD* out
) As IntPtr
End Function

' h : HANDLE
' iName : INT
' iType : INT
' pulSize : DWORD* out
Declare PtrSafe Function EngFindResource Lib "gdi32" ( _
    ByVal h As LongPtr, _
    ByVal iName As Long, _
    ByVal iType As Long, _
    ByRef pulSize As Long) As LongPtr
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

EngFindResource = ctypes.windll.gdi32.EngFindResource
EngFindResource.restype = ctypes.c_void_p
EngFindResource.argtypes = [
    wintypes.HANDLE,  # h : HANDLE
    ctypes.c_int,  # iName : INT
    ctypes.c_int,  # iType : INT
    ctypes.POINTER(wintypes.DWORD),  # pulSize : DWORD* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('GDI32.dll')
EngFindResource = Fiddle::Function.new(
  lib['EngFindResource'],
  [
    Fiddle::TYPE_VOIDP,  # h : HANDLE
    Fiddle::TYPE_INT,  # iName : INT
    Fiddle::TYPE_INT,  # iType : INT
    Fiddle::TYPE_VOIDP,  # pulSize : DWORD* out
  ],
  Fiddle::TYPE_VOIDP)

#[link(name = "gdi32")]
extern "system" {
    fn EngFindResource(
        h: *mut core::ffi::c_void,  // HANDLE
        iName: i32,  // INT
        iType: i32,  // INT
        pulSize: *mut u32  // DWORD* out
    ) -> *mut ();
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("GDI32.dll")]
public static extern IntPtr EngFindResource(IntPtr h, int iName, int iType, out uint pulSize);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GDI32_EngFindResource' -Namespace Win32 -PassThru
# $api::EngFindResource(h, iName, iType, pulSize)

#uselib "GDI32.dll"
#func global EngFindResource "EngFindResource" sptr, sptr, sptr, sptr
; EngFindResource h, iName, iType, varptr(pulSize)   ; 戻り値は stat
; h : HANDLE -> "sptr"
; iName : INT -> "sptr"
; iType : INT -> "sptr"
; pulSize : DWORD* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "GDI32.dll"
#cfunc global EngFindResource "EngFindResource" sptr, int, int, var
; res = EngFindResource(h, iName, iType, pulSize)
; h : HANDLE -> "sptr"
; iName : INT -> "int"
; iType : INT -> "int"
; pulSize : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; void* EngFindResource(HANDLE h, INT iName, INT iType, DWORD* pulSize)
#uselib "GDI32.dll"
#cfunc global EngFindResource "EngFindResource" intptr, int, int, var
; res = EngFindResource(h, iName, iType, pulSize)
; h : HANDLE -> "intptr"
; iName : INT -> "int"
; iType : INT -> "int"
; pulSize : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	gdi32 = windows.NewLazySystemDLL("GDI32.dll")
	procEngFindResource = gdi32.NewProc("EngFindResource")
)

// h (HANDLE), iName (INT), iType (INT), pulSize (DWORD* out)
r1, _, err := procEngFindResource.Call(
	uintptr(h),
	uintptr(iName),
	uintptr(iType),
	uintptr(pulSize),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // void*

function EngFindResource(
  h: THandle;   // HANDLE
  iName: Integer;   // INT
  iType: Integer;   // INT
  pulSize: Pointer   // DWORD* out
): Pointer; stdcall;
  external 'GDI32.dll' name 'EngFindResource';

result := DllCall("GDI32\EngFindResource"
    , "Ptr", h   ; HANDLE
    , "Int", iName   ; INT
    , "Int", iType   ; INT
    , "Ptr", pulSize   ; DWORD* out
    , "Ptr")   ; return: void*

●EngFindResource(h, iName, iType, pulSize) = DLL("GDI32.dll", "void* EngFindResource(void*, int, int, void*)")
# 呼び出し: EngFindResource(h, iName, iType, pulSize)
# h : HANDLE -> "void*"
# iName : INT -> "int"
# iType : INT -> "int"
# pulSize : DWORD* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。