WSCInstallNameSpaceEx
関数シグネチャ
// WS2_32.dll
#include <windows.h>
INT WSCInstallNameSpaceEx(
LPWSTR lpszIdentifier,
LPWSTR lpszPathName,
DWORD dwNameSpace,
DWORD dwVersion,
GUID* lpProviderId,
BLOB* lpProviderSpecific
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| lpszIdentifier | LPWSTR | in | lpProviderId パラメーターで渡される GUID (globally unique identifier) に関連付けられたプロバイダーを識別する文字列へのポインター。 |
| lpszPathName | LPWSTR | in | プロバイダー DLL のロードパスを格納した Unicode 文字列へのポインター。この文字列は通常のパス解決ルールに従い、埋め込みの環境文字列 (%SystemRoot% など) を含めることができます。これらの環境文字列は、Ws2_32.dll がアプリケーションに代わってプロバイダー DLL を後でロードする必要があるときに展開されます。埋め込み環境文字列が展開された後、Ws2_32.dll は結果の文字列を LoadLibrary 関数に渡し、プロバイダーをメモリにロードします。詳細については、LoadLibrary を参照してください。 |
| dwNameSpace | DWORD | in | このプロバイダーがサポートするネームスペース。 |
| dwVersion | DWORD | in | プロバイダーのバージョン番号。 |
| lpProviderId | GUID* | in | プロバイダーの GUID へのポインター。この GUID は Uuidgen.exe によって生成する必要があります。 |
| lpProviderSpecific | BLOB* | in | ネームスペースエントリに関連付けられた、プロバイダー固有のデータ blob。 |
戻り値の型: INT
公式ドキュメント
ネームスペースプロバイダーをインストールします。(WSCInstallNameSpaceEx)
戻り値
エラーが発生しない場合、 WSCInstallNameSpaceEx 関数は NO_ERROR (ゼロ) を返します。それ以外の場合、関数が失敗すると SOCKET_ERROR を返し、 WSAGetLastError 関数を使用して適切なエラーコードを取得する必要があります。
| エラーコード | 意味 |
|---|---|
| 呼び出し元のルーチンに、ネームスペースをインストールするための十分な権限がありません。 | |
| 1 つ以上の引数が無効です。 | |
| 回復不能なエラーが発生しました。このエラーは、次のような複数の状況で返されます。プロバイダーが既にインストールされている、ユーザーに Winsock レジストリへの書き込みに必要な管理者権限がない、またはカタログエントリの作成もしくはインストール時に障害が発生した場合などです。 | |
| 失敗するはずのないシステムコールが失敗しました。 | |
| 使用可能なメモリが不足していました。このエラーは、新しいカタログエントリを割り当てるのに十分なメモリがない場合に返されます。 |
解説(Remarks)
ネームスペース構成関数は、既に実行中のアプリケーションには影響しません。新しくインストールされたネームスペースプロバイダーはアプリケーションからは見えず、ネームスペースプロバイダーのアクティブ化状態の変更も反映されません。 WSCInstallNameSpaceEx の呼び出し後に起動されたアプリケーションには、変更が反映されます。
lpProviderInfo パラメーターで渡される、ネームスペースエントリに関連付けられたプロバイダー固有のデータ blob は、WSAEnumNameSpaceProvidersEx 関数を使用して照会できます。
現在、Windows に含まれるネームスペースプロバイダーのうち lpProviderInfo パラメーターを使用する唯一のものは NS_EMAIL プロバイダーです。NS_EMAIL ネームスペースプロバイダーの場合、lpProviderInfo パラメーターが指すバッファーの形式は NAPI_PROVIDER_INSTALLATION_BLOB 構造体です。
WSCInstallNameSpaceEx 関数は、Administrators グループのメンバーとしてログオンしているユーザーのみが呼び出せます。Administrators グループのメンバーでないユーザーが WSCInstallNameSpaceEx を呼び出した場合、関数呼び出しは失敗します。 Windows Vista または Windows Server 2008 で実行されているコンピューターでは、ユーザーアカウント制御 (UAC) が原因でこの関数が失敗することもあります。この関数を含むアプリケーションが、組み込みの Administrator 以外の Administrators グループのメンバーとしてログオンしたユーザーによって実行された場合、アプリケーションのマニフェストファイルで requestedExecutionLevel が requireAdministrator に設定されていない限り、この呼び出しは失敗します。Windows Vista または Windows Server 2008 でアプリケーションにこのマニフェストファイルがない場合、組み込みの Administrator 以外の Administrators グループのメンバーとしてログオンしたユーザーは、この関数を成功させるために、組み込みの Administrator として拡張シェル内でアプリケーションを実行 (管理者として実行) する必要があります。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// WS2_32.dll
#include <windows.h>
INT WSCInstallNameSpaceEx(
LPWSTR lpszIdentifier,
LPWSTR lpszPathName,
DWORD dwNameSpace,
DWORD dwVersion,
GUID* lpProviderId,
BLOB* lpProviderSpecific
);[DllImport("WS2_32.dll", ExactSpelling = true)]
static extern int WSCInstallNameSpaceEx(
[MarshalAs(UnmanagedType.LPWStr)] string lpszIdentifier, // LPWSTR
[MarshalAs(UnmanagedType.LPWStr)] string lpszPathName, // LPWSTR
uint dwNameSpace, // DWORD
uint dwVersion, // DWORD
ref Guid lpProviderId, // GUID*
IntPtr lpProviderSpecific // BLOB*
);<DllImport("WS2_32.dll", ExactSpelling:=True)>
Public Shared Function WSCInstallNameSpaceEx(
<MarshalAs(UnmanagedType.LPWStr)> lpszIdentifier As String, ' LPWSTR
<MarshalAs(UnmanagedType.LPWStr)> lpszPathName As String, ' LPWSTR
dwNameSpace As UInteger, ' DWORD
dwVersion As UInteger, ' DWORD
ByRef lpProviderId As Guid, ' GUID*
lpProviderSpecific As IntPtr ' BLOB*
) As Integer
End Function' lpszIdentifier : LPWSTR
' lpszPathName : LPWSTR
' dwNameSpace : DWORD
' dwVersion : DWORD
' lpProviderId : GUID*
' lpProviderSpecific : BLOB*
Declare PtrSafe Function WSCInstallNameSpaceEx Lib "ws2_32" ( _
ByVal lpszIdentifier As LongPtr, _
ByVal lpszPathName As LongPtr, _
ByVal dwNameSpace As Long, _
ByVal dwVersion As Long, _
ByVal lpProviderId As LongPtr, _
ByVal lpProviderSpecific As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
WSCInstallNameSpaceEx = ctypes.windll.ws2_32.WSCInstallNameSpaceEx
WSCInstallNameSpaceEx.restype = ctypes.c_int
WSCInstallNameSpaceEx.argtypes = [
wintypes.LPCWSTR, # lpszIdentifier : LPWSTR
wintypes.LPCWSTR, # lpszPathName : LPWSTR
wintypes.DWORD, # dwNameSpace : DWORD
wintypes.DWORD, # dwVersion : DWORD
ctypes.c_void_p, # lpProviderId : GUID*
ctypes.c_void_p, # lpProviderSpecific : BLOB*
]require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('WS2_32.dll')
WSCInstallNameSpaceEx = Fiddle::Function.new(
lib['WSCInstallNameSpaceEx'],
[
Fiddle::TYPE_VOIDP, # lpszIdentifier : LPWSTR
Fiddle::TYPE_VOIDP, # lpszPathName : LPWSTR
-Fiddle::TYPE_INT, # dwNameSpace : DWORD
-Fiddle::TYPE_INT, # dwVersion : DWORD
Fiddle::TYPE_VOIDP, # lpProviderId : GUID*
Fiddle::TYPE_VOIDP, # lpProviderSpecific : BLOB*
],
Fiddle::TYPE_INT)#[link(name = "ws2_32")]
extern "system" {
fn WSCInstallNameSpaceEx(
lpszIdentifier: *mut u16, // LPWSTR
lpszPathName: *mut u16, // LPWSTR
dwNameSpace: u32, // DWORD
dwVersion: u32, // DWORD
lpProviderId: *mut GUID, // GUID*
lpProviderSpecific: *mut BLOB // BLOB*
) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[DllImport("WS2_32.dll")]
public static extern int WSCInstallNameSpaceEx([MarshalAs(UnmanagedType.LPWStr)] string lpszIdentifier, [MarshalAs(UnmanagedType.LPWStr)] string lpszPathName, uint dwNameSpace, uint dwVersion, ref Guid lpProviderId, IntPtr lpProviderSpecific);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WS2_32_WSCInstallNameSpaceEx' -Namespace Win32 -PassThru
# $api::WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific)#uselib "WS2_32.dll"
#func global WSCInstallNameSpaceEx "WSCInstallNameSpaceEx" sptr, sptr, sptr, sptr, sptr, sptr
; WSCInstallNameSpaceEx lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, varptr(lpProviderId), varptr(lpProviderSpecific) ; 戻り値は stat
; lpszIdentifier : LPWSTR -> "sptr"
; lpszPathName : LPWSTR -> "sptr"
; dwNameSpace : DWORD -> "sptr"
; dwVersion : DWORD -> "sptr"
; lpProviderId : GUID* -> "sptr"
; lpProviderSpecific : BLOB* -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "WS2_32.dll" #cfunc global WSCInstallNameSpaceEx "WSCInstallNameSpaceEx" wstr, wstr, int, int, var, var ; res = WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific) ; lpszIdentifier : LPWSTR -> "wstr" ; lpszPathName : LPWSTR -> "wstr" ; dwNameSpace : DWORD -> "int" ; dwVersion : DWORD -> "int" ; lpProviderId : GUID* -> "var" ; lpProviderSpecific : BLOB* -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "WS2_32.dll" #cfunc global WSCInstallNameSpaceEx "WSCInstallNameSpaceEx" wstr, wstr, int, int, sptr, sptr ; res = WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, varptr(lpProviderId), varptr(lpProviderSpecific)) ; lpszIdentifier : LPWSTR -> "wstr" ; lpszPathName : LPWSTR -> "wstr" ; dwNameSpace : DWORD -> "int" ; dwVersion : DWORD -> "int" ; lpProviderId : GUID* -> "sptr" ; lpProviderSpecific : BLOB* -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; INT WSCInstallNameSpaceEx(LPWSTR lpszIdentifier, LPWSTR lpszPathName, DWORD dwNameSpace, DWORD dwVersion, GUID* lpProviderId, BLOB* lpProviderSpecific) #uselib "WS2_32.dll" #cfunc global WSCInstallNameSpaceEx "WSCInstallNameSpaceEx" wstr, wstr, int, int, var, var ; res = WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific) ; lpszIdentifier : LPWSTR -> "wstr" ; lpszPathName : LPWSTR -> "wstr" ; dwNameSpace : DWORD -> "int" ; dwVersion : DWORD -> "int" ; lpProviderId : GUID* -> "var" ; lpProviderSpecific : BLOB* -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; INT WSCInstallNameSpaceEx(LPWSTR lpszIdentifier, LPWSTR lpszPathName, DWORD dwNameSpace, DWORD dwVersion, GUID* lpProviderId, BLOB* lpProviderSpecific) #uselib "WS2_32.dll" #cfunc global WSCInstallNameSpaceEx "WSCInstallNameSpaceEx" wstr, wstr, int, int, intptr, intptr ; res = WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, varptr(lpProviderId), varptr(lpProviderSpecific)) ; lpszIdentifier : LPWSTR -> "wstr" ; lpszPathName : LPWSTR -> "wstr" ; dwNameSpace : DWORD -> "int" ; dwVersion : DWORD -> "int" ; lpProviderId : GUID* -> "intptr" ; lpProviderSpecific : BLOB* -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
ws2_32 = windows.NewLazySystemDLL("WS2_32.dll")
procWSCInstallNameSpaceEx = ws2_32.NewProc("WSCInstallNameSpaceEx")
)
// lpszIdentifier (LPWSTR), lpszPathName (LPWSTR), dwNameSpace (DWORD), dwVersion (DWORD), lpProviderId (GUID*), lpProviderSpecific (BLOB*)
r1, _, err := procWSCInstallNameSpaceEx.Call(
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpszIdentifier))),
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(lpszPathName))),
uintptr(dwNameSpace),
uintptr(dwVersion),
uintptr(lpProviderId),
uintptr(lpProviderSpecific),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // INTfunction WSCInstallNameSpaceEx(
lpszIdentifier: PWideChar; // LPWSTR
lpszPathName: PWideChar; // LPWSTR
dwNameSpace: DWORD; // DWORD
dwVersion: DWORD; // DWORD
lpProviderId: PGUID; // GUID*
lpProviderSpecific: Pointer // BLOB*
): Integer; stdcall;
external 'WS2_32.dll' name 'WSCInstallNameSpaceEx';result := DllCall("WS2_32\WSCInstallNameSpaceEx"
, "WStr", lpszIdentifier ; LPWSTR
, "WStr", lpszPathName ; LPWSTR
, "UInt", dwNameSpace ; DWORD
, "UInt", dwVersion ; DWORD
, "Ptr", lpProviderId ; GUID*
, "Ptr", lpProviderSpecific ; BLOB*
, "Int") ; return: INT●WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific) = DLL("WS2_32.dll", "int WSCInstallNameSpaceEx(char*, char*, dword, dword, void*, void*)")
# 呼び出し: WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific)
# lpszIdentifier : LPWSTR -> "char*"
# lpszPathName : LPWSTR -> "char*"
# dwNameSpace : DWORD -> "dword"
# dwVersion : DWORD -> "dword"
# lpProviderId : GUID* -> "void*"
# lpProviderSpecific : BLOB* -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "ws2_32" fn WSCInstallNameSpaceEx(
lpszIdentifier: [*c]const u16, // LPWSTR
lpszPathName: [*c]const u16, // LPWSTR
dwNameSpace: u32, // DWORD
dwVersion: u32, // DWORD
lpProviderId: [*c]GUID, // GUID*
lpProviderSpecific: [*c]BLOB // BLOB*
) callconv(std.os.windows.WINAPI) i32;proc WSCInstallNameSpaceEx(
lpszIdentifier: WideCString, # LPWSTR
lpszPathName: WideCString, # LPWSTR
dwNameSpace: uint32, # DWORD
dwVersion: uint32, # DWORD
lpProviderId: ptr GUID, # GUID*
lpProviderSpecific: ptr BLOB # BLOB*
): int32 {.importc: "WSCInstallNameSpaceEx", stdcall, dynlib: "WS2_32.dll".}pragma(lib, "ws2_32");
extern(Windows)
int WSCInstallNameSpaceEx(
const(wchar)* lpszIdentifier, // LPWSTR
const(wchar)* lpszPathName, // LPWSTR
uint dwNameSpace, // DWORD
uint dwVersion, // DWORD
GUID* lpProviderId, // GUID*
BLOB* lpProviderSpecific // BLOB*
);ccall((:WSCInstallNameSpaceEx, "WS2_32.dll"), stdcall, Int32,
(Cwstring, Cwstring, UInt32, UInt32, Ptr{GUID}, Ptr{BLOB}),
lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific)
# lpszIdentifier : LPWSTR -> Cwstring
# lpszPathName : LPWSTR -> Cwstring
# dwNameSpace : DWORD -> UInt32
# dwVersion : DWORD -> UInt32
# lpProviderId : GUID* -> Ptr{GUID}
# lpProviderSpecific : BLOB* -> Ptr{BLOB}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
int32_t WSCInstallNameSpaceEx(
const uint16_t* lpszIdentifier,
const uint16_t* lpszPathName,
uint32_t dwNameSpace,
uint32_t dwVersion,
void* lpProviderId,
void* lpProviderSpecific);
]]
local ws2_32 = ffi.load("ws2_32")
-- ws2_32.WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific)
-- lpszIdentifier : LPWSTR
-- lpszPathName : LPWSTR
-- dwNameSpace : DWORD
-- dwVersion : DWORD
-- lpProviderId : GUID*
-- lpProviderSpecific : BLOB*
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('WS2_32.dll');
const WSCInstallNameSpaceEx = lib.func('__stdcall', 'WSCInstallNameSpaceEx', 'int32_t', ['str16', 'str16', 'uint32_t', 'uint32_t', 'void *', 'void *']);
// WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific)
// lpszIdentifier : LPWSTR -> 'str16'
// lpszPathName : LPWSTR -> 'str16'
// dwNameSpace : DWORD -> 'uint32_t'
// dwVersion : DWORD -> 'uint32_t'
// lpProviderId : GUID* -> 'void *'
// lpProviderSpecific : BLOB* -> 'void *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("WS2_32.dll", {
WSCInstallNameSpaceEx: { parameters: ["buffer", "buffer", "u32", "u32", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific)
// lpszIdentifier : LPWSTR -> "buffer"
// lpszPathName : LPWSTR -> "buffer"
// dwNameSpace : DWORD -> "u32"
// dwVersion : DWORD -> "u32"
// lpProviderId : GUID* -> "pointer"
// lpProviderSpecific : BLOB* -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t WSCInstallNameSpaceEx(
const uint16_t* lpszIdentifier,
const uint16_t* lpszPathName,
uint32_t dwNameSpace,
uint32_t dwVersion,
void* lpProviderId,
void* lpProviderSpecific);
C, "WS2_32.dll");
// $ffi->WSCInstallNameSpaceEx(lpszIdentifier, lpszPathName, dwNameSpace, dwVersion, lpProviderId, lpProviderSpecific);
// lpszIdentifier : LPWSTR
// lpszPathName : LPWSTR
// dwNameSpace : DWORD
// dwVersion : DWORD
// lpProviderId : GUID*
// lpProviderSpecific : BLOB*
// 構造体/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 Ws2_32 extends StdCallLibrary {
Ws2_32 INSTANCE = Native.load("ws2_32", Ws2_32.class);
int WSCInstallNameSpaceEx(
WString lpszIdentifier, // LPWSTR
WString lpszPathName, // LPWSTR
int dwNameSpace, // DWORD
int dwVersion, // DWORD
Pointer lpProviderId, // GUID*
Pointer lpProviderSpecific // BLOB*
);
}@[Link("ws2_32")]
lib LibWS2_32
fun WSCInstallNameSpaceEx = WSCInstallNameSpaceEx(
lpszIdentifier : UInt16*, # LPWSTR
lpszPathName : UInt16*, # LPWSTR
dwNameSpace : UInt32, # DWORD
dwVersion : UInt32, # DWORD
lpProviderId : GUID*, # GUID*
lpProviderSpecific : BLOB* # BLOB*
) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef WSCInstallNameSpaceExNative = Int32 Function(Pointer<Utf16>, Pointer<Utf16>, Uint32, Uint32, Pointer<Void>, Pointer<Void>);
typedef WSCInstallNameSpaceExDart = int Function(Pointer<Utf16>, Pointer<Utf16>, int, int, Pointer<Void>, Pointer<Void>);
final WSCInstallNameSpaceEx = DynamicLibrary.open('WS2_32.dll')
.lookupFunction<WSCInstallNameSpaceExNative, WSCInstallNameSpaceExDart>('WSCInstallNameSpaceEx');
// lpszIdentifier : LPWSTR -> Pointer<Utf16>
// lpszPathName : LPWSTR -> Pointer<Utf16>
// dwNameSpace : DWORD -> Uint32
// dwVersion : DWORD -> Uint32
// lpProviderId : GUID* -> Pointer<Void>
// lpProviderSpecific : BLOB* -> Pointer<Void>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function WSCInstallNameSpaceEx(
lpszIdentifier: PWideChar; // LPWSTR
lpszPathName: PWideChar; // LPWSTR
dwNameSpace: DWORD; // DWORD
dwVersion: DWORD; // DWORD
lpProviderId: PGUID; // GUID*
lpProviderSpecific: Pointer // BLOB*
): Integer; stdcall;
external 'WS2_32.dll' name 'WSCInstallNameSpaceEx';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "WSCInstallNameSpaceEx"
c_WSCInstallNameSpaceEx :: CWString -> CWString -> Word32 -> Word32 -> Ptr () -> Ptr () -> IO Int32
-- lpszIdentifier : LPWSTR -> CWString
-- lpszPathName : LPWSTR -> CWString
-- dwNameSpace : DWORD -> Word32
-- dwVersion : DWORD -> Word32
-- lpProviderId : GUID* -> Ptr ()
-- lpProviderSpecific : BLOB* -> Ptr ()
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let wscinstallnamespaceex =
foreign "WSCInstallNameSpaceEx"
((ptr uint16_t) @-> (ptr uint16_t) @-> uint32_t @-> uint32_t @-> (ptr void) @-> (ptr void) @-> returning int32_t)
(* lpszIdentifier : LPWSTR -> (ptr uint16_t) *)
(* lpszPathName : LPWSTR -> (ptr uint16_t) *)
(* dwNameSpace : DWORD -> uint32_t *)
(* dwVersion : DWORD -> uint32_t *)
(* lpProviderId : GUID* -> (ptr void) *)
(* lpProviderSpecific : BLOB* -> (ptr void) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library ws2_32 (t "WS2_32.dll"))
(cffi:use-foreign-library ws2_32)
(cffi:defcfun ("WSCInstallNameSpaceEx" wscinstall-name-space-ex :convention :stdcall) :int32
(lpsz-identifier (:string :encoding :utf-16le)) ; LPWSTR
(lpsz-path-name (:string :encoding :utf-16le)) ; LPWSTR
(dw-name-space :uint32) ; DWORD
(dw-version :uint32) ; DWORD
(lp-provider-id :pointer) ; GUID*
(lp-provider-specific :pointer)) ; BLOB*
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $WSCInstallNameSpaceEx = Win32::API::More->new('WS2_32',
'int WSCInstallNameSpaceEx(LPCWSTR lpszIdentifier, LPCWSTR lpszPathName, DWORD dwNameSpace, DWORD dwVersion, LPVOID lpProviderId, LPVOID lpProviderSpecific)');
# my $ret = $WSCInstallNameSpaceEx->Call($lpszIdentifier, $lpszPathName, $dwNameSpace, $dwVersion, $lpProviderId, $lpProviderSpecific);
# lpszIdentifier : LPWSTR -> LPCWSTR
# lpszPathName : LPWSTR -> LPCWSTR
# dwNameSpace : DWORD -> DWORD
# dwVersion : DWORD -> DWORD
# lpProviderId : GUID* -> LPVOID
# lpProviderSpecific : BLOB* -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
- f WSCInstallNameSpace — 名前空間プロバイダーを登録する。
- f WSCInstallNameSpace32 — 32ビットカタログに名前空間プロバイダをインストールする。
- f WSCInstallNameSpaceEx32 — 32ビットカタログに名前空間プロバイダを拡張形式でインストールする。
- s NAPI_PROVIDER_INSTALLATION_BLOB
- f WSAEnumNameSpaceProvidersW — 登録済みの名前空間プロバイダーを列挙する。
- f WSAEnumNameSpaceProvidersExW — 名前空間プロバイダーを拡張情報付きで列挙する。
- f WSCUnInstallNameSpace — 名前空間プロバイダーを登録解除する。