GetThreadWaitChain
関数シグネチャ
// ADVAPI32.dll
#include <windows.h>
BOOL GetThreadWaitChain(
void* WctHandle,
UINT_PTR Context, // optional
WAIT_CHAIN_THREAD_OPTIONS Flags,
DWORD ThreadId,
DWORD* NodeCount,
WAITCHAIN_NODE_INFO* NodeInfoArray,
BOOL* IsCycle
);パラメーター
| 名前 | 型 | 方向 | 説明 | ||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|
| WctHandle | void* | in | OpenThreadWaitChainSession 関数で作成された WCT セッションへのハンドルです。 | ||||||||
| Context | UINT_PTR | inoptional | 非同期セッションのコールバック関数に渡される、アプリケーション定義のコンテキスト構造体へのポインターです。 | ||||||||
| Flags | WAIT_CHAIN_THREAD_OPTIONS | in | 待機チェーンの取得オプションです。このパラメーターには、次の値を 1 つ以上指定できます。
| ||||||||
| ThreadId | DWORD | in | スレッドの識別子です。 | ||||||||
| NodeCount | DWORD* | inout | 入力時には、待機チェーン内のノード数を指定する 1 から WCT_MAX_NODE_COUNT までの数値です。戻り時には、取得されたノード数になります。配列が待機チェーンのすべてのノードを格納できない場合、関数は失敗し、GetLastError は ERROR_MORE_DATA を返します。このとき、このパラメーターにはすべてのノードを格納するために必要な配列要素数が設定されます。 非同期セッションの場合は、コールバック関数に渡される値を確認してください。コールバック関数が戻るまで、変数を解放しないでください。 | ||||||||
| NodeInfoArray | WAITCHAIN_NODE_INFO* | out | 待機チェーンを受け取る WAITCHAIN_NODE_INFO 構造体の配列です。 非同期セッションの場合は、コールバック関数に渡される値を確認してください。コールバック関数が戻るまで、配列を解放しないでください。 | ||||||||
| IsCycle | BOOL* | out | 関数がデッドロックを検出した場合、この変数は TRUE に設定されます。それ以外の場合は FALSE に設定されます。 非同期セッションの場合は、コールバック関数に渡される値を確認してください。コールバック関数が戻るまで、変数を解放しないでください。 |
戻り値の型: BOOL
公式ドキュメント
指定したスレッドの待機チェーンを取得します。
戻り値
関数が成功すると、戻り値は 0 以外になります。
関数が失敗すると、戻り値は 0 になります。拡張エラー情報を取得するには、 GetLastError を呼び出します。
| 戻り値 | 説明 |
|---|---|
| 呼び出し元に、対象スレッドを開くための十分な特権がありませんでした。 | |
| 入力パラメーターのいずれかが無効です。 | |
| WCT セッションが非同期モードで開かれました。結果は WaitChainCallback コールバック関数を通じて返されます。 | |
| NodeInfoArray バッファーが、待機チェーン内のすべてのノードを格納するには不十分です。NodeCount パラメーターにはチェーン内のノード数が格納されます。返された待機チェーンは引き続き有効です。 | |
| オペレーティング システムがこのサービスを提供していません。 | |
| 指定されたスレッドが見つかりませんでした。 | |
| ノード数が WCT_MAX_NODE_COUNT を超えています。返された待機チェーンは引き続き有効です。 |
解説(Remarks)
セッションが非同期の場合、関数は FALSE を返し、GetLastError は ERROR_IO_PENDING を返します。結果を取得するには、WaitChainCallback コールバック関数を参照してください。
指定されたスレッドがブロックされていない場合、またはサポートされていない同期要素でブロックされている場合、関数は NodeInfoArray に 1 つの項目を返します。
呼び出し元は SE_DEBUG_NAME 特権を持っている必要があります。呼び出し元の特権が不十分な場合、最初のスレッドにアクセスできなければ関数は失敗します。それ以外の場合、配列内の最後のノードの ObjectStatus メンバーが WctStatusNoAcces に設定されます。
配列内のノードのいずれかの部分集合がサイクルを形成している場合、関数は IsCycle パラメーターを TRUE に設定します。
待機チェーン情報は動的です。関数が呼び出された時点では正しい情報ですが、呼び出し元が確認する時点では古くなっている可能性があります。
例
例については、 Using WCT を参照してください。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// ADVAPI32.dll
#include <windows.h>
BOOL GetThreadWaitChain(
void* WctHandle,
UINT_PTR Context, // optional
WAIT_CHAIN_THREAD_OPTIONS Flags,
DWORD ThreadId,
DWORD* NodeCount,
WAITCHAIN_NODE_INFO* NodeInfoArray,
BOOL* IsCycle
);[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("ADVAPI32.dll", SetLastError = true, ExactSpelling = true)]
static extern bool GetThreadWaitChain(
IntPtr WctHandle, // void*
UIntPtr Context, // UINT_PTR optional
uint Flags, // WAIT_CHAIN_THREAD_OPTIONS
uint ThreadId, // DWORD
ref uint NodeCount, // DWORD* in/out
IntPtr NodeInfoArray, // WAITCHAIN_NODE_INFO* out
out bool IsCycle // BOOL* out
);<DllImport("ADVAPI32.dll", SetLastError:=True, ExactSpelling:=True)>
Public Shared Function GetThreadWaitChain(
WctHandle As IntPtr, ' void*
Context As UIntPtr, ' UINT_PTR optional
Flags As UInteger, ' WAIT_CHAIN_THREAD_OPTIONS
ThreadId As UInteger, ' DWORD
ByRef NodeCount As UInteger, ' DWORD* in/out
NodeInfoArray As IntPtr, ' WAITCHAIN_NODE_INFO* out
<Out> ByRef IsCycle As Boolean ' BOOL* out
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function' WctHandle : void*
' Context : UINT_PTR optional
' Flags : WAIT_CHAIN_THREAD_OPTIONS
' ThreadId : DWORD
' NodeCount : DWORD* in/out
' NodeInfoArray : WAITCHAIN_NODE_INFO* out
' IsCycle : BOOL* out
Declare PtrSafe Function GetThreadWaitChain Lib "advapi32" ( _
ByVal WctHandle As LongPtr, _
ByVal Context As LongPtr, _
ByVal Flags As Long, _
ByVal ThreadId As Long, _
ByRef NodeCount As Long, _
ByVal NodeInfoArray As LongPtr, _
ByRef IsCycle As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
GetThreadWaitChain = ctypes.windll.advapi32.GetThreadWaitChain
GetThreadWaitChain.restype = wintypes.BOOL
GetThreadWaitChain.argtypes = [
ctypes.POINTER(None), # WctHandle : void*
ctypes.c_size_t, # Context : UINT_PTR optional
wintypes.DWORD, # Flags : WAIT_CHAIN_THREAD_OPTIONS
wintypes.DWORD, # ThreadId : DWORD
ctypes.POINTER(wintypes.DWORD), # NodeCount : DWORD* in/out
ctypes.c_void_p, # NodeInfoArray : WAITCHAIN_NODE_INFO* out
ctypes.c_void_p, # IsCycle : BOOL* out
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('ADVAPI32.dll')
GetThreadWaitChain = Fiddle::Function.new(
lib['GetThreadWaitChain'],
[
Fiddle::TYPE_VOIDP, # WctHandle : void*
Fiddle::TYPE_UINTPTR_T, # Context : UINT_PTR optional
-Fiddle::TYPE_INT, # Flags : WAIT_CHAIN_THREAD_OPTIONS
-Fiddle::TYPE_INT, # ThreadId : DWORD
Fiddle::TYPE_VOIDP, # NodeCount : DWORD* in/out
Fiddle::TYPE_VOIDP, # NodeInfoArray : WAITCHAIN_NODE_INFO* out
Fiddle::TYPE_VOIDP, # IsCycle : BOOL* out
],
Fiddle::TYPE_INT)#[link(name = "advapi32")]
extern "system" {
fn GetThreadWaitChain(
WctHandle: *mut (), // void*
Context: usize, // UINT_PTR optional
Flags: u32, // WAIT_CHAIN_THREAD_OPTIONS
ThreadId: u32, // DWORD
NodeCount: *mut u32, // DWORD* in/out
NodeInfoArray: *mut WAITCHAIN_NODE_INFO, // WAITCHAIN_NODE_INFO* out
IsCycle: *mut i32 // BOOL* out
) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("ADVAPI32.dll", SetLastError = true)]
public static extern bool GetThreadWaitChain(IntPtr WctHandle, UIntPtr Context, uint Flags, uint ThreadId, ref uint NodeCount, IntPtr NodeInfoArray, out bool IsCycle);
"@
$api = Add-Type -MemberDefinition $sig -Name 'ADVAPI32_GetThreadWaitChain' -Namespace Win32 -PassThru
# $api::GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle)#uselib "ADVAPI32.dll"
#func global GetThreadWaitChain "GetThreadWaitChain" sptr, sptr, sptr, sptr, sptr, sptr, sptr
; GetThreadWaitChain WctHandle, Context, Flags, ThreadId, varptr(NodeCount), varptr(NodeInfoArray), varptr(IsCycle) ; 戻り値は stat
; WctHandle : void* -> "sptr"
; Context : UINT_PTR optional -> "sptr"
; Flags : WAIT_CHAIN_THREAD_OPTIONS -> "sptr"
; ThreadId : DWORD -> "sptr"
; NodeCount : DWORD* in/out -> "sptr"
; NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "sptr"
; IsCycle : BOOL* out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "ADVAPI32.dll" #cfunc global GetThreadWaitChain "GetThreadWaitChain" sptr, sptr, int, int, var, var, var ; res = GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle) ; WctHandle : void* -> "sptr" ; Context : UINT_PTR optional -> "sptr" ; Flags : WAIT_CHAIN_THREAD_OPTIONS -> "int" ; ThreadId : DWORD -> "int" ; NodeCount : DWORD* in/out -> "var" ; NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "var" ; IsCycle : BOOL* out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "ADVAPI32.dll" #cfunc global GetThreadWaitChain "GetThreadWaitChain" sptr, sptr, int, int, sptr, sptr, sptr ; res = GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, varptr(NodeCount), varptr(NodeInfoArray), varptr(IsCycle)) ; WctHandle : void* -> "sptr" ; Context : UINT_PTR optional -> "sptr" ; Flags : WAIT_CHAIN_THREAD_OPTIONS -> "int" ; ThreadId : DWORD -> "int" ; NodeCount : DWORD* in/out -> "sptr" ; NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "sptr" ; IsCycle : BOOL* out -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; BOOL GetThreadWaitChain(void* WctHandle, UINT_PTR Context, WAIT_CHAIN_THREAD_OPTIONS Flags, DWORD ThreadId, DWORD* NodeCount, WAITCHAIN_NODE_INFO* NodeInfoArray, BOOL* IsCycle) #uselib "ADVAPI32.dll" #cfunc global GetThreadWaitChain "GetThreadWaitChain" intptr, intptr, int, int, var, var, var ; res = GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle) ; WctHandle : void* -> "intptr" ; Context : UINT_PTR optional -> "intptr" ; Flags : WAIT_CHAIN_THREAD_OPTIONS -> "int" ; ThreadId : DWORD -> "int" ; NodeCount : DWORD* in/out -> "var" ; NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "var" ; IsCycle : BOOL* out -> "var" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; BOOL GetThreadWaitChain(void* WctHandle, UINT_PTR Context, WAIT_CHAIN_THREAD_OPTIONS Flags, DWORD ThreadId, DWORD* NodeCount, WAITCHAIN_NODE_INFO* NodeInfoArray, BOOL* IsCycle) #uselib "ADVAPI32.dll" #cfunc global GetThreadWaitChain "GetThreadWaitChain" intptr, intptr, int, int, intptr, intptr, intptr ; res = GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, varptr(NodeCount), varptr(NodeInfoArray), varptr(IsCycle)) ; WctHandle : void* -> "intptr" ; Context : UINT_PTR optional -> "intptr" ; Flags : WAIT_CHAIN_THREAD_OPTIONS -> "int" ; ThreadId : DWORD -> "int" ; NodeCount : DWORD* in/out -> "intptr" ; NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "intptr" ; IsCycle : BOOL* out -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
advapi32 = windows.NewLazySystemDLL("ADVAPI32.dll")
procGetThreadWaitChain = advapi32.NewProc("GetThreadWaitChain")
)
// WctHandle (void*), Context (UINT_PTR optional), Flags (WAIT_CHAIN_THREAD_OPTIONS), ThreadId (DWORD), NodeCount (DWORD* in/out), NodeInfoArray (WAITCHAIN_NODE_INFO* out), IsCycle (BOOL* out)
r1, _, err := procGetThreadWaitChain.Call(
uintptr(WctHandle),
uintptr(Context),
uintptr(Flags),
uintptr(ThreadId),
uintptr(NodeCount),
uintptr(NodeInfoArray),
uintptr(IsCycle),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // BOOLfunction GetThreadWaitChain(
WctHandle: Pointer; // void*
Context: NativeUInt; // UINT_PTR optional
Flags: DWORD; // WAIT_CHAIN_THREAD_OPTIONS
ThreadId: DWORD; // DWORD
NodeCount: Pointer; // DWORD* in/out
NodeInfoArray: Pointer; // WAITCHAIN_NODE_INFO* out
IsCycle: Pointer // BOOL* out
): BOOL; stdcall;
external 'ADVAPI32.dll' name 'GetThreadWaitChain';result := DllCall("ADVAPI32\GetThreadWaitChain"
, "Ptr", WctHandle ; void*
, "UPtr", Context ; UINT_PTR optional
, "UInt", Flags ; WAIT_CHAIN_THREAD_OPTIONS
, "UInt", ThreadId ; DWORD
, "Ptr", NodeCount ; DWORD* in/out
, "Ptr", NodeInfoArray ; WAITCHAIN_NODE_INFO* out
, "Ptr", IsCycle ; BOOL* out
, "Int") ; return: BOOL●GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle) = DLL("ADVAPI32.dll", "bool GetThreadWaitChain(void*, int, dword, dword, void*, void*, void*)")
# 呼び出し: GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle)
# WctHandle : void* -> "void*"
# Context : UINT_PTR optional -> "int"
# Flags : WAIT_CHAIN_THREAD_OPTIONS -> "dword"
# ThreadId : DWORD -> "dword"
# NodeCount : DWORD* in/out -> "void*"
# NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "void*"
# IsCycle : BOOL* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。const std = @import("std");
extern "advapi32" fn GetThreadWaitChain(
WctHandle: ?*anyopaque, // void*
Context: usize, // UINT_PTR optional
Flags: u32, // WAIT_CHAIN_THREAD_OPTIONS
ThreadId: u32, // DWORD
NodeCount: [*c]u32, // DWORD* in/out
NodeInfoArray: [*c]WAITCHAIN_NODE_INFO, // WAITCHAIN_NODE_INFO* out
IsCycle: [*c]i32 // BOOL* out
) callconv(std.os.windows.WINAPI) i32;proc GetThreadWaitChain(
WctHandle: pointer, # void*
Context: uint, # UINT_PTR optional
Flags: uint32, # WAIT_CHAIN_THREAD_OPTIONS
ThreadId: uint32, # DWORD
NodeCount: ptr uint32, # DWORD* in/out
NodeInfoArray: ptr WAITCHAIN_NODE_INFO, # WAITCHAIN_NODE_INFO* out
IsCycle: ptr int32 # BOOL* out
): int32 {.importc: "GetThreadWaitChain", stdcall, dynlib: "ADVAPI32.dll".}pragma(lib, "advapi32");
extern(Windows)
int GetThreadWaitChain(
void* WctHandle, // void*
size_t Context, // UINT_PTR optional
uint Flags, // WAIT_CHAIN_THREAD_OPTIONS
uint ThreadId, // DWORD
uint* NodeCount, // DWORD* in/out
WAITCHAIN_NODE_INFO* NodeInfoArray, // WAITCHAIN_NODE_INFO* out
int* IsCycle // BOOL* out
);ccall((:GetThreadWaitChain, "ADVAPI32.dll"), stdcall, Int32,
(Ptr{Cvoid}, Csize_t, UInt32, UInt32, Ptr{UInt32}, Ptr{WAITCHAIN_NODE_INFO}, Ptr{Int32}),
WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle)
# WctHandle : void* -> Ptr{Cvoid}
# Context : UINT_PTR optional -> Csize_t
# Flags : WAIT_CHAIN_THREAD_OPTIONS -> UInt32
# ThreadId : DWORD -> UInt32
# NodeCount : DWORD* in/out -> Ptr{UInt32}
# NodeInfoArray : WAITCHAIN_NODE_INFO* out -> Ptr{WAITCHAIN_NODE_INFO}
# IsCycle : BOOL* out -> Ptr{Int32}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。local ffi = require("ffi")
ffi.cdef[[
int32_t GetThreadWaitChain(
void* WctHandle,
uintptr_t Context,
uint32_t Flags,
uint32_t ThreadId,
uint32_t* NodeCount,
void* NodeInfoArray,
int32_t* IsCycle);
]]
local advapi32 = ffi.load("advapi32")
-- advapi32.GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle)
-- WctHandle : void*
-- Context : UINT_PTR optional
-- Flags : WAIT_CHAIN_THREAD_OPTIONS
-- ThreadId : DWORD
-- NodeCount : DWORD* in/out
-- NodeInfoArray : WAITCHAIN_NODE_INFO* out
-- IsCycle : BOOL* out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。const koffi = require('koffi');
const lib = koffi.load('ADVAPI32.dll');
const GetThreadWaitChain = lib.func('__stdcall', 'GetThreadWaitChain', 'int32_t', ['void *', 'uintptr_t', 'uint32_t', 'uint32_t', 'uint32_t *', 'void *', 'int32_t *']);
// GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle)
// WctHandle : void* -> 'void *'
// Context : UINT_PTR optional -> 'uintptr_t'
// Flags : WAIT_CHAIN_THREAD_OPTIONS -> 'uint32_t'
// ThreadId : DWORD -> 'uint32_t'
// NodeCount : DWORD* in/out -> 'uint32_t *'
// NodeInfoArray : WAITCHAIN_NODE_INFO* out -> 'void *'
// IsCycle : BOOL* out -> 'int32_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("ADVAPI32.dll", {
GetThreadWaitChain: { parameters: ["pointer", "usize", "u32", "u32", "pointer", "pointer", "pointer"], result: "i32" },
});
// lib.symbols.GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle)
// WctHandle : void* -> "pointer"
// Context : UINT_PTR optional -> "usize"
// Flags : WAIT_CHAIN_THREAD_OPTIONS -> "u32"
// ThreadId : DWORD -> "u32"
// NodeCount : DWORD* in/out -> "pointer"
// NodeInfoArray : WAITCHAIN_NODE_INFO* out -> "pointer"
// IsCycle : BOOL* out -> "pointer"
// 文字列引数は "buffer"(NUL 終端のバイト列を Uint8Array で渡す)。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t GetThreadWaitChain(
void* WctHandle,
size_t Context,
uint32_t Flags,
uint32_t ThreadId,
uint32_t* NodeCount,
void* NodeInfoArray,
int32_t* IsCycle);
C, "ADVAPI32.dll");
// $ffi->GetThreadWaitChain(WctHandle, Context, Flags, ThreadId, NodeCount, NodeInfoArray, IsCycle);
// WctHandle : void*
// Context : UINT_PTR optional
// Flags : WAIT_CHAIN_THREAD_OPTIONS
// ThreadId : DWORD
// NodeCount : DWORD* in/out
// NodeInfoArray : WAITCHAIN_NODE_INFO* out
// IsCycle : BOOL* out
// 構造体/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);
boolean GetThreadWaitChain(
Pointer WctHandle, // void*
long Context, // UINT_PTR optional
int Flags, // WAIT_CHAIN_THREAD_OPTIONS
int ThreadId, // DWORD
IntByReference NodeCount, // DWORD* in/out
Pointer NodeInfoArray, // WAITCHAIN_NODE_INFO* out
IntByReference IsCycle // BOOL* out
);
}@[Link("advapi32")]
lib LibADVAPI32
fun GetThreadWaitChain = GetThreadWaitChain(
WctHandle : Void*, # void*
Context : LibC::SizeT, # UINT_PTR optional
Flags : UInt32, # WAIT_CHAIN_THREAD_OPTIONS
ThreadId : UInt32, # DWORD
NodeCount : UInt32*, # DWORD* in/out
NodeInfoArray : WAITCHAIN_NODE_INFO*, # WAITCHAIN_NODE_INFO* out
IsCycle : Int32* # BOOL* out
) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef GetThreadWaitChainNative = Int32 Function(Pointer<Void>, UintPtr, Uint32, Uint32, Pointer<Uint32>, Pointer<Void>, Pointer<Int32>);
typedef GetThreadWaitChainDart = int Function(Pointer<Void>, int, int, int, Pointer<Uint32>, Pointer<Void>, Pointer<Int32>);
final GetThreadWaitChain = DynamicLibrary.open('ADVAPI32.dll')
.lookupFunction<GetThreadWaitChainNative, GetThreadWaitChainDart>('GetThreadWaitChain');
// WctHandle : void* -> Pointer<Void>
// Context : UINT_PTR optional -> UintPtr
// Flags : WAIT_CHAIN_THREAD_OPTIONS -> Uint32
// ThreadId : DWORD -> Uint32
// NodeCount : DWORD* in/out -> Pointer<Uint32>
// NodeInfoArray : WAITCHAIN_NODE_INFO* out -> Pointer<Void>
// IsCycle : BOOL* out -> Pointer<Int32>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function GetThreadWaitChain(
WctHandle: Pointer; // void*
Context: NativeUInt; // UINT_PTR optional
Flags: DWORD; // WAIT_CHAIN_THREAD_OPTIONS
ThreadId: DWORD; // DWORD
NodeCount: Pointer; // DWORD* in/out
NodeInfoArray: Pointer; // WAITCHAIN_NODE_INFO* out
IsCycle: Pointer // BOOL* out
): BOOL; stdcall;
external 'ADVAPI32.dll' name 'GetThreadWaitChain';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "GetThreadWaitChain"
c_GetThreadWaitChain :: Ptr () -> CUIntPtr -> Word32 -> Word32 -> Ptr Word32 -> Ptr () -> Ptr CInt -> IO CInt
-- WctHandle : void* -> Ptr ()
-- Context : UINT_PTR optional -> CUIntPtr
-- Flags : WAIT_CHAIN_THREAD_OPTIONS -> Word32
-- ThreadId : DWORD -> Word32
-- NodeCount : DWORD* in/out -> Ptr Word32
-- NodeInfoArray : WAITCHAIN_NODE_INFO* out -> Ptr ()
-- IsCycle : BOOL* out -> Ptr CInt
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let getthreadwaitchain =
foreign "GetThreadWaitChain"
((ptr void) @-> size_t @-> uint32_t @-> uint32_t @-> (ptr uint32_t) @-> (ptr void) @-> (ptr int32_t) @-> returning int32_t)
(* WctHandle : void* -> (ptr void) *)
(* Context : UINT_PTR optional -> size_t *)
(* Flags : WAIT_CHAIN_THREAD_OPTIONS -> uint32_t *)
(* ThreadId : DWORD -> uint32_t *)
(* NodeCount : DWORD* in/out -> (ptr uint32_t) *)
(* NodeInfoArray : WAITCHAIN_NODE_INFO* out -> (ptr void) *)
(* IsCycle : BOOL* out -> (ptr int32_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library advapi32 (t "ADVAPI32.dll"))
(cffi:use-foreign-library advapi32)
(cffi:defcfun ("GetThreadWaitChain" get-thread-wait-chain :convention :stdcall) :int32
(wct-handle :pointer) ; void*
(context :uint64) ; UINT_PTR optional
(flags :uint32) ; WAIT_CHAIN_THREAD_OPTIONS
(thread-id :uint32) ; DWORD
(node-count :pointer) ; DWORD* in/out
(node-info-array :pointer) ; WAITCHAIN_NODE_INFO* out
(is-cycle :pointer)) ; BOOL* out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $GetThreadWaitChain = Win32::API::More->new('ADVAPI32',
'BOOL GetThreadWaitChain(LPVOID WctHandle, WPARAM Context, DWORD Flags, DWORD ThreadId, LPVOID NodeCount, LPVOID NodeInfoArray, LPVOID IsCycle)');
# my $ret = $GetThreadWaitChain->Call($WctHandle, $Context, $Flags, $ThreadId, $NodeCount, $NodeInfoArray, $IsCycle);
# WctHandle : void* -> LPVOID
# Context : UINT_PTR optional -> WPARAM
# Flags : WAIT_CHAIN_THREAD_OPTIONS -> DWORD
# ThreadId : DWORD -> DWORD
# NodeCount : DWORD* in/out -> LPVOID
# NodeInfoArray : WAITCHAIN_NODE_INFO* out -> LPVOID
# IsCycle : BOOL* out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。関連項目
- f OpenThreadWaitChainSession — スレッド待機チェーン分析のセッションを開始する。
- c PWAITCHAINCALLBACK