PackageNameAndPublisherIdFromFamilyName

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

WIN32_ERROR PackageNameAndPublisherIdFromFamilyName(
    LPCWSTR packageFamilyName,
    DWORD* packageNameLength,
    LPWSTR packageName,   // optional
    DWORD* packagePublisherIdLength,
    LPWSTR packagePublisherId   // optional
);

<DllImport("KERNEL32.dll", ExactSpelling:=True)>
Public Shared Function PackageNameAndPublisherIdFromFamilyName(
    <MarshalAs(UnmanagedType.LPWStr)> packageFamilyName As String,   ' LPCWSTR
    ByRef packageNameLength As UInteger,   ' DWORD* in/out
    <MarshalAs(UnmanagedType.LPWStr)> packageName As System.Text.StringBuilder,   ' LPWSTR optional, out
    ByRef packagePublisherIdLength As UInteger,   ' DWORD* in/out
    <MarshalAs(UnmanagedType.LPWStr)> packagePublisherId As System.Text.StringBuilder   ' LPWSTR optional, out
) As UInteger
End Function

' packageFamilyName : LPCWSTR
' packageNameLength : DWORD* in/out
' packageName : LPWSTR optional, out
' packagePublisherIdLength : DWORD* in/out
' packagePublisherId : LPWSTR optional, out
Declare PtrSafe Function PackageNameAndPublisherIdFromFamilyName Lib "kernel32" ( _
    ByVal packageFamilyName As LongPtr, _
    ByRef packageNameLength As Long, _
    ByVal packageName As LongPtr, _
    ByRef packagePublisherIdLength As Long, _
    ByVal packagePublisherId As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

PackageNameAndPublisherIdFromFamilyName = ctypes.windll.kernel32.PackageNameAndPublisherIdFromFamilyName
PackageNameAndPublisherIdFromFamilyName.restype = wintypes.DWORD
PackageNameAndPublisherIdFromFamilyName.argtypes = [
    wintypes.LPCWSTR,  # packageFamilyName : LPCWSTR
    ctypes.POINTER(wintypes.DWORD),  # packageNameLength : DWORD* in/out
    wintypes.LPWSTR,  # packageName : LPWSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # packagePublisherIdLength : DWORD* in/out
    wintypes.LPWSTR,  # packagePublisherId : LPWSTR optional, out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('KERNEL32.dll')
PackageNameAndPublisherIdFromFamilyName = Fiddle::Function.new(
  lib['PackageNameAndPublisherIdFromFamilyName'],
  [
    Fiddle::TYPE_VOIDP,  # packageFamilyName : LPCWSTR
    Fiddle::TYPE_VOIDP,  # packageNameLength : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # packageName : LPWSTR optional, out
    Fiddle::TYPE_VOIDP,  # packagePublisherIdLength : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # packagePublisherId : LPWSTR optional, out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "kernel32")]
extern "system" {
    fn PackageNameAndPublisherIdFromFamilyName(
        packageFamilyName: *const u16,  // LPCWSTR
        packageNameLength: *mut u32,  // DWORD* in/out
        packageName: *mut u16,  // LPWSTR optional, out
        packagePublisherIdLength: *mut u32,  // DWORD* in/out
        packagePublisherId: *mut u16  // LPWSTR optional, out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("KERNEL32.dll")]
public static extern uint PackageNameAndPublisherIdFromFamilyName([MarshalAs(UnmanagedType.LPWStr)] string packageFamilyName, ref uint packageNameLength, [MarshalAs(UnmanagedType.LPWStr)] System.Text.StringBuilder packageName, ref uint packagePublisherIdLength, [MarshalAs(UnmanagedType.LPWStr)] System.Text.StringBuilder packagePublisherId);
"@
$api = Add-Type -MemberDefinition $sig -Name 'KERNEL32_PackageNameAndPublisherIdFromFamilyName' -Namespace Win32 -PassThru
# $api::PackageNameAndPublisherIdFromFamilyName(packageFamilyName, packageNameLength, packageName, packagePublisherIdLength, packagePublisherId)

#uselib "KERNEL32.dll"
#func global PackageNameAndPublisherIdFromFamilyName "PackageNameAndPublisherIdFromFamilyName" sptr, sptr, sptr, sptr, sptr
; PackageNameAndPublisherIdFromFamilyName packageFamilyName, varptr(packageNameLength), varptr(packageName), varptr(packagePublisherIdLength), varptr(packagePublisherId)   ; 戻り値は stat
; packageFamilyName : LPCWSTR -> "sptr"
; packageNameLength : DWORD* in/out -> "sptr"
; packageName : LPWSTR optional, out -> "sptr"
; packagePublisherIdLength : DWORD* in/out -> "sptr"
; packagePublisherId : LPWSTR optional, out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "KERNEL32.dll"
#cfunc global PackageNameAndPublisherIdFromFamilyName "PackageNameAndPublisherIdFromFamilyName" wstr, var, var, var, var
; res = PackageNameAndPublisherIdFromFamilyName(packageFamilyName, packageNameLength, packageName, packagePublisherIdLength, packagePublisherId)
; packageFamilyName : LPCWSTR -> "wstr"
; packageNameLength : DWORD* in/out -> "var"
; packageName : LPWSTR optional, out -> "var"
; packagePublisherIdLength : DWORD* in/out -> "var"
; packagePublisherId : LPWSTR optional, out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; WIN32_ERROR PackageNameAndPublisherIdFromFamilyName(LPCWSTR packageFamilyName, DWORD* packageNameLength, LPWSTR packageName, DWORD* packagePublisherIdLength, LPWSTR packagePublisherId)
#uselib "KERNEL32.dll"
#cfunc global PackageNameAndPublisherIdFromFamilyName "PackageNameAndPublisherIdFromFamilyName" wstr, var, var, var, var
; res = PackageNameAndPublisherIdFromFamilyName(packageFamilyName, packageNameLength, packageName, packagePublisherIdLength, packagePublisherId)
; packageFamilyName : LPCWSTR -> "wstr"
; packageNameLength : DWORD* in/out -> "var"
; packageName : LPWSTR optional, out -> "var"
; packagePublisherIdLength : DWORD* in/out -> "var"
; packagePublisherId : LPWSTR optional, out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	kernel32 = windows.NewLazySystemDLL("KERNEL32.dll")
	procPackageNameAndPublisherIdFromFamilyName = kernel32.NewProc("PackageNameAndPublisherIdFromFamilyName")
)

// packageFamilyName (LPCWSTR), packageNameLength (DWORD* in/out), packageName (LPWSTR optional, out), packagePublisherIdLength (DWORD* in/out), packagePublisherId (LPWSTR optional, out)
r1, _, err := procPackageNameAndPublisherIdFromFamilyName.Call(
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(packageFamilyName))),
	uintptr(packageNameLength),
	uintptr(packageName),
	uintptr(packagePublisherIdLength),
	uintptr(packagePublisherId),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // WIN32_ERROR

function PackageNameAndPublisherIdFromFamilyName(
  packageFamilyName: PWideChar;   // LPCWSTR
  packageNameLength: Pointer;   // DWORD* in/out
  packageName: PWideChar;   // LPWSTR optional, out
  packagePublisherIdLength: Pointer;   // DWORD* in/out
  packagePublisherId: PWideChar   // LPWSTR optional, out
): DWORD; stdcall;
  external 'KERNEL32.dll' name 'PackageNameAndPublisherIdFromFamilyName';

result := DllCall("KERNEL32\PackageNameAndPublisherIdFromFamilyName"
    , "WStr", packageFamilyName   ; LPCWSTR
    , "Ptr", packageNameLength   ; DWORD* in/out
    , "Ptr", packageName   ; LPWSTR optional, out
    , "Ptr", packagePublisherIdLength   ; DWORD* in/out
    , "Ptr", packagePublisherId   ; LPWSTR optional, out
    , "UInt")   ; return: WIN32_ERROR

●PackageNameAndPublisherIdFromFamilyName(packageFamilyName, packageNameLength, packageName, packagePublisherIdLength, packagePublisherId) = DLL("KERNEL32.dll", "dword PackageNameAndPublisherIdFromFamilyName(char*, void*, char*, void*, char*)")
# 呼び出し: PackageNameAndPublisherIdFromFamilyName(packageFamilyName, packageNameLength, packageName, packagePublisherIdLength, packagePublisherId)
# packageFamilyName : LPCWSTR -> "char*"
# packageNameLength : DWORD* in/out -> "void*"
# packageName : LPWSTR optional, out -> "char*"
# packagePublisherIdLength : DWORD* in/out -> "void*"
# packagePublisherId : LPWSTR optional, out -> "char*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。