TreeSetNamedSecurityInfoA

// ADVAPI32.dll  (ANSI / -A)
#include <windows.h>

WIN32_ERROR TreeSetNamedSecurityInfoA(
    LPSTR pObjectName,
    SE_OBJECT_TYPE ObjectType,
    OBJECT_SECURITY_INFORMATION SecurityInfo,
    PSID pOwner,   // optional
    PSID pGroup,   // optional
    ACL* pDacl,   // optional
    ACL* pSacl,   // optional
    TREE_SEC_INFO dwAction,
    FN_PROGRESS fnProgress,   // optional
    PROG_INVOKE_SETTING ProgressInvokeSetting,
    void* Args   // optional
);

<DllImport("ADVAPI32.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function TreeSetNamedSecurityInfoA(
    <MarshalAs(UnmanagedType.LPStr)> pObjectName As String,   ' LPSTR
    ObjectType As Integer,   ' SE_OBJECT_TYPE
    SecurityInfo As UInteger,   ' OBJECT_SECURITY_INFORMATION
    pOwner As IntPtr,   ' PSID optional
    pGroup As IntPtr,   ' PSID optional
    pDacl As IntPtr,   ' ACL* optional
    pSacl As IntPtr,   ' ACL* optional
    dwAction As UInteger,   ' TREE_SEC_INFO
    fnProgress As IntPtr,   ' FN_PROGRESS optional
    ProgressInvokeSetting As Integer,   ' PROG_INVOKE_SETTING
    Args As IntPtr   ' void* optional
) As UInteger
End Function

