ClusterRegQueryInfoKey

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

INT ClusterRegQueryInfoKey(
    HKEY hKey,
    DWORD* lpcSubKeys,
    DWORD* lpcchMaxSubKeyLen,
    DWORD* lpcValues,
    DWORD* lpcchMaxValueNameLen,
    DWORD* lpcbMaxValueLen,
    DWORD* lpcbSecurityDescriptor,
    FILETIME* lpftLastWriteTime
);

<DllImport("CLUSAPI.dll", ExactSpelling:=True)>
Public Shared Function ClusterRegQueryInfoKey(
    hKey As IntPtr,   ' HKEY
    ByRef lpcSubKeys As UInteger,   ' DWORD*
    ByRef lpcchMaxSubKeyLen As UInteger,   ' DWORD*
    ByRef lpcValues As UInteger,   ' DWORD*
    ByRef lpcchMaxValueNameLen As UInteger,   ' DWORD*
    ByRef lpcbMaxValueLen As UInteger,   ' DWORD*
    ByRef lpcbSecurityDescriptor As UInteger,   ' DWORD*
    lpftLastWriteTime As IntPtr   ' FILETIME*
) As Integer
End Function

' hKey : HKEY
' lpcSubKeys : DWORD*
' lpcchMaxSubKeyLen : DWORD*
' lpcValues : DWORD*
' lpcchMaxValueNameLen : DWORD*
' lpcbMaxValueLen : DWORD*
' lpcbSecurityDescriptor : DWORD*
' lpftLastWriteTime : FILETIME*
Declare PtrSafe Function ClusterRegQueryInfoKey Lib "clusapi" ( _
    ByVal hKey As LongPtr, _
    ByRef lpcSubKeys As Long, _
    ByRef lpcchMaxSubKeyLen As Long, _
    ByRef lpcValues As Long, _
    ByRef lpcchMaxValueNameLen As Long, _
    ByRef lpcbMaxValueLen As Long, _
    ByRef lpcbSecurityDescriptor As Long, _
    ByVal lpftLastWriteTime As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

ClusterRegQueryInfoKey = ctypes.windll.clusapi.ClusterRegQueryInfoKey
ClusterRegQueryInfoKey.restype = ctypes.c_int
ClusterRegQueryInfoKey.argtypes = [
    wintypes.HANDLE,  # hKey : HKEY
    ctypes.POINTER(wintypes.DWORD),  # lpcSubKeys : DWORD*
    ctypes.POINTER(wintypes.DWORD),  # lpcchMaxSubKeyLen : DWORD*
    ctypes.POINTER(wintypes.DWORD),  # lpcValues : DWORD*
    ctypes.POINTER(wintypes.DWORD),  # lpcchMaxValueNameLen : DWORD*
    ctypes.POINTER(wintypes.DWORD),  # lpcbMaxValueLen : DWORD*
    ctypes.POINTER(wintypes.DWORD),  # lpcbSecurityDescriptor : DWORD*
    ctypes.c_void_p,  # lpftLastWriteTime : FILETIME*
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('CLUSAPI.dll')
ClusterRegQueryInfoKey = Fiddle::Function.new(
  lib['ClusterRegQueryInfoKey'],
  [
    Fiddle::TYPE_VOIDP,  # hKey : HKEY
    Fiddle::TYPE_VOIDP,  # lpcSubKeys : DWORD*
    Fiddle::TYPE_VOIDP,  # lpcchMaxSubKeyLen : DWORD*
    Fiddle::TYPE_VOIDP,  # lpcValues : DWORD*
    Fiddle::TYPE_VOIDP,  # lpcchMaxValueNameLen : DWORD*
    Fiddle::TYPE_VOIDP,  # lpcbMaxValueLen : DWORD*
    Fiddle::TYPE_VOIDP,  # lpcbSecurityDescriptor : DWORD*
    Fiddle::TYPE_VOIDP,  # lpftLastWriteTime : FILETIME*
  ],
  Fiddle::TYPE_INT)

#[link(name = "clusapi")]
extern "system" {
    fn ClusterRegQueryInfoKey(
        hKey: *mut core::ffi::c_void,  // HKEY
        lpcSubKeys: *mut u32,  // DWORD*
        lpcchMaxSubKeyLen: *mut u32,  // DWORD*
        lpcValues: *mut u32,  // DWORD*
        lpcchMaxValueNameLen: *mut u32,  // DWORD*
        lpcbMaxValueLen: *mut u32,  // DWORD*
        lpcbSecurityDescriptor: *mut u32,  // DWORD*
        lpftLastWriteTime: *mut FILETIME  // FILETIME*
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("CLUSAPI.dll")]
public static extern int ClusterRegQueryInfoKey(IntPtr hKey, ref uint lpcSubKeys, ref uint lpcchMaxSubKeyLen, ref uint lpcValues, ref uint lpcchMaxValueNameLen, ref uint lpcbMaxValueLen, ref uint lpcbSecurityDescriptor, IntPtr lpftLastWriteTime);
"@
$api = Add-Type -MemberDefinition $sig -Name 'CLUSAPI_ClusterRegQueryInfoKey' -Namespace Win32 -PassThru
# $api::ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime)

#uselib "CLUSAPI.dll"
#func global ClusterRegQueryInfoKey "ClusterRegQueryInfoKey" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; ClusterRegQueryInfoKey hKey, varptr(lpcSubKeys), varptr(lpcchMaxSubKeyLen), varptr(lpcValues), varptr(lpcchMaxValueNameLen), varptr(lpcbMaxValueLen), varptr(lpcbSecurityDescriptor), varptr(lpftLastWriteTime)   ; 戻り値は stat
; hKey : HKEY -> "sptr"
; lpcSubKeys : DWORD* -> "sptr"
; lpcchMaxSubKeyLen : DWORD* -> "sptr"
; lpcValues : DWORD* -> "sptr"
; lpcchMaxValueNameLen : DWORD* -> "sptr"
; lpcbMaxValueLen : DWORD* -> "sptr"
; lpcbSecurityDescriptor : DWORD* -> "sptr"
; lpftLastWriteTime : FILETIME* -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

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

var (
	clusapi = windows.NewLazySystemDLL("CLUSAPI.dll")
	procClusterRegQueryInfoKey = clusapi.NewProc("ClusterRegQueryInfoKey")
)

// hKey (HKEY), lpcSubKeys (DWORD*), lpcchMaxSubKeyLen (DWORD*), lpcValues (DWORD*), lpcchMaxValueNameLen (DWORD*), lpcbMaxValueLen (DWORD*), lpcbSecurityDescriptor (DWORD*), lpftLastWriteTime (FILETIME*)
r1, _, err := procClusterRegQueryInfoKey.Call(
	uintptr(hKey),
	uintptr(lpcSubKeys),
	uintptr(lpcchMaxSubKeyLen),
	uintptr(lpcValues),
	uintptr(lpcchMaxValueNameLen),
	uintptr(lpcbMaxValueLen),
	uintptr(lpcbSecurityDescriptor),
	uintptr(lpftLastWriteTime),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // INT

function ClusterRegQueryInfoKey(
  hKey: THandle;   // HKEY
  lpcSubKeys: Pointer;   // DWORD*
  lpcchMaxSubKeyLen: Pointer;   // DWORD*
  lpcValues: Pointer;   // DWORD*
  lpcchMaxValueNameLen: Pointer;   // DWORD*
  lpcbMaxValueLen: Pointer;   // DWORD*
  lpcbSecurityDescriptor: Pointer;   // DWORD*
  lpftLastWriteTime: Pointer   // FILETIME*
): Integer; stdcall;
  external 'CLUSAPI.dll' name 'ClusterRegQueryInfoKey';

result := DllCall("CLUSAPI\ClusterRegQueryInfoKey"
    , "Ptr", hKey   ; HKEY
    , "Ptr", lpcSubKeys   ; DWORD*
    , "Ptr", lpcchMaxSubKeyLen   ; DWORD*
    , "Ptr", lpcValues   ; DWORD*
    , "Ptr", lpcchMaxValueNameLen   ; DWORD*
    , "Ptr", lpcbMaxValueLen   ; DWORD*
    , "Ptr", lpcbSecurityDescriptor   ; DWORD*
    , "Ptr", lpftLastWriteTime   ; FILETIME*
    , "Int")   ; return: INT

●ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime) = DLL("CLUSAPI.dll", "int ClusterRegQueryInfoKey(void*, void*, void*, void*, void*, void*, void*, void*)")
# 呼び出し: ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime)
# hKey : HKEY -> "void*"
# lpcSubKeys : DWORD* -> "void*"
# lpcchMaxSubKeyLen : DWORD* -> "void*"
# lpcValues : DWORD* -> "void*"
# lpcchMaxValueNameLen : DWORD* -> "void*"
# lpcbMaxValueLen : DWORD* -> "void*"
# lpcbSecurityDescriptor : DWORD* -> "void*"
# lpftLastWriteTime : FILETIME* -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。

const std = @import("std");

extern "clusapi" fn ClusterRegQueryInfoKey(
    hKey: ?*anyopaque, // HKEY
    lpcSubKeys: [*c]u32, // DWORD*
    lpcchMaxSubKeyLen: [*c]u32, // DWORD*
    lpcValues: [*c]u32, // DWORD*
    lpcchMaxValueNameLen: [*c]u32, // DWORD*
    lpcbMaxValueLen: [*c]u32, // DWORD*
    lpcbSecurityDescriptor: [*c]u32, // DWORD*
    lpftLastWriteTime: [*c]FILETIME // FILETIME*
) callconv(std.os.windows.WINAPI) i32;

proc ClusterRegQueryInfoKey(
    hKey: pointer,  # HKEY
    lpcSubKeys: ptr uint32,  # DWORD*
    lpcchMaxSubKeyLen: ptr uint32,  # DWORD*
    lpcValues: ptr uint32,  # DWORD*
    lpcchMaxValueNameLen: ptr uint32,  # DWORD*
    lpcbMaxValueLen: ptr uint32,  # DWORD*
    lpcbSecurityDescriptor: ptr uint32,  # DWORD*
    lpftLastWriteTime: ptr FILETIME  # FILETIME*
): int32 {.importc: "ClusterRegQueryInfoKey", stdcall, dynlib: "CLUSAPI.dll".}

pragma(lib, "clusapi");
extern(Windows)
int ClusterRegQueryInfoKey(
    void* hKey,   // HKEY
    uint* lpcSubKeys,   // DWORD*
    uint* lpcchMaxSubKeyLen,   // DWORD*
    uint* lpcValues,   // DWORD*
    uint* lpcchMaxValueNameLen,   // DWORD*
    uint* lpcbMaxValueLen,   // DWORD*
    uint* lpcbSecurityDescriptor,   // DWORD*
    FILETIME* lpftLastWriteTime   // FILETIME*
);

ccall((:ClusterRegQueryInfoKey, "CLUSAPI.dll"), stdcall, Int32,
      (Ptr{Cvoid}, Ptr{UInt32}, Ptr{UInt32}, Ptr{UInt32}, Ptr{UInt32}, Ptr{UInt32}, Ptr{UInt32}, Ptr{FILETIME}),
      hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime)
# hKey : HKEY -> Ptr{Cvoid}
# lpcSubKeys : DWORD* -> Ptr{UInt32}
# lpcchMaxSubKeyLen : DWORD* -> Ptr{UInt32}
# lpcValues : DWORD* -> Ptr{UInt32}
# lpcchMaxValueNameLen : DWORD* -> Ptr{UInt32}
# lpcbMaxValueLen : DWORD* -> Ptr{UInt32}
# lpcbSecurityDescriptor : DWORD* -> Ptr{UInt32}
# lpftLastWriteTime : FILETIME* -> Ptr{FILETIME}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。

local ffi = require("ffi")
ffi.cdef[[
int32_t ClusterRegQueryInfoKey(
    void* hKey,
    uint32_t* lpcSubKeys,
    uint32_t* lpcchMaxSubKeyLen,
    uint32_t* lpcValues,
    uint32_t* lpcchMaxValueNameLen,
    uint32_t* lpcbMaxValueLen,
    uint32_t* lpcbSecurityDescriptor,
    void* lpftLastWriteTime);
]]
local clusapi = ffi.load("clusapi")
-- clusapi.ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime)
-- hKey : HKEY
-- lpcSubKeys : DWORD*
-- lpcchMaxSubKeyLen : DWORD*
-- lpcValues : DWORD*
-- lpcchMaxValueNameLen : DWORD*
-- lpcbMaxValueLen : DWORD*
-- lpcbSecurityDescriptor : DWORD*
-- lpftLastWriteTime : FILETIME*
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。

const koffi = require('koffi');
const lib = koffi.load('CLUSAPI.dll');
const ClusterRegQueryInfoKey = lib.func('__stdcall', 'ClusterRegQueryInfoKey', 'int32_t', ['void *', 'uint32_t *', 'uint32_t *', 'uint32_t *', 'uint32_t *', 'uint32_t *', 'uint32_t *', 'void *']);
// ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime)
// hKey : HKEY -> 'void *'
// lpcSubKeys : DWORD* -> 'uint32_t *'
// lpcchMaxSubKeyLen : DWORD* -> 'uint32_t *'
// lpcValues : DWORD* -> 'uint32_t *'
// lpcchMaxValueNameLen : DWORD* -> 'uint32_t *'
// lpcbMaxValueLen : DWORD* -> 'uint32_t *'
// lpcbSecurityDescriptor : DWORD* -> 'uint32_t *'
// lpftLastWriteTime : FILETIME* -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。

const lib = Deno.dlopen("CLUSAPI.dll", {
  ClusterRegQueryInfoKey: { parameters: ["pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime)
// hKey : HKEY -> "pointer"
// lpcSubKeys : DWORD* -> "pointer"
// lpcchMaxSubKeyLen : DWORD* -> "pointer"
// lpcValues : DWORD* -> "pointer"
// lpcchMaxValueNameLen : DWORD* -> "pointer"
// lpcbMaxValueLen : DWORD* -> "pointer"
// lpcbSecurityDescriptor : DWORD* -> "pointer"
// lpftLastWriteTime : FILETIME* -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
int32_t ClusterRegQueryInfoKey(
    void* hKey,
    uint32_t* lpcSubKeys,
    uint32_t* lpcchMaxSubKeyLen,
    uint32_t* lpcValues,
    uint32_t* lpcchMaxValueNameLen,
    uint32_t* lpcbMaxValueLen,
    uint32_t* lpcbSecurityDescriptor,
    void* lpftLastWriteTime);
C, "CLUSAPI.dll");
// $ffi->ClusterRegQueryInfoKey(hKey, lpcSubKeys, lpcchMaxSubKeyLen, lpcValues, lpcchMaxValueNameLen, lpcbMaxValueLen, lpcbSecurityDescriptor, lpftLastWriteTime);
// hKey : HKEY
// lpcSubKeys : DWORD*
// lpcchMaxSubKeyLen : DWORD*
// lpcValues : DWORD*
// lpcchMaxValueNameLen : DWORD*
// lpcbMaxValueLen : DWORD*
// lpcbSecurityDescriptor : DWORD*
// lpftLastWriteTime : FILETIME*
// 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
// WINAPI(stdcall): x64 では呼出規約が統一されるため問題なし。x86 では __stdcall 対応のラッパが必要な場合あり。

import com.sun.jna.*;
import com.sun.jna.ptr.*;
import com.sun.jna.win32.StdCallLibrary;
import com.sun.jna.win32.W32APIOptions;

public interface Clusapi extends StdCallLibrary {
    Clusapi INSTANCE = Native.load("clusapi", Clusapi.class);
    int ClusterRegQueryInfoKey(
        Pointer hKey,   // HKEY
        IntByReference lpcSubKeys,   // DWORD*
        IntByReference lpcchMaxSubKeyLen,   // DWORD*
        IntByReference lpcValues,   // DWORD*
        IntByReference lpcchMaxValueNameLen,   // DWORD*
        IntByReference lpcbMaxValueLen,   // DWORD*
        IntByReference lpcbSecurityDescriptor,   // DWORD*
        Pointer lpftLastWriteTime   // FILETIME*
    );
}

@[Link("clusapi")]
lib LibCLUSAPI
  fun ClusterRegQueryInfoKey = ClusterRegQueryInfoKey(
    hKey : Void*,   # HKEY
    lpcSubKeys : UInt32*,   # DWORD*
    lpcchMaxSubKeyLen : UInt32*,   # DWORD*
    lpcValues : UInt32*,   # DWORD*
    lpcchMaxValueNameLen : UInt32*,   # DWORD*
    lpcbMaxValueLen : UInt32*,   # DWORD*
    lpcbSecurityDescriptor : UInt32*,   # DWORD*
    lpftLastWriteTime : FILETIME*   # FILETIME*
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef ClusterRegQueryInfoKeyNative = Int32 Function(Pointer<Void>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Void>);
typedef ClusterRegQueryInfoKeyDart = int Function(Pointer<Void>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Uint32>, Pointer<Void>);
final ClusterRegQueryInfoKey = DynamicLibrary.open('CLUSAPI.dll')
    .lookupFunction<ClusterRegQueryInfoKeyNative, ClusterRegQueryInfoKeyDart>('ClusterRegQueryInfoKey');
// hKey : HKEY -> Pointer<Void>
// lpcSubKeys : DWORD* -> Pointer<Uint32>
// lpcchMaxSubKeyLen : DWORD* -> Pointer<Uint32>
// lpcValues : DWORD* -> Pointer<Uint32>
// lpcchMaxValueNameLen : DWORD* -> Pointer<Uint32>
// lpcbMaxValueLen : DWORD* -> Pointer<Uint32>
// lpcbSecurityDescriptor : DWORD* -> Pointer<Uint32>
// lpftLastWriteTime : FILETIME* -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function ClusterRegQueryInfoKey(
  hKey: THandle;   // HKEY
  lpcSubKeys: Pointer;   // DWORD*
  lpcchMaxSubKeyLen: Pointer;   // DWORD*
  lpcValues: Pointer;   // DWORD*
  lpcchMaxValueNameLen: Pointer;   // DWORD*
  lpcbMaxValueLen: Pointer;   // DWORD*
  lpcbSecurityDescriptor: Pointer;   // DWORD*
  lpftLastWriteTime: Pointer   // FILETIME*
): Integer; stdcall;
  external 'CLUSAPI.dll' name 'ClusterRegQueryInfoKey';

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "ClusterRegQueryInfoKey"
  c_ClusterRegQueryInfoKey :: Ptr () -> Ptr Word32 -> Ptr Word32 -> Ptr Word32 -> Ptr Word32 -> Ptr Word32 -> Ptr Word32 -> Ptr () -> IO Int32
-- hKey : HKEY -> Ptr ()
-- lpcSubKeys : DWORD* -> Ptr Word32
-- lpcchMaxSubKeyLen : DWORD* -> Ptr Word32
-- lpcValues : DWORD* -> Ptr Word32
-- lpcchMaxValueNameLen : DWORD* -> Ptr Word32
-- lpcbMaxValueLen : DWORD* -> Ptr Word32
-- lpcbSecurityDescriptor : DWORD* -> Ptr Word32
-- lpftLastWriteTime : FILETIME* -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let clusterregqueryinfokey =
  foreign "ClusterRegQueryInfoKey"
    ((ptr void) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr uint32_t) @-> (ptr void) @-> returning int32_t)
(* hKey : HKEY -> (ptr void) *)
(* lpcSubKeys : DWORD* -> (ptr uint32_t) *)
(* lpcchMaxSubKeyLen : DWORD* -> (ptr uint32_t) *)
(* lpcValues : DWORD* -> (ptr uint32_t) *)
(* lpcchMaxValueNameLen : DWORD* -> (ptr uint32_t) *)
(* lpcbMaxValueLen : DWORD* -> (ptr uint32_t) *)
(* lpcbSecurityDescriptor : DWORD* -> (ptr uint32_t) *)
(* lpftLastWriteTime : FILETIME* -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library clusapi (t "CLUSAPI.dll"))
(cffi:use-foreign-library clusapi)

(cffi:defcfun ("ClusterRegQueryInfoKey" cluster-reg-query-info-key :convention :stdcall) :int32
  (h-key :pointer)   ; HKEY
  (lpc-sub-keys :pointer)   ; DWORD*
  (lpcch-max-sub-key-len :pointer)   ; DWORD*
  (lpc-values :pointer)   ; DWORD*
  (lpcch-max-value-name-len :pointer)   ; DWORD*
  (lpcb-max-value-len :pointer)   ; DWORD*
  (lpcb-security-descriptor :pointer)   ; DWORD*
  (lpft-last-write-time :pointer))   ; FILETIME*
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $ClusterRegQueryInfoKey = Win32::API::More->new('CLUSAPI',
    'int ClusterRegQueryInfoKey(HANDLE hKey, LPVOID lpcSubKeys, LPVOID lpcchMaxSubKeyLen, LPVOID lpcValues, LPVOID lpcchMaxValueNameLen, LPVOID lpcbMaxValueLen, LPVOID lpcbSecurityDescriptor, LPVOID lpftLastWriteTime)');
# my $ret = $ClusterRegQueryInfoKey->Call($hKey, $lpcSubKeys, $lpcchMaxSubKeyLen, $lpcValues, $lpcchMaxValueNameLen, $lpcbMaxValueLen, $lpcbSecurityDescriptor, $lpftLastWriteTime);
# hKey : HKEY -> HANDLE
# lpcSubKeys : DWORD* -> LPVOID
# lpcchMaxSubKeyLen : DWORD* -> LPVOID
# lpcValues : DWORD* -> LPVOID
# lpcchMaxValueNameLen : DWORD* -> LPVOID
# lpcbMaxValueLen : DWORD* -> LPVOID
# lpcbSecurityDescriptor : DWORD* -> LPVOID
# lpftLastWriteTime : FILETIME* -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。