GetSharedServiceRegistryStateKey

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

DWORD GetSharedServiceRegistryStateKey(
    SC_HANDLE ServiceHandle,
    SERVICE_SHARED_REGISTRY_STATE_TYPE StateType,
    DWORD AccessMask,
    HKEY* ServiceStateKey
);

<DllImport("api-ms-win-service-core-l1-1-5.dll", ExactSpelling:=True)>
Public Shared Function GetSharedServiceRegistryStateKey(
    ServiceHandle As IntPtr,   ' SC_HANDLE
    StateType As Integer,   ' SERVICE_SHARED_REGISTRY_STATE_TYPE
    AccessMask As UInteger,   ' DWORD
    ServiceStateKey As IntPtr   ' HKEY* out
) As UInteger
End Function

' ServiceHandle : SC_HANDLE
' StateType : SERVICE_SHARED_REGISTRY_STATE_TYPE
' AccessMask : DWORD
' ServiceStateKey : HKEY* out
Declare PtrSafe Function GetSharedServiceRegistryStateKey Lib "api-ms-win-service-core-l1-1-5" ( _
    ByVal ServiceHandle 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

GetSharedServiceRegistryStateKey = ctypes.windll.LoadLibrary("api-ms-win-service-core-l1-1-5.dll").GetSharedServiceRegistryStateKey
GetSharedServiceRegistryStateKey.restype = wintypes.DWORD
GetSharedServiceRegistryStateKey.argtypes = [
    wintypes.HANDLE,  # ServiceHandle : SC_HANDLE
    ctypes.c_int,  # StateType : SERVICE_SHARED_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-5.dll')
GetSharedServiceRegistryStateKey = Fiddle::Function.new(
  lib['GetSharedServiceRegistryStateKey'],
  [
    Fiddle::TYPE_VOIDP,  # ServiceHandle : SC_HANDLE
    Fiddle::TYPE_INT,  # StateType : SERVICE_SHARED_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-5")]
extern "system" {
    fn GetSharedServiceRegistryStateKey(
        ServiceHandle: *mut core::ffi::c_void,  // SC_HANDLE
        StateType: i32,  // SERVICE_SHARED_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-5.dll")]
public static extern uint GetSharedServiceRegistryStateKey(IntPtr ServiceHandle, int StateType, uint AccessMask, IntPtr ServiceStateKey);
"@
$api = Add-Type -MemberDefinition $sig -Name 'api-ms-win-service-core-l1-1-5_GetSharedServiceRegistryStateKey' -Namespace Win32 -PassThru
# $api::GetSharedServiceRegistryStateKey(ServiceHandle, StateType, AccessMask, ServiceStateKey)

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

#uselib "api-ms-win-service-core-l1-1-5.dll"
#cfunc global GetSharedServiceRegistryStateKey "GetSharedServiceRegistryStateKey" sptr, int, int, sptr
; res = GetSharedServiceRegistryStateKey(ServiceHandle, StateType, AccessMask, ServiceStateKey)
; ServiceHandle : SC_HANDLE -> "sptr"
; StateType : SERVICE_SHARED_REGISTRY_STATE_TYPE -> "int"
; AccessMask : DWORD -> "int"
; ServiceStateKey : HKEY* out -> "sptr"

; DWORD GetSharedServiceRegistryStateKey(SC_HANDLE ServiceHandle, SERVICE_SHARED_REGISTRY_STATE_TYPE StateType, DWORD AccessMask, HKEY* ServiceStateKey)
#uselib "api-ms-win-service-core-l1-1-5.dll"
#cfunc global GetSharedServiceRegistryStateKey "GetSharedServiceRegistryStateKey" intptr, int, int, intptr
; res = GetSharedServiceRegistryStateKey(ServiceHandle, StateType, AccessMask, ServiceStateKey)
; ServiceHandle : SC_HANDLE -> "intptr"
; StateType : SERVICE_SHARED_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_5 = windows.NewLazySystemDLL("api-ms-win-service-core-l1-1-5.dll")
	procGetSharedServiceRegistryStateKey = api_ms_win_service_core_l1_1_5.NewProc("GetSharedServiceRegistryStateKey")
)

// ServiceHandle (SC_HANDLE), StateType (SERVICE_SHARED_REGISTRY_STATE_TYPE), AccessMask (DWORD), ServiceStateKey (HKEY* out)
r1, _, err := procGetSharedServiceRegistryStateKey.Call(
	uintptr(ServiceHandle),
	uintptr(StateType),
	uintptr(AccessMask),
	uintptr(ServiceStateKey),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function GetSharedServiceRegistryStateKey(
  ServiceHandle: THandle;   // SC_HANDLE
  StateType: Integer;   // SERVICE_SHARED_REGISTRY_STATE_TYPE
  AccessMask: DWORD;   // DWORD
  ServiceStateKey: Pointer   // HKEY* out
): DWORD; stdcall;
  external 'api-ms-win-service-core-l1-1-5.dll' name 'GetSharedServiceRegistryStateKey';

result := DllCall("api-ms-win-service-core-l1-1-5\GetSharedServiceRegistryStateKey"
    , "Ptr", ServiceHandle   ; SC_HANDLE
    , "Int", StateType   ; SERVICE_SHARED_REGISTRY_STATE_TYPE
    , "UInt", AccessMask   ; DWORD
    , "Ptr", ServiceStateKey   ; HKEY* out
    , "UInt")   ; return: DWORD

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