' pObjectName : LPSTR
' ObjectType : SE_OBJECT_TYPE
' SecurityInfo : OBJECT_SECURITY_INFORMATION
' pOwner : PSID optional
' pGroup : PSID optional
' pDacl : ACL* optional
' pSacl : ACL* optional
' dwAction : TREE_SEC_INFO
' fnProgress : FN_PROGRESS optional
' ProgressInvokeSetting : PROG_INVOKE_SETTING
' Args : void* optional
Declare PtrSafe Function TreeSetNamedSecurityInfoA Lib "advapi32" ( _
    ByVal pObjectName As String, _
    ByVal ObjectType As Long, _
    ByVal SecurityInfo As Long, _
    ByVal pOwner As LongPtr, _
    ByVal pGroup As LongPtr, _
    ByVal pDacl As LongPtr, _
    ByVal pSacl As LongPtr, _
    ByVal dwAction As Long, _
    ByVal fnProgress As LongPtr, _
    ByVal ProgressInvokeSetting As Long, _
    ByVal Args As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

TreeSetNamedSecurityInfoA = ctypes.windll.advapi32.TreeSetNamedSecurityInfoA
TreeSetNamedSecurityInfoA.restype = wintypes.DWORD
TreeSetNamedSecurityInfoA.argtypes = [
    wintypes.LPCSTR,  # pObjectName : LPSTR
    ctypes.c_int,  # ObjectType : SE_OBJECT_TYPE
    wintypes.DWORD,  # SecurityInfo : OBJECT_SECURITY_INFORMATION
    wintypes.HANDLE,  # pOwner : PSID optional
    wintypes.HANDLE,  # pGroup : PSID optional
    ctypes.c_void_p,  # pDacl : ACL* optional
    ctypes.c_void_p,  # pSacl : ACL* optional
    wintypes.DWORD,  # dwAction : TREE_SEC_INFO
    ctypes.c_void_p,  # fnProgress : FN_PROGRESS optional
    ctypes.c_int,  # ProgressInvokeSetting : PROG_INVOKE_SETTING
    ctypes.POINTER(None),  # Args : void* optional
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('ADVAPI32.dll')
TreeSetNamedSecurityInfoA = Fiddle::Function.new(
  lib['TreeSetNamedSecurityInfoA'],
  [
    Fiddle::TYPE_VOIDP,  # pObjectName : LPSTR
    Fiddle::TYPE_INT,  # ObjectType : SE_OBJECT_TYPE
    -Fiddle::TYPE_INT,  # SecurityInfo : OBJECT_SECURITY_INFORMATION
    Fiddle::TYPE_VOIDP,  # pOwner : PSID optional
    Fiddle::TYPE_VOIDP,  # pGroup : PSID optional
    Fiddle::TYPE_VOIDP,  # pDacl : ACL* optional
    Fiddle::TYPE_VOIDP,  # pSacl : ACL* optional
    -Fiddle::TYPE_INT,  # dwAction : TREE_SEC_INFO
    Fiddle::TYPE_VOIDP,  # fnProgress : FN_PROGRESS optional
    Fiddle::TYPE_INT,  # ProgressInvokeSetting : PROG_INVOKE_SETTING
    Fiddle::TYPE_VOIDP,  # Args : void* optional
  ],
  -Fiddle::TYPE_INT)

#[link(name = "advapi32")]
extern "system" {
    fn TreeSetNamedSecurityInfoA(
        pObjectName: *mut u8,  // LPSTR
        ObjectType: i32,  // SE_OBJECT_TYPE
        SecurityInfo: u32,  // OBJECT_SECURITY_INFORMATION
        pOwner: *mut core::ffi::c_void,  // PSID optional
        pGroup: *mut core::ffi::c_void,  // PSID optional
        pDacl: *mut ACL,  // ACL* optional
        pSacl: *mut ACL,  // ACL* optional
        dwAction: u32,  // TREE_SEC_INFO
        fnProgress: *const core::ffi::c_void,  // FN_PROGRESS optional
        ProgressInvokeSetting: i32,  // PROG_INVOKE_SETTING
        Args: *mut ()  // void* optional
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("ADVAPI32.dll", CharSet = CharSet.Ansi)]
public static extern uint TreeSetNamedSecurityInfoA([MarshalAs(UnmanagedType.LPStr)] string pObjectName, int ObjectType, uint SecurityInfo, IntPtr pOwner, IntPtr pGroup, IntPtr pDacl, IntPtr pSacl, uint dwAction, IntPtr fnProgress, int ProgressInvokeSetting, IntPtr Args);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ADVAPI32_TreeSetNamedSecurityInfoA' -Namespace Win32 -PassThru
# $api::TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args)

#uselib "ADVAPI32.dll"
#func global TreeSetNamedSecurityInfoA "TreeSetNamedSecurityInfoA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; TreeSetNamedSecurityInfoA pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, varptr(pDacl), varptr(pSacl), dwAction, fnProgress, ProgressInvokeSetting, Args   ; 戻り値は stat
; pObjectName : LPSTR -> "sptr"
; ObjectType : SE_OBJECT_TYPE -> "sptr"
; SecurityInfo : OBJECT_SECURITY_INFORMATION -> "sptr"
; pOwner : PSID optional -> "sptr"
; pGroup : PSID optional -> "sptr"
; pDacl : ACL* optional -> "sptr"
; pSacl : ACL* optional -> "sptr"
; dwAction : TREE_SEC_INFO -> "sptr"
; fnProgress : FN_PROGRESS optional -> "sptr"
; ProgressInvokeSetting : PROG_INVOKE_SETTING -> "sptr"
; Args : void* optional -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

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

var (
	advapi32 = windows.NewLazySystemDLL("ADVAPI32.dll")
	procTreeSetNamedSecurityInfoA = advapi32.NewProc("TreeSetNamedSecurityInfoA")
)

// pObjectName (LPSTR), ObjectType (SE_OBJECT_TYPE), SecurityInfo (OBJECT_SECURITY_INFORMATION), pOwner (PSID optional), pGroup (PSID optional), pDacl (ACL* optional), pSacl (ACL* optional), dwAction (TREE_SEC_INFO), fnProgress (FN_PROGRESS optional), ProgressInvokeSetting (PROG_INVOKE_SETTING), Args (void* optional)
r1, _, err := procTreeSetNamedSecurityInfoA.Call(
	uintptr(unsafe.Pointer(windows.BytePtrFromString(pObjectName))),
	uintptr(ObjectType),
	uintptr(SecurityInfo),
	uintptr(pOwner),
	uintptr(pGroup),
	uintptr(pDacl),
	uintptr(pSacl),
	uintptr(dwAction),
	uintptr(fnProgress),
	uintptr(ProgressInvokeSetting),
	uintptr(Args),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // WIN32_ERROR

function TreeSetNamedSecurityInfoA(
  pObjectName: PAnsiChar;   // LPSTR
  ObjectType: Integer;   // SE_OBJECT_TYPE
  SecurityInfo: DWORD;   // OBJECT_SECURITY_INFORMATION
  pOwner: THandle;   // PSID optional
  pGroup: THandle;   // PSID optional
  pDacl: Pointer;   // ACL* optional
  pSacl: Pointer;   // ACL* optional
  dwAction: DWORD;   // TREE_SEC_INFO
  fnProgress: Pointer;   // FN_PROGRESS optional
  ProgressInvokeSetting: Integer;   // PROG_INVOKE_SETTING
  Args: Pointer   // void* optional
): DWORD; stdcall;
  external 'ADVAPI32.dll' name 'TreeSetNamedSecurityInfoA';

result := DllCall("ADVAPI32\TreeSetNamedSecurityInfoA"
    , "AStr", pObjectName   ; LPSTR
    , "Int", ObjectType   ; SE_OBJECT_TYPE
    , "UInt", SecurityInfo   ; OBJECT_SECURITY_INFORMATION
    , "Ptr", pOwner   ; PSID optional
    , "Ptr", pGroup   ; PSID optional
    , "Ptr", pDacl   ; ACL* optional
    , "Ptr", pSacl   ; ACL* optional
    , "UInt", dwAction   ; TREE_SEC_INFO
    , "Ptr", fnProgress   ; FN_PROGRESS optional
    , "Int", ProgressInvokeSetting   ; PROG_INVOKE_SETTING
    , "Ptr", Args   ; void* optional
    , "UInt")   ; return: WIN32_ERROR

●TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args) = DLL("ADVAPI32.dll", "dword TreeSetNamedSecurityInfoA(char*, int, dword, void*, void*, void*, void*, dword, void*, int, void*)")
# 呼び出し: TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args)
# pObjectName : LPSTR -> "char*"
# ObjectType : SE_OBJECT_TYPE -> "int"
# SecurityInfo : OBJECT_SECURITY_INFORMATION -> "dword"
# pOwner : PSID optional -> "void*"
# pGroup : PSID optional -> "void*"
# pDacl : ACL* optional -> "void*"
# pSacl : ACL* optional -> "void*"
# dwAction : TREE_SEC_INFO -> "dword"
# fnProgress : FN_PROGRESS optional -> "void*"
# ProgressInvokeSetting : PROG_INVOKE_SETTING -> "int"
# Args : void* optional -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。

const std = @import("std");

extern "advapi32" fn TreeSetNamedSecurityInfoA(
    pObjectName: [*c]const u8, // LPSTR
    ObjectType: i32, // SE_OBJECT_TYPE
    SecurityInfo: u32, // OBJECT_SECURITY_INFORMATION
    pOwner: ?*anyopaque, // PSID optional
    pGroup: ?*anyopaque, // PSID optional
    pDacl: [*c]ACL, // ACL* optional
    pSacl: [*c]ACL, // ACL* optional
    dwAction: u32, // TREE_SEC_INFO
    fnProgress: ?*anyopaque, // FN_PROGRESS optional
    ProgressInvokeSetting: i32, // PROG_INVOKE_SETTING
    Args: ?*anyopaque // void* optional
) callconv(std.os.windows.WINAPI) u32;

proc TreeSetNamedSecurityInfoA(
    pObjectName: cstring,  # LPSTR
    ObjectType: int32,  # SE_OBJECT_TYPE
    SecurityInfo: uint32,  # OBJECT_SECURITY_INFORMATION
    pOwner: pointer,  # PSID optional
    pGroup: pointer,  # PSID optional
    pDacl: ptr ACL,  # ACL* optional
    pSacl: ptr ACL,  # ACL* optional
    dwAction: uint32,  # TREE_SEC_INFO
    fnProgress: pointer,  # FN_PROGRESS optional
    ProgressInvokeSetting: int32,  # PROG_INVOKE_SETTING
    Args: pointer  # void* optional
): uint32 {.importc: "TreeSetNamedSecurityInfoA", stdcall, dynlib: "ADVAPI32.dll".}

pragma(lib, "advapi32");
extern(Windows)
uint TreeSetNamedSecurityInfoA(
    const(char)* pObjectName,   // LPSTR
    int ObjectType,   // SE_OBJECT_TYPE
    uint SecurityInfo,   // OBJECT_SECURITY_INFORMATION
    void* pOwner,   // PSID optional
    void* pGroup,   // PSID optional
    ACL* pDacl,   // ACL* optional
    ACL* pSacl,   // ACL* optional
    uint dwAction,   // TREE_SEC_INFO
    void* fnProgress,   // FN_PROGRESS optional
    int ProgressInvokeSetting,   // PROG_INVOKE_SETTING
    void* Args   // void* optional
);

ccall((:TreeSetNamedSecurityInfoA, "ADVAPI32.dll"), stdcall, UInt32,
      (Cstring, Int32, UInt32, Ptr{Cvoid}, Ptr{Cvoid}, Ptr{ACL}, Ptr{ACL}, UInt32, Ptr{Cvoid}, Int32, Ptr{Cvoid}),
      pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args)
# pObjectName : LPSTR -> Cstring
# ObjectType : SE_OBJECT_TYPE -> Int32
# SecurityInfo : OBJECT_SECURITY_INFORMATION -> UInt32
# pOwner : PSID optional -> Ptr{Cvoid}
# pGroup : PSID optional -> Ptr{Cvoid}
# pDacl : ACL* optional -> Ptr{ACL}
# pSacl : ACL* optional -> Ptr{ACL}
# dwAction : TREE_SEC_INFO -> UInt32
# fnProgress : FN_PROGRESS optional -> Ptr{Cvoid}
# ProgressInvokeSetting : PROG_INVOKE_SETTING -> Int32
# Args : void* optional -> Ptr{Cvoid}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。

local ffi = require("ffi")
ffi.cdef[[
uint32_t TreeSetNamedSecurityInfoA(
    const char* pObjectName,
    int32_t ObjectType,
    uint32_t SecurityInfo,
    void* pOwner,
    void* pGroup,
    void* pDacl,
    void* pSacl,
    uint32_t dwAction,
    void* fnProgress,
    int32_t ProgressInvokeSetting,
    void* Args);
]]
local advapi32 = ffi.load("advapi32")
-- advapi32.TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args)
-- pObjectName : LPSTR
-- ObjectType : SE_OBJECT_TYPE
-- SecurityInfo : OBJECT_SECURITY_INFORMATION
-- pOwner : PSID optional
-- pGroup : PSID optional
-- pDacl : ACL* optional
-- pSacl : ACL* optional
-- dwAction : TREE_SEC_INFO
-- fnProgress : FN_PROGRESS optional
-- ProgressInvokeSetting : PROG_INVOKE_SETTING
-- Args : void* optional
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。

const koffi = require('koffi');
const lib = koffi.load('ADVAPI32.dll');
const TreeSetNamedSecurityInfoA = lib.func('__stdcall', 'TreeSetNamedSecurityInfoA', 'uint32_t', ['str', 'int32_t', 'uint32_t', 'void *', 'void *', 'void *', 'void *', 'uint32_t', 'void *', 'int32_t', 'void *']);
// TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args)
// pObjectName : LPSTR -> 'str'
// ObjectType : SE_OBJECT_TYPE -> 'int32_t'
// SecurityInfo : OBJECT_SECURITY_INFORMATION -> 'uint32_t'
// pOwner : PSID optional -> 'void *'
// pGroup : PSID optional -> 'void *'
// pDacl : ACL* optional -> 'void *'
// pSacl : ACL* optional -> 'void *'
// dwAction : TREE_SEC_INFO -> 'uint32_t'
// fnProgress : FN_PROGRESS optional -> 'void *'
// ProgressInvokeSetting : PROG_INVOKE_SETTING -> 'int32_t'
// Args : void* optional -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
// コールバック(関数ポインタ)は koffi.proto/koffi.register で型を定義して渡す(素の void* では JS 関数を渡せない)。

const lib = Deno.dlopen("ADVAPI32.dll", {
  TreeSetNamedSecurityInfoA: { parameters: ["buffer", "i32", "u32", "pointer", "pointer", "pointer", "pointer", "u32", "pointer", "i32", "pointer"], result: "u32" },
});
// lib.symbols.TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args)
// pObjectName : LPSTR -> "buffer"
// ObjectType : SE_OBJECT_TYPE -> "i32"
// SecurityInfo : OBJECT_SECURITY_INFORMATION -> "u32"
// pOwner : PSID optional -> "pointer"
// pGroup : PSID optional -> "pointer"
// pDacl : ACL* optional -> "pointer"
// pSacl : ACL* optional -> "pointer"
// dwAction : TREE_SEC_INFO -> "u32"
// fnProgress : FN_PROGRESS optional -> "pointer"
// ProgressInvokeSetting : PROG_INVOKE_SETTING -> "i32"
// Args : void* optional -> "pointer"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
uint32_t TreeSetNamedSecurityInfoA(
    const char* pObjectName,
    int32_t ObjectType,
    uint32_t SecurityInfo,
    void* pOwner,
    void* pGroup,
    void* pDacl,
    void* pSacl,
    uint32_t dwAction,
    void* fnProgress,
    int32_t ProgressInvokeSetting,
    void* Args);
C, "ADVAPI32.dll");
// $ffi->TreeSetNamedSecurityInfoA(pObjectName, ObjectType, SecurityInfo, pOwner, pGroup, pDacl, pSacl, dwAction, fnProgress, ProgressInvokeSetting, Args);
// pObjectName : LPSTR
// ObjectType : SE_OBJECT_TYPE
// SecurityInfo : OBJECT_SECURITY_INFORMATION
// pOwner : PSID optional
// pGroup : PSID optional
// pDacl : ACL* optional
// pSacl : ACL* optional
// dwAction : TREE_SEC_INFO
// fnProgress : FN_PROGRESS optional
// ProgressInvokeSetting : PROG_INVOKE_SETTING
// Args : void* optional
// 構造体/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 Advapi32 extends StdCallLibrary {
    Advapi32 INSTANCE = Native.load("advapi32", Advapi32.class, W32APIOptions.ASCII_OPTIONS);
    int TreeSetNamedSecurityInfoA(
        String pObjectName,   // LPSTR
        int ObjectType,   // SE_OBJECT_TYPE
        int SecurityInfo,   // OBJECT_SECURITY_INFORMATION
        Pointer pOwner,   // PSID optional
        Pointer pGroup,   // PSID optional
        Pointer pDacl,   // ACL* optional
        Pointer pSacl,   // ACL* optional
        int dwAction,   // TREE_SEC_INFO
        Callback fnProgress,   // FN_PROGRESS optional
        int ProgressInvokeSetting,   // PROG_INVOKE_SETTING
        Pointer Args   // void* optional
    );
}

