ホーム › NetworkManagement.WindowsFilteringPlatform › FwpmFilterSetSecurityInfoByKey0
FwpmFilterSetSecurityInfoByKey0
関数指定キーのWFPフィルターのセキュリティ情報を設定する。
シグネチャ
// fwpuclnt.dll
#include <windows.h>
DWORD FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE engineHandle,
const GUID* key, // optional
DWORD securityInfo,
const SID* sidOwner, // optional
const SID* sidGroup, // optional
const ACL* dacl, // optional
const ACL* sacl // optional
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| engineHandle | FWPM_ENGINE_HANDLE | in | フィルタリングエンジンへのセッションハンドル。 |
| key | GUID* | inoptional | 対象フィルターを識別するGUID。NULL指定でフィルターコンテナに適用する。 |
| securityInfo | DWORD | in | 設定するセキュリティ情報の種別を示すSECURITY_INFORMATIONビットフラグ。 |
| sidOwner | SID* | inoptional | 設定する所有者SID。変更しない場合はNULL可。 |
| sidGroup | SID* | inoptional | 設定するプライマリグループSID。変更しない場合はNULL可。 |
| dacl | ACL* | inoptional | 設定するDACL。変更しない場合はNULL可。 |
| sacl | ACL* | inoptional | 設定するSACL。変更しない場合はNULL可。 |
戻り値の型: DWORD
各言語での呼び出し定義
// fwpuclnt.dll
#include <windows.h>
DWORD FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE engineHandle,
const GUID* key, // optional
DWORD securityInfo,
const SID* sidOwner, // optional
const SID* sidGroup, // optional
const ACL* dacl, // optional
const ACL* sacl // optional
);[DllImport("fwpuclnt.dll", ExactSpelling = true)]
static extern uint FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE engineHandle, // FWPM_ENGINE_HANDLE
IntPtr key, // GUID* optional
uint securityInfo, // DWORD
IntPtr sidOwner, // SID* optional
IntPtr sidGroup, // SID* optional
IntPtr dacl, // ACL* optional
IntPtr sacl // ACL* optional
);<DllImport("fwpuclnt.dll", ExactSpelling:=True)>
Public Shared Function FwpmFilterSetSecurityInfoByKey0(
engineHandle As FWPM_ENGINE_HANDLE, ' FWPM_ENGINE_HANDLE
key As IntPtr, ' GUID* optional
securityInfo As UInteger, ' DWORD
sidOwner As IntPtr, ' SID* optional
sidGroup As IntPtr, ' SID* optional
dacl As IntPtr, ' ACL* optional
sacl As IntPtr ' ACL* optional
) As UInteger
End Function' engineHandle : FWPM_ENGINE_HANDLE
' key : GUID* optional
' securityInfo : DWORD
' sidOwner : SID* optional
' sidGroup : SID* optional
' dacl : ACL* optional
' sacl : ACL* optional
Declare PtrSafe Function FwpmFilterSetSecurityInfoByKey0 Lib "fwpuclnt" ( _
ByVal engineHandle As LongPtr, _
ByVal key As LongPtr, _
ByVal securityInfo As Long, _
ByVal sidOwner As LongPtr, _
ByVal sidGroup As LongPtr, _
ByVal dacl As LongPtr, _
ByVal sacl As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
FwpmFilterSetSecurityInfoByKey0 = ctypes.windll.fwpuclnt.FwpmFilterSetSecurityInfoByKey0
FwpmFilterSetSecurityInfoByKey0.restype = wintypes.DWORD
FwpmFilterSetSecurityInfoByKey0.argtypes = [
FWPM_ENGINE_HANDLE, # engineHandle : FWPM_ENGINE_HANDLE
ctypes.c_void_p, # key : GUID* optional
wintypes.DWORD, # securityInfo : DWORD
ctypes.c_void_p, # sidOwner : SID* optional
ctypes.c_void_p, # sidGroup : SID* optional
ctypes.c_void_p, # dacl : ACL* optional
ctypes.c_void_p, # sacl : ACL* optional
]require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('fwpuclnt.dll')
FwpmFilterSetSecurityInfoByKey0 = Fiddle::Function.new(
lib['FwpmFilterSetSecurityInfoByKey0'],
[
Fiddle::TYPE_VOIDP, # engineHandle : FWPM_ENGINE_HANDLE
Fiddle::TYPE_VOIDP, # key : GUID* optional
-Fiddle::TYPE_INT, # securityInfo : DWORD
Fiddle::TYPE_VOIDP, # sidOwner : SID* optional
Fiddle::TYPE_VOIDP, # sidGroup : SID* optional
Fiddle::TYPE_VOIDP, # dacl : ACL* optional
Fiddle::TYPE_VOIDP, # sacl : ACL* optional
],
-Fiddle::TYPE_INT)#[link(name = "fwpuclnt")]
extern "system" {
fn FwpmFilterSetSecurityInfoByKey0(
engineHandle: FWPM_ENGINE_HANDLE, // FWPM_ENGINE_HANDLE
key: *const GUID, // GUID* optional
securityInfo: u32, // DWORD
sidOwner: *const SID, // SID* optional
sidGroup: *const SID, // SID* optional
dacl: *const ACL, // ACL* optional
sacl: *const ACL // ACL* optional
) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[DllImport("fwpuclnt.dll")]
public static extern uint FwpmFilterSetSecurityInfoByKey0(FWPM_ENGINE_HANDLE engineHandle, IntPtr key, uint securityInfo, IntPtr sidOwner, IntPtr sidGroup, IntPtr dacl, IntPtr sacl);
"@
$api = Add-Type -MemberDefinition $sig -Name 'fwpuclnt_FwpmFilterSetSecurityInfoByKey0' -Namespace Win32 -PassThru
# $api::FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl)#uselib "fwpuclnt.dll"
#func global FwpmFilterSetSecurityInfoByKey0 "FwpmFilterSetSecurityInfoByKey0" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; FwpmFilterSetSecurityInfoByKey0 engineHandle, varptr(key), securityInfo, varptr(sidOwner), varptr(sidGroup), varptr(dacl), varptr(sacl) ; 戻り値は stat
; engineHandle : FWPM_ENGINE_HANDLE -> "sptr"
; key : GUID* optional -> "sptr"
; securityInfo : DWORD -> "sptr"
; sidOwner : SID* optional -> "sptr"
; sidGroup : SID* optional -> "sptr"
; dacl : ACL* optional -> "sptr"
; sacl : ACL* optional -> "sptr"
; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。出力引数:
#uselib "fwpuclnt.dll" #cfunc global FwpmFilterSetSecurityInfoByKey0 "FwpmFilterSetSecurityInfoByKey0" int, var, int, var, var, var, var ; res = FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl) ; engineHandle : FWPM_ENGINE_HANDLE -> "int" ; key : GUID* optional -> "var" ; securityInfo : DWORD -> "int" ; sidOwner : SID* optional -> "var" ; sidGroup : SID* optional -> "var" ; dacl : ACL* optional -> "var" ; sacl : ACL* optional -> "var" ; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。 ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "fwpuclnt.dll" #cfunc global FwpmFilterSetSecurityInfoByKey0 "FwpmFilterSetSecurityInfoByKey0" int, sptr, int, sptr, sptr, sptr, sptr ; res = FwpmFilterSetSecurityInfoByKey0(engineHandle, varptr(key), securityInfo, varptr(sidOwner), varptr(sidGroup), varptr(dacl), varptr(sacl)) ; engineHandle : FWPM_ENGINE_HANDLE -> "int" ; key : GUID* optional -> "sptr" ; securityInfo : DWORD -> "int" ; sidOwner : SID* optional -> "sptr" ; sidGroup : SID* optional -> "sptr" ; dacl : ACL* optional -> "sptr" ; sacl : ACL* optional -> "sptr" ; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。 ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
出力引数:
; DWORD FwpmFilterSetSecurityInfoByKey0(FWPM_ENGINE_HANDLE engineHandle, GUID* key, DWORD securityInfo, SID* sidOwner, SID* sidGroup, ACL* dacl, ACL* sacl) #uselib "fwpuclnt.dll" #cfunc global FwpmFilterSetSecurityInfoByKey0 "FwpmFilterSetSecurityInfoByKey0" int, var, int, var, var, var, var ; res = FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl) ; engineHandle : FWPM_ENGINE_HANDLE -> "int" ; key : GUID* optional -> "var" ; securityInfo : DWORD -> "int" ; sidOwner : SID* optional -> "var" ; sidGroup : SID* optional -> "var" ; dacl : ACL* optional -> "var" ; sacl : ACL* optional -> "var" ; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。 ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; DWORD FwpmFilterSetSecurityInfoByKey0(FWPM_ENGINE_HANDLE engineHandle, GUID* key, DWORD securityInfo, SID* sidOwner, SID* sidGroup, ACL* dacl, ACL* sacl) #uselib "fwpuclnt.dll" #cfunc global FwpmFilterSetSecurityInfoByKey0 "FwpmFilterSetSecurityInfoByKey0" int, intptr, int, intptr, intptr, intptr, intptr ; res = FwpmFilterSetSecurityInfoByKey0(engineHandle, varptr(key), securityInfo, varptr(sidOwner), varptr(sidGroup), varptr(dacl), varptr(sacl)) ; engineHandle : FWPM_ENGINE_HANDLE -> "int" ; key : GUID* optional -> "intptr" ; securityInfo : DWORD -> "int" ; sidOwner : SID* optional -> "intptr" ; sidGroup : SID* optional -> "intptr" ; dacl : ACL* optional -> "intptr" ; sacl : ACL* optional -> "intptr" ; ※値渡し構造体は直接渡せません。intにパック、または var で構造体変数を渡してください。 ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
fwpuclnt = windows.NewLazySystemDLL("fwpuclnt.dll")
procFwpmFilterSetSecurityInfoByKey0 = fwpuclnt.NewProc("FwpmFilterSetSecurityInfoByKey0")
)
// engineHandle (FWPM_ENGINE_HANDLE), key (GUID* optional), securityInfo (DWORD), sidOwner (SID* optional), sidGroup (SID* optional), dacl (ACL* optional), sacl (ACL* optional)
r1, _, err := procFwpmFilterSetSecurityInfoByKey0.Call(
uintptr(engineHandle),
uintptr(key),
uintptr(securityInfo),
uintptr(sidOwner),
uintptr(sidGroup),
uintptr(dacl),
uintptr(sacl),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // DWORDfunction FwpmFilterSetSecurityInfoByKey0(
engineHandle: FWPM_ENGINE_HANDLE; // FWPM_ENGINE_HANDLE
key: PGUID; // GUID* optional
securityInfo: DWORD; // DWORD
sidOwner: Pointer; // SID* optional
sidGroup: Pointer; // SID* optional
dacl: Pointer; // ACL* optional
sacl: Pointer // ACL* optional
): DWORD; stdcall;
external 'fwpuclnt.dll' name 'FwpmFilterSetSecurityInfoByKey0';result := DllCall("fwpuclnt\FwpmFilterSetSecurityInfoByKey0"
, "Ptr", engineHandle ; FWPM_ENGINE_HANDLE
, "Ptr", key ; GUID* optional
, "UInt", securityInfo ; DWORD
, "Ptr", sidOwner ; SID* optional
, "Ptr", sidGroup ; SID* optional
, "Ptr", dacl ; ACL* optional
, "Ptr", sacl ; ACL* optional
, "UInt") ; return: DWORD●FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl) = DLL("fwpuclnt.dll", "dword FwpmFilterSetSecurityInfoByKey0(void*, void*, dword, void*, void*, void*, void*)")
# 呼び出し: FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl)
# engineHandle : FWPM_ENGINE_HANDLE -> "void*"
# key : GUID* optional -> "void*"
# securityInfo : DWORD -> "dword"
# sidOwner : SID* optional -> "void*"
# sidGroup : SID* optional -> "void*"
# dacl : ACL* optional -> "void*"
# sacl : ACL* optional -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "fwpuclnt" fn FwpmFilterSetSecurityInfoByKey0(
engineHandle: FWPM_ENGINE_HANDLE, // FWPM_ENGINE_HANDLE
key: [*c]GUID, // GUID* optional
securityInfo: u32, // DWORD
sidOwner: [*c]SID, // SID* optional
sidGroup: [*c]SID, // SID* optional
dacl: [*c]ACL, // ACL* optional
sacl: [*c]ACL // ACL* optional
) callconv(std.os.windows.WINAPI) u32;proc FwpmFilterSetSecurityInfoByKey0(
engineHandle: FWPM_ENGINE_HANDLE, # FWPM_ENGINE_HANDLE
key: ptr GUID, # GUID* optional
securityInfo: uint32, # DWORD
sidOwner: ptr SID, # SID* optional
sidGroup: ptr SID, # SID* optional
dacl: ptr ACL, # ACL* optional
sacl: ptr ACL # ACL* optional
): uint32 {.importc: "FwpmFilterSetSecurityInfoByKey0", stdcall, dynlib: "fwpuclnt.dll".}pragma(lib, "fwpuclnt");
extern(Windows)
uint FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE engineHandle, // FWPM_ENGINE_HANDLE
GUID* key, // GUID* optional
uint securityInfo, // DWORD
SID* sidOwner, // SID* optional
SID* sidGroup, // SID* optional
ACL* dacl, // ACL* optional
ACL* sacl // ACL* optional
);ccall((:FwpmFilterSetSecurityInfoByKey0, "fwpuclnt.dll"), stdcall, UInt32,
(FWPM_ENGINE_HANDLE, Ptr{GUID}, UInt32, Ptr{SID}, Ptr{SID}, Ptr{ACL}, Ptr{ACL}),
engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl)
# engineHandle : FWPM_ENGINE_HANDLE -> FWPM_ENGINE_HANDLE
# key : GUID* optional -> Ptr{GUID}
# securityInfo : DWORD -> UInt32
# sidOwner : SID* optional -> Ptr{SID}
# sidGroup : SID* optional -> Ptr{SID}
# dacl : ACL* optional -> Ptr{ACL}
# sacl : ACL* optional -> Ptr{ACL}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
uint32_t FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE engineHandle,
void* key,
uint32_t securityInfo,
void* sidOwner,
void* sidGroup,
void* dacl,
void* sacl);
]]
local fwpuclnt = ffi.load("fwpuclnt")
-- fwpuclnt.FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl)
-- engineHandle : FWPM_ENGINE_HANDLE
-- key : GUID* optional
-- securityInfo : DWORD
-- sidOwner : SID* optional
-- sidGroup : SID* optional
-- dacl : ACL* optional
-- sacl : ACL* optional
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('fwpuclnt.dll');
const FwpmFilterSetSecurityInfoByKey0 = lib.func('__stdcall', 'FwpmFilterSetSecurityInfoByKey0', 'uint32_t', ['FWPM_ENGINE_HANDLE', 'void *', 'uint32_t', 'void *', 'void *', 'void *', 'void *']);
// FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl)
// engineHandle : FWPM_ENGINE_HANDLE -> 'FWPM_ENGINE_HANDLE'
// key : GUID* optional -> 'void *'
// securityInfo : DWORD -> 'uint32_t'
// sidOwner : SID* optional -> 'void *'
// sidGroup : SID* optional -> 'void *'
// dacl : ACL* optional -> 'void *'
// sacl : ACL* optional -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("fwpuclnt.dll", {
FwpmFilterSetSecurityInfoByKey0: { parameters: ["buffer", "pointer", "u32", "pointer", "pointer", "pointer", "pointer"], result: "u32" },
});
// lib.symbols.FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl)
// engineHandle : FWPM_ENGINE_HANDLE -> "buffer"
// key : GUID* optional -> "pointer"
// securityInfo : DWORD -> "u32"
// sidOwner : SID* optional -> "pointer"
// sidGroup : SID* optional -> "pointer"
// dacl : ACL* optional -> "pointer"
// sacl : ACL* optional -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
uint32_t FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE engineHandle,
void* key,
uint32_t securityInfo,
void* sidOwner,
void* sidGroup,
void* dacl,
void* sacl);
C, "fwpuclnt.dll");
// $ffi->FwpmFilterSetSecurityInfoByKey0(engineHandle, key, securityInfo, sidOwner, sidGroup, dacl, sacl);
// engineHandle : FWPM_ENGINE_HANDLE
// key : GUID* optional
// securityInfo : DWORD
// sidOwner : SID* optional
// sidGroup : SID* optional
// dacl : ACL* optional
// sacl : ACL* 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 Fwpuclnt extends StdCallLibrary {
Fwpuclnt INSTANCE = Native.load("fwpuclnt", Fwpuclnt.class);
int FwpmFilterSetSecurityInfoByKey0(
FWPM_ENGINE_HANDLE /* extends Structure (by value) */ engineHandle, // FWPM_ENGINE_HANDLE
Pointer key, // GUID* optional
int securityInfo, // DWORD
Pointer sidOwner, // SID* optional
Pointer sidGroup, // SID* optional
Pointer dacl, // ACL* optional
Pointer sacl // ACL* optional
);
}@[Link("fwpuclnt")]
lib Libfwpuclnt
fun FwpmFilterSetSecurityInfoByKey0 = FwpmFilterSetSecurityInfoByKey0(
engineHandle : FWPM_ENGINE_HANDLE, # FWPM_ENGINE_HANDLE
key : GUID*, # GUID* optional
securityInfo : UInt32, # DWORD
sidOwner : SID*, # SID* optional
sidGroup : SID*, # SID* optional
dacl : ACL*, # ACL* optional
sacl : ACL* # ACL* optional
) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef FwpmFilterSetSecurityInfoByKey0Native = Uint32 Function(FWPM_ENGINE_HANDLE, Pointer<Void>, Uint32, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
typedef FwpmFilterSetSecurityInfoByKey0Dart = int Function(int, Pointer<Void>, int, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>);
final FwpmFilterSetSecurityInfoByKey0 = DynamicLibrary.open('fwpuclnt.dll')
.lookupFunction<FwpmFilterSetSecurityInfoByKey0Native, FwpmFilterSetSecurityInfoByKey0Dart>('FwpmFilterSetSecurityInfoByKey0');
// engineHandle : FWPM_ENGINE_HANDLE -> FWPM_ENGINE_HANDLE
// key : GUID* optional -> Pointer<Void>
// securityInfo : DWORD -> Uint32
// sidOwner : SID* optional -> Pointer<Void>
// sidGroup : SID* optional -> Pointer<Void>
// dacl : ACL* optional -> Pointer<Void>
// sacl : ACL* optional -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function FwpmFilterSetSecurityInfoByKey0(
engineHandle: FWPM_ENGINE_HANDLE; // FWPM_ENGINE_HANDLE
key: PGUID; // GUID* optional
securityInfo: DWORD; // DWORD
sidOwner: Pointer; // SID* optional
sidGroup: Pointer; // SID* optional
dacl: Pointer; // ACL* optional
sacl: Pointer // ACL* optional
): DWORD; stdcall;
external 'fwpuclnt.dll' name 'FwpmFilterSetSecurityInfoByKey0';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "FwpmFilterSetSecurityInfoByKey0"
c_FwpmFilterSetSecurityInfoByKey0 :: FWPM_ENGINE_HANDLE -> Ptr () -> Word32 -> Ptr () -> Ptr () -> Ptr () -> Ptr () -> IO Word32
-- engineHandle : FWPM_ENGINE_HANDLE -> FWPM_ENGINE_HANDLE
-- key : GUID* optional -> Ptr ()
-- securityInfo : DWORD -> Word32
-- sidOwner : SID* optional -> Ptr ()
-- sidGroup : SID* optional -> Ptr ()
-- dacl : ACL* optional -> Ptr ()
-- sacl : ACL* optional -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
-- ※値渡し構造体は GHC FFI で直接渡せません。Ptr で渡すラッパ(C側)経由にしてください。open Ctypes
open Foreign
let fwpmfiltersetsecurityinfobykey0 =
foreign "FwpmFilterSetSecurityInfoByKey0"
(FWPM_ENGINE_HANDLE @-> (ptr void) @-> uint32_t @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> returning uint32_t)
(* engineHandle : FWPM_ENGINE_HANDLE -> FWPM_ENGINE_HANDLE *)
(* key : GUID* optional -> (ptr void) *)
(* securityInfo : DWORD -> uint32_t *)
(* sidOwner : SID* optional -> (ptr void) *)
(* sidGroup : SID* optional -> (ptr void) *)
(* dacl : ACL* optional -> (ptr void) *)
(* sacl : ACL* optional -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library fwpuclnt (t "fwpuclnt.dll"))
(cffi:use-foreign-library fwpuclnt)
(cffi:defcfun ("FwpmFilterSetSecurityInfoByKey0" fwpm-filter-set-security-info-by-key0 :convention :stdcall) :uint32
(engine-handle (:struct fwpm-engine-handle)) ; FWPM_ENGINE_HANDLE
(key :pointer) ; GUID* optional
(security-info :uint32) ; DWORD
(sid-owner :pointer) ; SID* optional
(sid-group :pointer) ; SID* optional
(dacl :pointer) ; ACL* optional
(sacl :pointer)) ; ACL* optional
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $FwpmFilterSetSecurityInfoByKey0 = Win32::API::More->new('fwpuclnt',
'DWORD FwpmFilterSetSecurityInfoByKey0(LPVOID engineHandle, LPVOID key, DWORD securityInfo, LPVOID sidOwner, LPVOID sidGroup, LPVOID dacl, LPVOID sacl)');
# my $ret = $FwpmFilterSetSecurityInfoByKey0->Call($engineHandle, $key, $securityInfo, $sidOwner, $sidGroup, $dacl, $sacl);
# engineHandle : FWPM_ENGINE_HANDLE -> LPVOID
# key : GUID* optional -> LPVOID
# securityInfo : DWORD -> DWORD
# sidOwner : SID* optional -> LPVOID
# sidGroup : SID* optional -> LPVOID
# dacl : ACL* optional -> LPVOID
# sacl : ACL* optional -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。