SaferSetLevelInformation

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

BOOL SaferSetLevelInformation(
    SAFER_LEVEL_HANDLE LevelHandle,
    SAFER_OBJECT_INFO_CLASS dwInfoType,
    void* lpQueryBuffer,
    DWORD dwInBufferSize
);

<DllImport("ADVAPI32.dll", SetLastError:=True, ExactSpelling:=True)>
Public Shared Function SaferSetLevelInformation(
    LevelHandle As IntPtr,   ' SAFER_LEVEL_HANDLE
    dwInfoType As Integer,   ' SAFER_OBJECT_INFO_CLASS
    lpQueryBuffer As IntPtr,   ' void*
    dwInBufferSize As UInteger   ' DWORD
) As Boolean
End Function

' LevelHandle : SAFER_LEVEL_HANDLE
' dwInfoType : SAFER_OBJECT_INFO_CLASS
' lpQueryBuffer : void*
' dwInBufferSize : DWORD
Declare PtrSafe Function SaferSetLevelInformation Lib "advapi32" ( _
    ByVal LevelHandle As LongPtr, _
    ByVal dwInfoType As Long, _
    ByVal lpQueryBuffer As LongPtr, _
    ByVal dwInBufferSize As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

SaferSetLevelInformation = ctypes.windll.advapi32.SaferSetLevelInformation
SaferSetLevelInformation.restype = wintypes.BOOL
SaferSetLevelInformation.argtypes = [
    wintypes.HANDLE,  # LevelHandle : SAFER_LEVEL_HANDLE
    ctypes.c_int,  # dwInfoType : SAFER_OBJECT_INFO_CLASS
    ctypes.POINTER(None),  # lpQueryBuffer : void*
    wintypes.DWORD,  # dwInBufferSize : DWORD
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ADVAPI32.dll')
SaferSetLevelInformation = Fiddle::Function.new(
  lib['SaferSetLevelInformation'],
  [
    Fiddle::TYPE_VOIDP,  # LevelHandle : SAFER_LEVEL_HANDLE
    Fiddle::TYPE_INT,  # dwInfoType : SAFER_OBJECT_INFO_CLASS
    Fiddle::TYPE_VOIDP,  # lpQueryBuffer : void*
    -Fiddle::TYPE_INT,  # dwInBufferSize : DWORD
  ],
  Fiddle::TYPE_INT)

#[link(name = "advapi32")]
extern "system" {
    fn SaferSetLevelInformation(
        LevelHandle: *mut core::ffi::c_void,  // SAFER_LEVEL_HANDLE
        dwInfoType: i32,  // SAFER_OBJECT_INFO_CLASS
        lpQueryBuffer: *mut (),  // void*
        dwInBufferSize: u32  // DWORD
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("ADVAPI32.dll", SetLastError = true)]
public static extern bool SaferSetLevelInformation(IntPtr LevelHandle, int dwInfoType, IntPtr lpQueryBuffer, uint dwInBufferSize);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ADVAPI32_SaferSetLevelInformation' -Namespace Win32 -PassThru
# $api::SaferSetLevelInformation(LevelHandle, dwInfoType, lpQueryBuffer, dwInBufferSize)

#uselib "ADVAPI32.dll"
#func global SaferSetLevelInformation "SaferSetLevelInformation" sptr, sptr, sptr, sptr
; SaferSetLevelInformation LevelHandle, dwInfoType, lpQueryBuffer, dwInBufferSize   ; 戻り値は stat
; LevelHandle : SAFER_LEVEL_HANDLE -> "sptr"
; dwInfoType : SAFER_OBJECT_INFO_CLASS -> "sptr"
; lpQueryBuffer : void* -> "sptr"
; dwInBufferSize : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "ADVAPI32.dll"
#cfunc global SaferSetLevelInformation "SaferSetLevelInformation" sptr, int, sptr, int
; res = SaferSetLevelInformation(LevelHandle, dwInfoType, lpQueryBuffer, dwInBufferSize)
; LevelHandle : SAFER_LEVEL_HANDLE -> "sptr"
; dwInfoType : SAFER_OBJECT_INFO_CLASS -> "int"
; lpQueryBuffer : void* -> "sptr"
; dwInBufferSize : DWORD -> "int"

; BOOL SaferSetLevelInformation(SAFER_LEVEL_HANDLE LevelHandle, SAFER_OBJECT_INFO_CLASS dwInfoType, void* lpQueryBuffer, DWORD dwInBufferSize)
#uselib "ADVAPI32.dll"
#cfunc global SaferSetLevelInformation "SaferSetLevelInformation" intptr, int, intptr, int
; res = SaferSetLevelInformation(LevelHandle, dwInfoType, lpQueryBuffer, dwInBufferSize)
; LevelHandle : SAFER_LEVEL_HANDLE -> "intptr"
; dwInfoType : SAFER_OBJECT_INFO_CLASS -> "int"
; lpQueryBuffer : void* -> "intptr"
; dwInBufferSize : DWORD -> "int"

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

var (
	advapi32 = windows.NewLazySystemDLL("ADVAPI32.dll")
	procSaferSetLevelInformation = advapi32.NewProc("SaferSetLevelInformation")
)

// LevelHandle (SAFER_LEVEL_HANDLE), dwInfoType (SAFER_OBJECT_INFO_CLASS), lpQueryBuffer (void*), dwInBufferSize (DWORD)
r1, _, err := procSaferSetLevelInformation.Call(
	uintptr(LevelHandle),
	uintptr(dwInfoType),
	uintptr(lpQueryBuffer),
	uintptr(dwInBufferSize),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // BOOL

function SaferSetLevelInformation(
  LevelHandle: THandle;   // SAFER_LEVEL_HANDLE
  dwInfoType: Integer;   // SAFER_OBJECT_INFO_CLASS
  lpQueryBuffer: Pointer;   // void*
  dwInBufferSize: DWORD   // DWORD
): BOOL; stdcall;
  external 'ADVAPI32.dll' name 'SaferSetLevelInformation';

result := DllCall("ADVAPI32\SaferSetLevelInformation"
    , "Ptr", LevelHandle   ; SAFER_LEVEL_HANDLE
    , "Int", dwInfoType   ; SAFER_OBJECT_INFO_CLASS
    , "Ptr", lpQueryBuffer   ; void*
    , "UInt", dwInBufferSize   ; DWORD
    , "Int")   ; return: BOOL

●SaferSetLevelInformation(LevelHandle, dwInfoType, lpQueryBuffer, dwInBufferSize) = DLL("ADVAPI32.dll", "bool SaferSetLevelInformation(void*, int, void*, dword)")
# 呼び出し: SaferSetLevelInformation(LevelHandle, dwInfoType, lpQueryBuffer, dwInBufferSize)
# LevelHandle : SAFER_LEVEL_HANDLE -> "void*"
# dwInfoType : SAFER_OBJECT_INFO_CLASS -> "int"
# lpQueryBuffer : void* -> "void*"
# dwInBufferSize : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。