@[Link("advapi32")]
lib LibADVAPI32
  fun TreeSetNamedSecurityInfoA = TreeSetNamedSecurityInfoA(
    pObjectName : UInt8*,   # LPSTR
    ObjectType : Int32,   # SE_OBJECT_TYPE
    SecurityInfo : UInt32,   # OBJECT_SECURITY_INFORMATION
    pOwner : Void*,   # PSID optional
    pGroup : Void*,   # PSID optional
    pDacl : ACL*,   # ACL* optional
    pSacl : ACL*,   # ACL* optional
    dwAction : UInt32,   # TREE_SEC_INFO
    fnProgress : Void*,   # FN_PROGRESS optional
    ProgressInvokeSetting : Int32,   # PROG_INVOKE_SETTING
    Args : Void*   # void* optional
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

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

typedef TreeSetNamedSecurityInfoANative = Uint32 Function(Pointer<Utf8>, Int32, Uint32, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, Uint32, Pointer<Void>, Int32, Pointer<Void>);
typedef TreeSetNamedSecurityInfoADart = int Function(Pointer<Utf8>, int, int, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, int, Pointer<Void>, int, Pointer<Void>);
final TreeSetNamedSecurityInfoA = DynamicLibrary.open('ADVAPI32.dll')
    .lookupFunction<TreeSetNamedSecurityInfoANative, TreeSetNamedSecurityInfoADart>('TreeSetNamedSecurityInfoA');
// pObjectName : LPSTR -> Pointer<Utf8>
// ObjectType : SE_OBJECT_TYPE -> Int32
// SecurityInfo : OBJECT_SECURITY_INFORMATION -> Uint32
// pOwner : PSID optional -> Pointer<Void>
// pGroup : PSID optional -> Pointer<Void>
// pDacl : ACL* optional -> Pointer<Void>
// pSacl : ACL* optional -> Pointer<Void>
// dwAction : TREE_SEC_INFO -> Uint32
// fnProgress : FN_PROGRESS optional -> Pointer<Void>
// ProgressInvokeSetting : PROG_INVOKE_SETTING -> Int32
// Args : void* optional -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function TreeSetNamedSecurityInfoA(
  pObjectName: PAnsiChar;   // LPSTR
  ObjectType: Integer;   // SE_OBJECT_TYPE
  SecurityInfo: DWORD;   // OBJECT_SECURITY_INFORMATION
  pOwner: THandle;   // PSID optional
  pGroup: THandle;   // PSID optional
  pDacl: Pointer;   // ACL* optional
  pSacl: Pointer;   // ACL* optional
  dwAction: DWORD;   // TREE_SEC_INFO
  fnProgress: Pointer;   // FN_PROGRESS optional
  ProgressInvokeSetting: Integer;   // PROG_INVOKE_SETTING
  Args: Pointer   // void* optional
): DWORD; stdcall;
  external 'ADVAPI32.dll' name 'TreeSetNamedSecurityInfoA';

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

