Win32 API 日本語リファレンス
ホームSystem.Performance › PdhExpandWildCardPathA

PdhExpandWildCardPathA

関数
データソース指定でワイルドカードパスを展開する(ANSI版)。
DLLpdh.dll文字セットANSI (-A)呼出規約winapi対応OSWindows XP 以降

シグネチャ

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

DWORD PdhExpandWildCardPathA(
    LPCSTR szDataSource,   // optional
    LPCSTR szWildCardPath,
    LPSTR mszExpandedPathList,   // optional
    DWORD* pcchPathListLength,
    DWORD dwFlags
);

パラメーター

名前方向説明
szDataSourceLPCSTRinoptional

ログファイルの名前を格納した Null 終端文字列です。この関数は、ログファイルで定義されているパフォーマンスオブジェクトおよびカウンターを使用して、szWildCardPath パラメーターで指定されたパスを展開します。

NULL の場合、関数は szWildCardPath で指定されたコンピューターを検索します。

szWildCardPathLPCSTRin

展開するカウンターパスを指定する Null 終端文字列です。カウンターパスの最大長は PDH_MAX_COUNTER_PATH です。

szDataSource パラメーターが NULL の場合、関数はパスで指定されたコンピューターから一致するものを検索します。パスでコンピューターが指定されていない場合、関数はローカルコンピューターを検索します。

mszExpandedPathListLPSTRoutoptionalszWildCardPath のワイルドカード指定に一致する null 終端カウンターパスのリストを受け取る、呼び出し側が割り当てたバッファーです。リストは 2 つの NULL 文字で終端されます。pcchPathListLength がゼロの場合は NULL に設定してください。
pcchPathListLengthDWORD*inout

mszExpandedPathList バッファーのサイズ(TCHAR 単位)です。入力時にゼロでオブジェクトが存在する場合、関数は PDH_MORE_DATA を返し、このパラメーターに必要なバッファーサイズを設定します。バッファーが必要なサイズより大きい場合、関数はこのパラメーターに実際に使用されたバッファーサイズを設定します。入力時に指定したサイズがゼロより大きいが必要なサイズより小さい場合、返されたサイズをバッファーの再割り当てに使用しないでください。

注意 Windows XP では、必要なサイズに 1 を加算する必要があります。
dwFlagsDWORDin

展開しないワイルドカード文字を示すフラグです。1 つ以上のフラグを指定できます。

意味
PDH_NOEXPANDCOUNTERS
パスにカウンター名のワイルドカード文字が含まれている場合でも、カウンター名を展開しません。
PDH_NOEXPANDINSTANCES
パスに親インスタンス、インスタンス名、またはインスタンスインデックスのワイルドカード文字が含まれている場合でも、インスタンス名を展開しません。
PDH_REFRESHCOUNTERS
カウンターリストを更新します。

戻り値の型: DWORD

公式ドキュメント

指定したコンピューターまたはログファイルを調べ、ワイルドカード文字を含む指定のカウンターパスに一致するカウンターパスを返します。データソースのハンドルを使用するには、PdhExpandWildCardPathH 関数を使用してください。(ANSI)

戻り値

関数が成功した場合は ERROR_SUCCESS を返します。

関数が失敗した場合、戻り値は システムエラーコード または PDH エラーコード です。

戻りコード 説明
PDH_MORE_DATA
mszExpandedPathList バッファーがパスのリストを格納するのに十分な大きさではありません。この戻り値は、入力時に pcchPathListLength がゼロの場合に想定される値です。入力時に指定したサイズがゼロより大きいが必要なサイズより小さい場合、返されたサイズをバッファーの再割り当てに使用しないでください。
PDH_INVALID_ARGUMENT
パラメーターが無効です。たとえば、一部のリリースでは、入力時に指定したサイズがゼロより大きいが必要なサイズより小さい場合に、このエラーが返されることがあります。
PDH_INVALID_PATH
指定したオブジェクトにインスタンスが含まれていません。
PDH_MEMORY_ALLOCATION_FAILURE
この関数をサポートするためのメモリを割り当てられませんでした。
PDH_CSTATUS_NO_OBJECT
コンピューターまたはログファイル内で指定したオブジェクトが見つかりませんでした。

