AreDpiAwarenessContextsEqual

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

BOOL AreDpiAwarenessContextsEqual(
    DPI_AWARENESS_CONTEXT dpiContextA,
    DPI_AWARENESS_CONTEXT dpiContextB
);

<DllImport("USER32.dll", ExactSpelling:=True)>
Public Shared Function AreDpiAwarenessContextsEqual(
    dpiContextA As IntPtr,   ' DPI_AWARENESS_CONTEXT
    dpiContextB As IntPtr   ' DPI_AWARENESS_CONTEXT
) As Boolean
End Function

' dpiContextA : DPI_AWARENESS_CONTEXT
' dpiContextB : DPI_AWARENESS_CONTEXT
Declare PtrSafe Function AreDpiAwarenessContextsEqual Lib "user32" ( _
    ByVal dpiContextA As LongPtr, _
    ByVal dpiContextB As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

AreDpiAwarenessContextsEqual = ctypes.windll.user32.AreDpiAwarenessContextsEqual
AreDpiAwarenessContextsEqual.restype = wintypes.BOOL
AreDpiAwarenessContextsEqual.argtypes = [
    wintypes.HANDLE,  # dpiContextA : DPI_AWARENESS_CONTEXT
    wintypes.HANDLE,  # dpiContextB : DPI_AWARENESS_CONTEXT
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('USER32.dll')
AreDpiAwarenessContextsEqual = Fiddle::Function.new(
  lib['AreDpiAwarenessContextsEqual'],
  [
    Fiddle::TYPE_VOIDP,  # dpiContextA : DPI_AWARENESS_CONTEXT
    Fiddle::TYPE_VOIDP,  # dpiContextB : DPI_AWARENESS_CONTEXT
  ],
  Fiddle::TYPE_INT)

#[link(name = "user32")]
extern "system" {
    fn AreDpiAwarenessContextsEqual(
        dpiContextA: *mut core::ffi::c_void,  // DPI_AWARENESS_CONTEXT
        dpiContextB: *mut core::ffi::c_void  // DPI_AWARENESS_CONTEXT
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("USER32.dll")]
public static extern bool AreDpiAwarenessContextsEqual(IntPtr dpiContextA, IntPtr dpiContextB);
"@
$api = Add-Type -MemberDefinition $sig -Name 'USER32_AreDpiAwarenessContextsEqual' -Namespace Win32 -PassThru
# $api::AreDpiAwarenessContextsEqual(dpiContextA, dpiContextB)

#uselib "USER32.dll"
#func global AreDpiAwarenessContextsEqual "AreDpiAwarenessContextsEqual" sptr, sptr
; AreDpiAwarenessContextsEqual dpiContextA, dpiContextB   ; 戻り値は stat
; dpiContextA : DPI_AWARENESS_CONTEXT -> "sptr"
; dpiContextB : DPI_AWARENESS_CONTEXT -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "USER32.dll"
#cfunc global AreDpiAwarenessContextsEqual "AreDpiAwarenessContextsEqual" sptr, sptr
; res = AreDpiAwarenessContextsEqual(dpiContextA, dpiContextB)
; dpiContextA : DPI_AWARENESS_CONTEXT -> "sptr"
; dpiContextB : DPI_AWARENESS_CONTEXT -> "sptr"

; BOOL AreDpiAwarenessContextsEqual(DPI_AWARENESS_CONTEXT dpiContextA, DPI_AWARENESS_CONTEXT dpiContextB)
#uselib "USER32.dll"
#cfunc global AreDpiAwarenessContextsEqual "AreDpiAwarenessContextsEqual" intptr, intptr
; res = AreDpiAwarenessContextsEqual(dpiContextA, dpiContextB)
; dpiContextA : DPI_AWARENESS_CONTEXT -> "intptr"
; dpiContextB : DPI_AWARENESS_CONTEXT -> "intptr"

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

var (
	user32 = windows.NewLazySystemDLL("USER32.dll")
	procAreDpiAwarenessContextsEqual = user32.NewProc("AreDpiAwarenessContextsEqual")
)

// dpiContextA (DPI_AWARENESS_CONTEXT), dpiContextB (DPI_AWARENESS_CONTEXT)
r1, _, err := procAreDpiAwarenessContextsEqual.Call(
	uintptr(dpiContextA),
	uintptr(dpiContextB),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL

function AreDpiAwarenessContextsEqual(
  dpiContextA: THandle;   // DPI_AWARENESS_CONTEXT
  dpiContextB: THandle   // DPI_AWARENESS_CONTEXT
): BOOL; stdcall;
  external 'USER32.dll' name 'AreDpiAwarenessContextsEqual';

result := DllCall("USER32\AreDpiAwarenessContextsEqual"
    , "Ptr", dpiContextA   ; DPI_AWARENESS_CONTEXT
    , "Ptr", dpiContextB   ; DPI_AWARENESS_CONTEXT
    , "Int")   ; return: BOOL

●AreDpiAwarenessContextsEqual(dpiContextA, dpiContextB) = DLL("USER32.dll", "bool AreDpiAwarenessContextsEqual(void*, void*)")
# 呼び出し: AreDpiAwarenessContextsEqual(dpiContextA, dpiContextB)
# dpiContextA : DPI_AWARENESS_CONTEXT -> "void*"
# dpiContextB : DPI_AWARENESS_CONTEXT -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。