foreign import stdcall safe "TreeSetNamedSecurityInfoA"
  c_TreeSetNamedSecurityInfoA :: CString -> Int32 -> Word32 -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> Word32 -> Ptr () -> Int32 -> Ptr () -> IO Word32
-- pObjectName : LPSTR -> CString
-- ObjectType : SE_OBJECT_TYPE -> Int32
-- SecurityInfo : OBJECT_SECURITY_INFORMATION -> Word32
-- pOwner : PSID optional -> Ptr ()
-- pGroup : PSID optional -> Ptr ()
-- pDacl : ACL* optional -> Ptr ()
-- pSacl : ACL* optional -> Ptr ()
-- dwAction : TREE_SEC_INFO -> Word32
-- fnProgress : FN_PROGRESS optional -> Ptr ()
-- ProgressInvokeSetting : PROG_INVOKE_SETTING -> Int32
-- Args : void* optional -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let treesetnamedsecurityinfoa =
  foreign "TreeSetNamedSecurityInfoA"
    (string @-> int32_t @-> uint32_t @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> uint32_t @-> (ptr void) @-> int32_t @-> (ptr void) @-> returning uint32_t)
(* pObjectName : LPSTR -> string *)
(* ObjectType : SE_OBJECT_TYPE -> int32_t *)
(* SecurityInfo : OBJECT_SECURITY_INFORMATION -> uint32_t *)
(* pOwner : PSID optional -> (ptr void) *)
(* pGroup : PSID optional -> (ptr void) *)
(* pDacl : ACL* optional -> (ptr void) *)
(* pSacl : ACL* optional -> (ptr void) *)
(* dwAction : TREE_SEC_INFO -> uint32_t *)
(* fnProgress : FN_PROGRESS optional -> (ptr void) *)
(* ProgressInvokeSetting : PROG_INVOKE_SETTING -> int32_t *)
(* Args : void* optional -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library advapi32 (t "ADVAPI32.dll"))
(cffi:use-foreign-library advapi32)

