EngCreateBitmap

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

HBITMAP EngCreateBitmap(
    SIZE sizl,
    INT lWidth,
    DWORD iFormat,
    DWORD fl,
    void* pvBits
);

<DllImport("GDI32.dll", ExactSpelling:=True)>
Public Shared Function EngCreateBitmap(
    sizl As SIZE,   ' SIZE
    lWidth As Integer,   ' INT
    iFormat As UInteger,   ' DWORD
    fl As UInteger,   ' DWORD
    pvBits As IntPtr   ' void* in/out
) As IntPtr
End Function

' sizl : SIZE
' lWidth : INT
' iFormat : DWORD
' fl : DWORD
' pvBits : void* in/out
Declare PtrSafe Function EngCreateBitmap Lib "gdi32" ( _
    ByVal sizl As LongPtr, _
    ByVal lWidth As Long, _
    ByVal iFormat As Long, _
    ByVal fl As Long, _
    ByVal pvBits As LongPtr) As LongPtr
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

EngCreateBitmap = ctypes.windll.gdi32.EngCreateBitmap
EngCreateBitmap.restype = ctypes.c_void_p
EngCreateBitmap.argtypes = [
    SIZE,  # sizl : SIZE
    ctypes.c_int,  # lWidth : INT
    wintypes.DWORD,  # iFormat : DWORD
    wintypes.DWORD,  # fl : DWORD
    ctypes.POINTER(None),  # pvBits : void* in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('GDI32.dll')
EngCreateBitmap = Fiddle::Function.new(
  lib['EngCreateBitmap'],
  [
    Fiddle::TYPE_VOIDP,  # sizl : SIZE
    Fiddle::TYPE_INT,  # lWidth : INT
    -Fiddle::TYPE_INT,  # iFormat : DWORD
    -Fiddle::TYPE_INT,  # fl : DWORD
    Fiddle::TYPE_VOIDP,  # pvBits : void* in/out
  ],
  Fiddle::TYPE_VOIDP)

#[link(name = "gdi32")]
extern "system" {
    fn EngCreateBitmap(
        sizl: SIZE,  // SIZE
        lWidth: i32,  // INT
        iFormat: u32,  // DWORD
        fl: u32,  // DWORD
        pvBits: *mut ()  // void* in/out
    ) -> *mut core::ffi::c_void;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("GDI32.dll")]
public static extern IntPtr EngCreateBitmap(SIZE sizl, int lWidth, uint iFormat, uint fl, IntPtr pvBits);
"@
$api = Add-Type -MemberDefinition $sig -Name 'GDI32_EngCreateBitmap' -Namespace Win32 -PassThru
# $api::EngCreateBitmap(sizl, lWidth, iFormat, fl, pvBits)

#uselib "GDI32.dll"
#func global EngCreateBitmap "EngCreateBitmap" sptr, sptr, sptr, sptr, sptr
; EngCreateBitmap sizl, lWidth, iFormat, fl, pvBits   ; 戻り値は stat
; sizl : SIZE -> "sptr"
; lWidth : INT -> "sptr"
; iFormat : DWORD -> "sptr"
; fl : DWORD -> "sptr"
; pvBits : void* in/out -> "sptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "GDI32.dll"
#cfunc global EngCreateBitmap "EngCreateBitmap" int, int, int, int, sptr
; res = EngCreateBitmap(sizl, lWidth, iFormat, fl, pvBits)
; sizl : SIZE -> "int"
; lWidth : INT -> "int"
; iFormat : DWORD -> "int"
; fl : DWORD -> "int"
; pvBits : void* in/out -> "sptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。

; HBITMAP EngCreateBitmap(SIZE sizl, INT lWidth, DWORD iFormat, DWORD fl, void* pvBits)
#uselib "GDI32.dll"
#cfunc global EngCreateBitmap "EngCreateBitmap" int, int, int, int, intptr
; res = EngCreateBitmap(sizl, lWidth, iFormat, fl, pvBits)
; sizl : SIZE -> "int"
; lWidth : INT -> "int"
; iFormat : DWORD -> "int"
; fl : DWORD -> "int"
; pvBits : void* in/out -> "intptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。

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

var (
	gdi32 = windows.NewLazySystemDLL("GDI32.dll")
	procEngCreateBitmap = gdi32.NewProc("EngCreateBitmap")
)

// sizl (SIZE), lWidth (INT), iFormat (DWORD), fl (DWORD), pvBits (void* in/out)
r1, _, err := procEngCreateBitmap.Call(
	uintptr(sizl),
	uintptr(lWidth),
	uintptr(iFormat),
	uintptr(fl),
	uintptr(pvBits),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HBITMAP

function EngCreateBitmap(
  sizl: SIZE;   // SIZE
  lWidth: Integer;   // INT
  iFormat: DWORD;   // DWORD
  fl: DWORD;   // DWORD
  pvBits: Pointer   // void* in/out
): THandle; stdcall;
  external 'GDI32.dll' name 'EngCreateBitmap';

result := DllCall("GDI32\EngCreateBitmap"
    , "Ptr", sizl   ; SIZE
    , "Int", lWidth   ; INT
    , "UInt", iFormat   ; DWORD
    , "UInt", fl   ; DWORD
    , "Ptr", pvBits   ; void* in/out
    , "Ptr")   ; return: HBITMAP

●EngCreateBitmap(sizl, lWidth, iFormat, fl, pvBits) = DLL("GDI32.dll", "void* EngCreateBitmap(void*, int, dword, dword, void*)")
# 呼び出し: EngCreateBitmap(sizl, lWidth, iFormat, fl, pvBits)
# sizl : SIZE -> "void*"
# lWidth : INT -> "int"
# iFormat : DWORD -> "dword"
# fl : DWORD -> "dword"
# pvBits : void* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。