DevicePowerEnumDevices

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

BOOLEAN DevicePowerEnumDevices(
    DWORD QueryIndex,
    DWORD QueryInterpretationFlags,
    DWORD QueryFlags,
    BYTE* pReturnBuffer,   // optional
    DWORD* pBufferSize
);

<DllImport("POWRPROF.dll", ExactSpelling:=True)>
Public Shared Function DevicePowerEnumDevices(
    QueryIndex As UInteger,   ' DWORD
    QueryInterpretationFlags As UInteger,   ' DWORD
    QueryFlags As UInteger,   ' DWORD
    pReturnBuffer As IntPtr,   ' BYTE* optional, out
    ByRef pBufferSize As UInteger   ' DWORD* in/out
) As Byte
End Function

' QueryIndex : DWORD
' QueryInterpretationFlags : DWORD
' QueryFlags : DWORD
' pReturnBuffer : BYTE* optional, out
' pBufferSize : DWORD* in/out
Declare PtrSafe Function DevicePowerEnumDevices Lib "powrprof" ( _
    ByVal QueryIndex As Long, _
    ByVal QueryInterpretationFlags As Long, _
    ByVal QueryFlags As Long, _
    ByVal pReturnBuffer As LongPtr, _
    ByRef pBufferSize As Long) As Byte
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

DevicePowerEnumDevices = ctypes.windll.powrprof.DevicePowerEnumDevices
DevicePowerEnumDevices.restype = ctypes.c_byte
DevicePowerEnumDevices.argtypes = [
    wintypes.DWORD,  # QueryIndex : DWORD
    wintypes.DWORD,  # QueryInterpretationFlags : DWORD
    wintypes.DWORD,  # QueryFlags : DWORD
    ctypes.POINTER(ctypes.c_ubyte),  # pReturnBuffer : BYTE* optional, out
    ctypes.POINTER(wintypes.DWORD),  # pBufferSize : DWORD* in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('POWRPROF.dll')
DevicePowerEnumDevices = Fiddle::Function.new(
  lib['DevicePowerEnumDevices'],
  [
    -Fiddle::TYPE_INT,  # QueryIndex : DWORD
    -Fiddle::TYPE_INT,  # QueryInterpretationFlags : DWORD
    -Fiddle::TYPE_INT,  # QueryFlags : DWORD
    Fiddle::TYPE_VOIDP,  # pReturnBuffer : BYTE* optional, out
    Fiddle::TYPE_VOIDP,  # pBufferSize : DWORD* in/out
  ],
  Fiddle::TYPE_CHAR)

#[link(name = "powrprof")]
extern "system" {
    fn DevicePowerEnumDevices(
        QueryIndex: u32,  // DWORD
        QueryInterpretationFlags: u32,  // DWORD
        QueryFlags: u32,  // DWORD
        pReturnBuffer: *mut u8,  // BYTE* optional, out
        pBufferSize: *mut u32  // DWORD* in/out
    ) -> u8;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("POWRPROF.dll")]
public static extern byte DevicePowerEnumDevices(uint QueryIndex, uint QueryInterpretationFlags, uint QueryFlags, IntPtr pReturnBuffer, ref uint pBufferSize);
"@
$api = Add-Type -MemberDefinition $sig -Name 'POWRPROF_DevicePowerEnumDevices' -Namespace Win32 -PassThru
# $api::DevicePowerEnumDevices(QueryIndex, QueryInterpretationFlags, QueryFlags, pReturnBuffer, pBufferSize)

#uselib "POWRPROF.dll"
#func global DevicePowerEnumDevices "DevicePowerEnumDevices" sptr, sptr, sptr, sptr, sptr
; DevicePowerEnumDevices QueryIndex, QueryInterpretationFlags, QueryFlags, varptr(pReturnBuffer), varptr(pBufferSize)   ; 戻り値は stat
; QueryIndex : DWORD -> "sptr"
; QueryInterpretationFlags : DWORD -> "sptr"
; QueryFlags : DWORD -> "sptr"
; pReturnBuffer : BYTE* optional, out -> "sptr"
; pBufferSize : DWORD* in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "POWRPROF.dll"
#cfunc global DevicePowerEnumDevices "DevicePowerEnumDevices" int, int, int, var, var
; res = DevicePowerEnumDevices(QueryIndex, QueryInterpretationFlags, QueryFlags, pReturnBuffer, pBufferSize)
; QueryIndex : DWORD -> "int"
; QueryInterpretationFlags : DWORD -> "int"
; QueryFlags : DWORD -> "int"
; pReturnBuffer : BYTE* optional, out -> "var"
; pBufferSize : DWORD* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; BOOLEAN DevicePowerEnumDevices(DWORD QueryIndex, DWORD QueryInterpretationFlags, DWORD QueryFlags, BYTE* pReturnBuffer, DWORD* pBufferSize)
#uselib "POWRPROF.dll"
#cfunc global DevicePowerEnumDevices "DevicePowerEnumDevices" int, int, int, var, var
; res = DevicePowerEnumDevices(QueryIndex, QueryInterpretationFlags, QueryFlags, pReturnBuffer, pBufferSize)
; QueryIndex : DWORD -> "int"
; QueryInterpretationFlags : DWORD -> "int"
; QueryFlags : DWORD -> "int"
; pReturnBuffer : BYTE* optional, out -> "var"
; pBufferSize : DWORD* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	powrprof = windows.NewLazySystemDLL("POWRPROF.dll")
	procDevicePowerEnumDevices = powrprof.NewProc("DevicePowerEnumDevices")
)

// QueryIndex (DWORD), QueryInterpretationFlags (DWORD), QueryFlags (DWORD), pReturnBuffer (BYTE* optional, out), pBufferSize (DWORD* in/out)
r1, _, err := procDevicePowerEnumDevices.Call(
	uintptr(QueryIndex),
	uintptr(QueryInterpretationFlags),
	uintptr(QueryFlags),
	uintptr(pReturnBuffer),
	uintptr(pBufferSize),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOLEAN

function DevicePowerEnumDevices(
  QueryIndex: DWORD;   // DWORD
  QueryInterpretationFlags: DWORD;   // DWORD
  QueryFlags: DWORD;   // DWORD
  pReturnBuffer: Pointer;   // BYTE* optional, out
  pBufferSize: Pointer   // DWORD* in/out
): ByteBool; stdcall;
  external 'POWRPROF.dll' name 'DevicePowerEnumDevices';

result := DllCall("POWRPROF\DevicePowerEnumDevices"
    , "UInt", QueryIndex   ; DWORD
    , "UInt", QueryInterpretationFlags   ; DWORD
    , "UInt", QueryFlags   ; DWORD
    , "Ptr", pReturnBuffer   ; BYTE* optional, out
    , "Ptr", pBufferSize   ; DWORD* in/out
    , "Char")   ; return: BOOLEAN

●DevicePowerEnumDevices(QueryIndex, QueryInterpretationFlags, QueryFlags, pReturnBuffer, pBufferSize) = DLL("POWRPROF.dll", "byte DevicePowerEnumDevices(dword, dword, dword, void*, void*)")
# 呼び出し: DevicePowerEnumDevices(QueryIndex, QueryInterpretationFlags, QueryFlags, pReturnBuffer, pBufferSize)
# QueryIndex : DWORD -> "dword"
# QueryInterpretationFlags : DWORD -> "dword"
# QueryFlags : DWORD -> "dword"
# pReturnBuffer : BYTE* optional, out -> "void*"
# pBufferSize : DWORD* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。