解説(Remarks)

この関数は 2 回呼び出す必要があります。1 回目は必要なバッファーサイズを取得するため(mszExpandedPathListNULLpcchPathListLength を 0 に設定)、2 回目はデータを取得するためです。

PdhExpandWildCardPath は、次の点で PdhExpandCounterPath と異なります。

  1. どのワイルドカード文字を展開するかを制御できます。
  2. カウンター名のソースとしてログファイルの内容を使用できます。
一般的なカウンターパスの形式は次のとおりです。

\computer\object(parent/instance#index)\counter

カウンターパスの parent、instance、index、counter の各要素には、有効な名前またはワイルドカード文字のいずれかを指定できます。computer、parent、instance、index の各要素は、すべてのカウンターで必要というわけではありません。

指定可能な形式の一覧は次のとおりです。

ワイルドカード文字としてアスタリスク (*) を使用します。たとえば、\object(*)\counter のようになります。

親名にワイルドカード文字を指定した場合、指定の instance フィールドおよび counter フィールドに一致する、指定オブジェクトのすべてのインスタンスが返されます。たとえば、\object(*/instance)\counter のようになります。

インスタンス名にワイルドカード文字を指定した場合、指定インデックスに対応するすべてのインスタンス名がワイルドカード文字に一致すれば、指定オブジェクトおよび親オブジェクトのすべてのインスタンスが返されます。たとえば、\object(parent/*)\counter のようになります。オブジェクトにインスタンスが含まれていない場合は、エラーが発生します。

カウンター名にワイルドカード文字を指定した場合、指定オブジェクトのすべてのカウンターが返されます。

カウンターパス文字列の部分一致(たとえば "pro*")がサポートされています。

Windows Vista より前: 部分的なワイルドカード一致はサポートされていません。

メモ

pdh.h ヘッダーは、UNICODE プリプロセッサ定数の定義に基づいてこの関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして PdhExpandWildCardPath を定義します。エンコーディング非依存のエイリアスの使用を、エンコーディング非依存でないコードと混在させると、不一致が生じ、コンパイルエラーまたは実行時エラーの原因となることがあります。詳細については、関数プロトタイプの規則を参照してください。

出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)

各言語での呼び出し定義

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

DWORD PdhExpandWildCardPathA(
    LPCSTR szDataSource,   // optional
    LPCSTR szWildCardPath,
    LPSTR mszExpandedPathList,   // optional
    DWORD* pcchPathListLength,
    DWORD dwFlags
);
[DllImport("pdh.dll", CharSet = CharSet.Ansi, ExactSpelling = true)]
static extern uint PdhExpandWildCardPathA(
    [MarshalAs(UnmanagedType.LPStr)] string szDataSource,   // LPCSTR optional
    [MarshalAs(UnmanagedType.LPStr)] string szWildCardPath,   // LPCSTR
    [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder mszExpandedPathList,   // LPSTR optional, out
    ref uint pcchPathListLength,   // DWORD* in/out
    uint dwFlags   // DWORD
);
<DllImport("pdh.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function PdhExpandWildCardPathA(
    <MarshalAs(UnmanagedType.LPStr)> szDataSource As String,   ' LPCSTR optional
    <MarshalAs(UnmanagedType.LPStr)> szWildCardPath As String,   ' LPCSTR
    <MarshalAs(UnmanagedType.LPStr)> mszExpandedPathList As System.Text.StringBuilder,   ' LPSTR optional, out
    ByRef pcchPathListLength As UInteger,   ' DWORD* in/out
    dwFlags As UInteger   ' DWORD
) As UInteger
End Function
' szDataSource : LPCSTR optional
' szWildCardPath : LPCSTR
' mszExpandedPathList : LPSTR optional, out
' pcchPathListLength : DWORD* in/out
' dwFlags : DWORD
Declare PtrSafe Function PdhExpandWildCardPathA Lib "pdh" ( _
    ByVal szDataSource As String, _
    ByVal szWildCardPath As String, _
    ByVal mszExpandedPathList As String, _
    ByRef pcchPathListLength As Long, _
    ByVal dwFlags As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。
import ctypes
from ctypes import wintypes

PdhExpandWildCardPathA = ctypes.windll.pdh.PdhExpandWildCardPathA
PdhExpandWildCardPathA.restype = wintypes.DWORD
PdhExpandWildCardPathA.argtypes = [
    wintypes.LPCSTR,  # szDataSource : LPCSTR optional
    wintypes.LPCSTR,  # szWildCardPath : LPCSTR
    wintypes.LPSTR,  # mszExpandedPathList : LPSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # pcchPathListLength : DWORD* in/out
    wintypes.DWORD,  # dwFlags : DWORD
]
require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('pdh.dll')
PdhExpandWildCardPathA = Fiddle::Function.new(
  lib['PdhExpandWildCardPathA'],
  [
    Fiddle::TYPE_VOIDP,  # szDataSource : LPCSTR optional
    Fiddle::TYPE_VOIDP,  # szWildCardPath : LPCSTR
    Fiddle::TYPE_VOIDP,  # mszExpandedPathList : LPSTR optional, out
    Fiddle::TYPE_VOIDP,  # pcchPathListLength : DWORD* in/out
    -Fiddle::TYPE_INT,  # dwFlags : DWORD
  ],
  -Fiddle::TYPE_INT)
#[link(name = "pdh")]
extern "system" {
    fn PdhExpandWildCardPathA(
        szDataSource: *const u8,  // LPCSTR optional
        szWildCardPath: *const u8,  // LPCSTR
        mszExpandedPathList: *mut u8,  // LPSTR optional, out
        pcchPathListLength: *mut u32,  // DWORD* in/out
        dwFlags: u32  // DWORD
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.
$sig = @"
[DllImport("pdh.dll", CharSet = CharSet.Ansi)]
public static extern uint PdhExpandWildCardPathA([MarshalAs(UnmanagedType.LPStr)] string szDataSource, [MarshalAs(UnmanagedType.LPStr)] string szWildCardPath, [MarshalAs(UnmanagedType.LPStr)] System.Text.StringBuilder mszExpandedPathList, ref uint pcchPathListLength, uint dwFlags);
"@
$api = Add-Type -MemberDefinition $sig -Name 'pdh_PdhExpandWildCardPathA' -Namespace Win32 -PassThru
# $api::PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
#uselib "pdh.dll"
#func global PdhExpandWildCardPathA "PdhExpandWildCardPathA" sptr, sptr, sptr, sptr, sptr
; PdhExpandWildCardPathA szDataSource, szWildCardPath, varptr(mszExpandedPathList), varptr(pcchPathListLength), dwFlags   ; 戻り値は stat
; szDataSource : LPCSTR optional -> "sptr"
; szWildCardPath : LPCSTR -> "sptr"
; mszExpandedPathList : LPSTR optional, out -> "sptr"
; pcchPathListLength : DWORD* in/out -> "sptr"
; dwFlags : DWORD -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。
出力引数:
#uselib "pdh.dll"
#cfunc global PdhExpandWildCardPathA "PdhExpandWildCardPathA" str, str, var, var, int
; res = PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
; szDataSource : LPCSTR optional -> "str"
; szWildCardPath : LPCSTR -> "str"
; mszExpandedPathList : LPSTR optional, out -> "var"
; pcchPathListLength : DWORD* in/out -> "var"
; dwFlags : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
出力引数:
; DWORD PdhExpandWildCardPathA(LPCSTR szDataSource, LPCSTR szWildCardPath, LPSTR mszExpandedPathList, DWORD* pcchPathListLength, DWORD dwFlags)
#uselib "pdh.dll"
#cfunc global PdhExpandWildCardPathA "PdhExpandWildCardPathA" str, str, var, var, int
; res = PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
; szDataSource : LPCSTR optional -> "str"
; szWildCardPath : LPCSTR -> "str"
; mszExpandedPathList : LPSTR optional, out -> "var"
; pcchPathListLength : DWORD* in/out -> "var"
; dwFlags : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	pdh = windows.NewLazySystemDLL("pdh.dll")
	procPdhExpandWildCardPathA = pdh.NewProc("PdhExpandWildCardPathA")
)

// szDataSource (LPCSTR optional), szWildCardPath (LPCSTR), mszExpandedPathList (LPSTR optional, out), pcchPathListLength (DWORD* in/out), dwFlags (DWORD)
r1, _, err := procPdhExpandWildCardPathA.Call(
	uintptr(unsafe.Pointer(windows.BytePtrFromString(szDataSource))),
	uintptr(unsafe.Pointer(windows.BytePtrFromString(szWildCardPath))),
	uintptr(mszExpandedPathList),
	uintptr(pcchPathListLength),
	uintptr(dwFlags),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD
function PdhExpandWildCardPathA(
  szDataSource: PAnsiChar;   // LPCSTR optional
  szWildCardPath: PAnsiChar;   // LPCSTR
  mszExpandedPathList: PAnsiChar;   // LPSTR optional, out
  pcchPathListLength: Pointer;   // DWORD* in/out
  dwFlags: DWORD   // DWORD
): DWORD; stdcall;
  external 'pdh.dll' name 'PdhExpandWildCardPathA';
result := DllCall("pdh\PdhExpandWildCardPathA"
    , "AStr", szDataSource   ; LPCSTR optional
    , "AStr", szWildCardPath   ; LPCSTR
    , "Ptr", mszExpandedPathList   ; LPSTR optional, out
    , "Ptr", pcchPathListLength   ; DWORD* in/out
    , "UInt", dwFlags   ; DWORD
    , "UInt")   ; return: DWORD
●PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags) = DLL("pdh.dll", "dword PdhExpandWildCardPathA(char*, char*, char*, void*, dword)")
# 呼び出し: PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
# szDataSource : LPCSTR optional -> "char*"
# szWildCardPath : LPCSTR -> "char*"
# mszExpandedPathList : LPSTR optional, out -> "char*"
# pcchPathListLength : DWORD* in/out -> "void*"
# dwFlags : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
const std = @import("std");

extern "pdh" fn PdhExpandWildCardPathA(
    szDataSource: [*c]const u8, // LPCSTR optional
    szWildCardPath: [*c]const u8, // LPCSTR
    mszExpandedPathList: [*c]u8, // LPSTR optional, out
    pcchPathListLength: [*c]u32, // DWORD* in/out
    dwFlags: u32 // DWORD
) callconv(std.os.windows.WINAPI) u32;
proc PdhExpandWildCardPathA(
    szDataSource: cstring,  # LPCSTR optional
    szWildCardPath: cstring,  # LPCSTR
    mszExpandedPathList: ptr char,  # LPSTR optional, out
    pcchPathListLength: ptr uint32,  # DWORD* in/out
    dwFlags: uint32  # DWORD
): uint32 {.importc: "PdhExpandWildCardPathA", stdcall, dynlib: "pdh.dll".}
pragma(lib, "pdh");
extern(Windows)
uint PdhExpandWildCardPathA(
    const(char)* szDataSource,   // LPCSTR optional
    const(char)* szWildCardPath,   // LPCSTR
    char* mszExpandedPathList,   // LPSTR optional, out
    uint* pcchPathListLength,   // DWORD* in/out
    uint dwFlags   // DWORD
);
ccall((:PdhExpandWildCardPathA, "pdh.dll"), stdcall, UInt32,
      (Cstring, Cstring, Ptr{UInt8}, Ptr{UInt32}, UInt32),
      szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
# szDataSource : LPCSTR optional -> Cstring
# szWildCardPath : LPCSTR -> Cstring
# mszExpandedPathList : LPSTR optional, out -> Ptr{UInt8}
# pcchPathListLength : DWORD* in/out -> Ptr{UInt32}
# dwFlags : DWORD -> UInt32
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
local ffi = require("ffi")
ffi.cdef[[
uint32_t PdhExpandWildCardPathA(
    const char* szDataSource,
    const char* szWildCardPath,
    char* mszExpandedPathList,
    uint32_t* pcchPathListLength,
    uint32_t dwFlags);
]]
local pdh = ffi.load("pdh")
-- pdh.PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
-- szDataSource : LPCSTR optional
-- szWildCardPath : LPCSTR
-- mszExpandedPathList : LPSTR optional, out
-- pcchPathListLength : DWORD* in/out
-- dwFlags : DWORD
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
const koffi = require('koffi');
const lib = koffi.load('pdh.dll');
const PdhExpandWildCardPathA = lib.func('__stdcall', 'PdhExpandWildCardPathA', 'uint32_t', ['str', 'str', 'char *', 'uint32_t *', 'uint32_t']);
// PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
// szDataSource : LPCSTR optional -> 'str'
// szWildCardPath : LPCSTR -> 'str'
// mszExpandedPathList : LPSTR optional, out -> 'char *'
// pcchPathListLength : DWORD* in/out -> 'uint32_t *'
// dwFlags : DWORD -> 'uint32_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
const lib = Deno.dlopen("pdh.dll", {
  PdhExpandWildCardPathA: { parameters: ["buffer", "buffer", "buffer", "pointer", "u32"], result: "u32" },
});
// lib.symbols.PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags)
// szDataSource : LPCSTR optional -> "buffer"
// szWildCardPath : LPCSTR -> "buffer"
// mszExpandedPathList : LPSTR optional, out -> "buffer"
// pcchPathListLength : DWORD* in/out -> "pointer"
// dwFlags : DWORD -> "u32"
// 文字列は "buffer"。ANSI(-A) は new TextEncoder() で UTF-8/ANSI バイト列(末尾に \x00)を渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。
<?php
$ffi = FFI::cdef(<<<C
uint32_t PdhExpandWildCardPathA(
    const char* szDataSource,
    const char* szWildCardPath,
    char* mszExpandedPathList,
    uint32_t* pcchPathListLength,
    uint32_t dwFlags);
C, "pdh.dll");
// $ffi->PdhExpandWildCardPathA(szDataSource, szWildCardPath, mszExpandedPathList, pcchPathListLength, dwFlags);
// szDataSource : LPCSTR optional
// szWildCardPath : LPCSTR
// mszExpandedPathList : LPSTR optional, out
// pcchPathListLength : DWORD* in/out
// dwFlags : DWORD
// 構造体/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 Pdh extends StdCallLibrary {
    Pdh INSTANCE = Native.load("pdh", Pdh.class, W32APIOptions.ASCII_OPTIONS);
    int PdhExpandWildCardPathA(
        String szDataSource,   // LPCSTR optional
        String szWildCardPath,   // LPCSTR
        byte[] mszExpandedPathList,   // LPSTR optional, out
        IntByReference pcchPathListLength,   // DWORD* in/out
        int dwFlags   // DWORD
    );
}
@[Link("pdh")]
lib Libpdh
  fun PdhExpandWildCardPathA = PdhExpandWildCardPathA(
    szDataSource : UInt8*,   # LPCSTR optional
    szWildCardPath : UInt8*,   # LPCSTR
    mszExpandedPathList : UInt8*,   # LPSTR optional, out
    pcchPathListLength : UInt32*,   # DWORD* in/out
    dwFlags : UInt32   # DWORD
  ) : UInt32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。
import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef PdhExpandWildCardPathANative = Uint32 Function(Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Uint32>, Uint32);
typedef PdhExpandWildCardPathADart = int Function(Pointer<Utf8>, Pointer<Utf8>, Pointer<Utf8>, Pointer<Uint32>, int);
final PdhExpandWildCardPathA = DynamicLibrary.open('pdh.dll')
    .lookupFunction<PdhExpandWildCardPathANative, PdhExpandWildCardPathADart>('PdhExpandWildCardPathA');
// szDataSource : LPCSTR optional -> Pointer<Utf8>
// szWildCardPath : LPCSTR -> Pointer<Utf8>
// mszExpandedPathList : LPSTR optional, out -> Pointer<Utf8>
// pcchPathListLength : DWORD* in/out -> Pointer<Uint32>
// dwFlags : DWORD -> Uint32
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。
{$mode objfpc}{$H+}
function PdhExpandWildCardPathA(
  szDataSource: PAnsiChar;   // LPCSTR optional
  szWildCardPath: PAnsiChar;   // LPCSTR
  mszExpandedPathList: PAnsiChar;   // LPSTR optional, out
  pcchPathListLength: Pointer;   // DWORD* in/out
  dwFlags: DWORD   // DWORD
): DWORD; stdcall;
  external 'pdh.dll' name 'PdhExpandWildCardPathA';
import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "PdhExpandWildCardPathA"
  c_PdhExpandWildCardPathA :: CString -> CString -> CString -> Ptr Word32 -> Word32 -> IO Word32
-- szDataSource : LPCSTR optional -> CString
-- szWildCardPath : LPCSTR -> CString
-- mszExpandedPathList : LPSTR optional, out -> CString
-- pcchPathListLength : DWORD* in/out -> Ptr Word32
-- dwFlags : DWORD -> Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。
open Ctypes
open Foreign

let pdhexpandwildcardpatha =
  foreign "PdhExpandWildCardPathA"
    (string @-> string @-> string @-> (ptr uint32_t) @-> uint32_t @-> returning uint32_t)
(* szDataSource : LPCSTR optional -> string *)
(* szWildCardPath : LPCSTR -> string *)
(* mszExpandedPathList : LPSTR optional, out -> string *)
(* pcchPathListLength : DWORD* in/out -> (ptr uint32_t) *)
(* dwFlags : DWORD -> uint32_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)
(cffi:define-foreign-library pdh (t "pdh.dll"))
(cffi:use-foreign-library pdh)

(cffi:defcfun ("PdhExpandWildCardPathA" pdh-expand-wild-card-path-a :convention :stdcall) :uint32
  (sz-data-source :string)   ; LPCSTR optional
  (sz-wild-card-path :string)   ; LPCSTR
  (msz-expanded-path-list :pointer)   ; LPSTR optional, out
  (pcch-path-list-length :pointer)   ; DWORD* in/out
  (dw-flags :uint32))   ; DWORD
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。
use Win32::API;
my $PdhExpandWildCardPathA = Win32::API::More->new('pdh',
    'DWORD PdhExpandWildCardPathA(LPCSTR szDataSource, LPCSTR szWildCardPath, LPSTR mszExpandedPathList, LPVOID pcchPathListLength, DWORD dwFlags)');
# my $ret = $PdhExpandWildCardPathA->Call($szDataSource, $szWildCardPath, $mszExpandedPathList, $pcchPathListLength, $dwFlags);
# szDataSource : LPCSTR optional -> LPCSTR
# szWildCardPath : LPCSTR -> LPCSTR
# mszExpandedPathList : LPSTR optional, out -> LPSTR
# pcchPathListLength : DWORD* in/out -> LPVOID
# dwFlags : DWORD -> DWORD
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。

関連項目

文字セット違い
公式の関連項目