GetServiceRegistryStateKey

// api-ms-win-service-core-l1-1-3.dll
#include <windows.h>

DWORD GetServiceRegistryStateKey(
    SERVICE_STATUS_HANDLE ServiceStatusHandle,
    SERVICE_REGISTRY_STATE_TYPE StateType,
    DWORD AccessMask,
    HKEY* ServiceStateKey
);

<DllImport("api-ms-win-service-core-l1-1-3.dll", ExactSpelling:=True)>
Public Shared Function GetServiceRegistryStateKey(
    ServiceStatusHandle As IntPtr,   ' SERVICE_STATUS_HANDLE
    StateType As Integer,   ' SERVICE_REGISTRY_STATE_TYPE
    AccessMask As UInteger,   ' DWORD
    ServiceStateKey As IntPtr   ' HKEY* out
) As UInteger
End Function

' ServiceStatusHandle : SERVICE_STATUS_HANDLE
' StateType : SERVICE_REGISTRY_STATE_TYPE
' AccessMask : DWORD
' ServiceStateKey : HKEY* out
Declare PtrSafe Function GetServiceRegistryStateKey Lib "api-ms-win-service-core-l1-1-3" ( _
    ByVal ServiceStatusHandle As LongPtr, _
    ByVal StateType As Long, _
    ByVal AccessMask As Long, _
    ByVal ServiceStateKey As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

GetServiceRegistryStateKey = ctypes.windll.LoadLibrary("api-ms-win-service-core-l1-1-3.dll").GetServiceRegistryStateKey
GetServiceRegistryStateKey.restype = wintypes.DWORD
GetServiceRegistryStateKey.argtypes = [
    wintypes.HANDLE,  # ServiceStatusHandle : SERVICE_STATUS_HANDLE
    ctypes.c_int,  # StateType : SERVICE_REGISTRY_STATE_TYPE
    wintypes.DWORD,  # AccessMask : DWORD
    ctypes.c_void_p,  # ServiceStateKey : HKEY* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('api-ms-win-service-core-l1-1-3.dll')
GetServiceRegistryStateKey = Fiddle::Function.new(
  lib['GetServiceRegistryStateKey'],
  [
    Fiddle::TYPE_VOIDP,  # ServiceStatusHandle : SERVICE_STATUS_HANDLE
    Fiddle::TYPE_INT,  # StateType : SERVICE_REGISTRY_STATE_TYPE
    -Fiddle::TYPE_INT,  # AccessMask : DWORD
    Fiddle::TYPE_VOIDP,  # ServiceStateKey : HKEY* out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "api-ms-win-service-core-l1-1-3")]
extern "system" {
    fn GetServiceRegistryStateKey(
        ServiceStatusHandle: *mut core::ffi::c_void,  // SERVICE_STATUS_HANDLE
        StateType: i32,  // SERVICE_REGISTRY_STATE_TYPE
        AccessMask: u32,  // DWORD
        ServiceStateKey: *mut *mut core::ffi::c_void  // HKEY* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("api-ms-win-service-core-l1-1-3.dll")]
public static extern uint GetServiceRegistryStateKey(IntPtr ServiceStatusHandle, int StateType, uint AccessMask, IntPtr ServiceStateKey);
"@
$api = Add-Type -MemberDefinition $sig -Name 'api-ms-win-service-core-l1-1-3_GetServiceRegistryStateKey' -Namespace Win32 -PassThru
# $api::GetServiceRegistryStateKey(ServiceStatusHandle, StateType, AccessMask, ServiceStateKey)

#uselib "api-ms-win-service-core-l1-1-3.dll"
#func global GetServiceRegistryStateKey "GetServiceRegistryStateKey" sptr, sptr, sptr, sptr
; GetServiceRegistryStateKey ServiceStatusHandle, StateType, AccessMask, ServiceStateKey   ; 戻り値は stat
; ServiceStatusHandle : SERVICE_STATUS_HANDLE -> "sptr"
; StateType : SERVICE_REGISTRY_STATE_TYPE -> "sptr"
; AccessMask : DWORD -> "sptr"
; ServiceStateKey : HKEY* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "api-ms-win-service-core-l1-1-3.dll"
#cfunc global GetServiceRegistryStateKey "GetServiceRegistryStateKey" sptr, int, int, sptr
; res = GetServiceRegistryStateKey(ServiceStatusHandle, StateType, AccessMask, ServiceStateKey)
; ServiceStatusHandle : SERVICE_STATUS_HANDLE -> "sptr"
; StateType : SERVICE_REGISTRY_STATE_TYPE -> "int"
; AccessMask : DWORD -> "int"
; ServiceStateKey : HKEY* out -> "sptr"

; DWORD GetServiceRegistryStateKey(SERVICE_STATUS_HANDLE ServiceStatusHandle, SERVICE_REGISTRY_STATE_TYPE StateType, DWORD AccessMask, HKEY* ServiceStateKey)
#uselib "api-ms-win-service-core-l1-1-3.dll"
#cfunc global GetServiceRegistryStateKey "GetServiceRegistryStateKey" intptr, int, int, intptr
; res = GetServiceRegistryStateKey(ServiceStatusHandle, StateType, AccessMask, ServiceStateKey)
; ServiceStatusHandle : SERVICE_STATUS_HANDLE -> "intptr"
; StateType : SERVICE_REGISTRY_STATE_TYPE -> "int"
; AccessMask : DWORD -> "int"
; ServiceStateKey : HKEY* out -> "intptr"

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

var (
	api_ms_win_service_core_l1_1_3 = windows.NewLazySystemDLL("api-ms-win-service-core-l1-1-3.dll")
	procGetServiceRegistryStateKey = api_ms_win_service_core_l1_1_3.NewProc("GetServiceRegistryStateKey")
)

// ServiceStatusHandle (SERVICE_STATUS_HANDLE), StateType (SERVICE_REGISTRY_STATE_TYPE), AccessMask (DWORD), ServiceStateKey (HKEY* out)
r1, _, err := procGetServiceRegistryStateKey.Call(
	uintptr(ServiceStatusHandle),
	uintptr(StateType),
	uintptr(AccessMask),
	uintptr(ServiceStateKey),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function GetServiceRegistryStateKey(
  ServiceStatusHandle: THandle;   // SERVICE_STATUS_HANDLE
  StateType: Integer;   // SERVICE_REGISTRY_STATE_TYPE
  AccessMask: DWORD;   // DWORD
  ServiceStateKey: Pointer   // HKEY* out
): DWORD; stdcall;
  external 'api-ms-win-service-core-l1-1-3.dll' name 'GetServiceRegistryStateKey';

result := DllCall("api-ms-win-service-core-l1-1-3\GetServiceRegistryStateKey"
    , "Ptr", ServiceStatusHandle   ; SERVICE_STATUS_HANDLE
    , "Int", StateType   ; SERVICE_REGISTRY_STATE_TYPE
    , "UInt", AccessMask   ; DWORD
    , "Ptr", ServiceStateKey   ; HKEY* out
    , "UInt")   ; return: DWORD

●GetServiceRegistryStateKey(ServiceStatusHandle, StateType, AccessMask, ServiceStateKey) = DLL("api-ms-win-service-core-l1-1-3.dll", "dword GetServiceRegistryStateKey(void*, int, dword, void*)")
# 呼び出し: GetServiceRegistryStateKey(ServiceStatusHandle, StateType, AccessMask, ServiceStateKey)
# ServiceStatusHandle : SERVICE_STATUS_HANDLE -> "void*"
# StateType : SERVICE_REGISTRY_STATE_TYPE -> "int"
# AccessMask : DWORD -> "dword"
# ServiceStateKey : HKEY* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。