(cffi:defcfun ("TreeSetNamedSecurityInfoA" tree-set-named-security-info-a :convention :stdcall) :uint32
  (p-object-name :string)   ; LPSTR
  (object-type :int32)   ; SE_OBJECT_TYPE
  (security-info :uint32)   ; OBJECT_SECURITY_INFORMATION
  (p-owner :pointer)   ; PSID optional
  (p-group :pointer)   ; PSID optional
  (p-dacl :pointer)   ; ACL* optional
  (p-sacl :pointer)   ; ACL* optional
  (dw-action :uint32)   ; TREE_SEC_INFO
  (fn-progress :pointer)   ; FN_PROGRESS optional
  (progress-invoke-setting :int32)   ; PROG_INVOKE_SETTING
  (args :pointer))   ; void* optional
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $TreeSetNamedSecurityInfoA = Win32::API::More->new('ADVAPI32',
    'DWORD TreeSetNamedSecurityInfoA(LPCSTR pObjectName, int ObjectType, DWORD SecurityInfo, HANDLE pOwner, HANDLE pGroup, LPVOID pDacl, LPVOID pSacl, DWORD dwAction, LPVOID fnProgress, int ProgressInvokeSetting, LPVOID Args)');
# my $ret = $TreeSetNamedSecurityInfoA->Call($pObjectName, $ObjectType, $SecurityInfo, $pOwner, $pGroup, $pDacl, $pSacl, $dwAction, $fnProgress, $ProgressInvokeSetting, $Args);
# pObjectName : LPSTR -> LPCSTR
# ObjectType : SE_OBJECT_TYPE -> int
# SecurityInfo : OBJECT_SECURITY_INFORMATION -> DWORD
# pOwner : PSID optional -> HANDLE
# pGroup : PSID optional -> HANDLE
# pDacl : ACL* optional -> LPVOID
# pSacl : ACL* optional -> LPVOID
# dwAction : TREE_SEC_INFO -> DWORD
# fnProgress : FN_PROGRESS optional -> LPVOID
# ProgressInvokeSetting : PROG_INVOKE_SETTING -> int
# Args : void* optional -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# コールバック(関数ポインタ)は Perl sub を直接渡せません。Win32::API::Callback を使用してください。