DialogBoxIndirectParamW
関数シグネチャ
// USER32.dll (Unicode / -W)
#include <windows.h>
INT_PTR DialogBoxIndirectParamW(
HINSTANCE hInstance, // optional
DLGTEMPLATE* hDialogTemplate,
HWND hWndParent, // optional
DLGPROC lpDialogFunc, // optional
LPARAM dwInitParam
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| hInstance | HINSTANCE | inoptional | ダイアログボックスを作成するモジュールへのハンドルです。 |
| hDialogTemplate | DLGTEMPLATE* | in | DialogBoxIndirectParam がダイアログボックスの作成に使用するテンプレートです。ダイアログボックステンプレートは、ダイアログボックスを記述するヘッダーと、それに続く 1 つ以上の追加データブロック(ダイアログボックス内の各コントロールを記述する)で構成されます。テンプレートには標準フォーマットまたは拡張フォーマットのいずれかを使用できます。 ダイアログボックスの標準テンプレートでは、ヘッダーは DLGTEMPLATE 構造体に続いて追加の可変長配列が並びます。各コントロールのデータは、DLGITEMTEMPLATE 構造体に続いて追加の可変長配列が並びます。 ダイアログボックスの拡張テンプレートでは、ヘッダーに DLGTEMPLATEEX フォーマットを使用し、コントロール定義には DLGITEMTEMPLATEEX フォーマットを使用します。 |
| hWndParent | HWND | inoptional | ダイアログボックスを所有するウィンドウへのハンドルです。 |
| lpDialogFunc | DLGPROC | inoptional | ダイアログボックスプロシージャへのポインターです。ダイアログボックスプロシージャの詳細については、DialogProc を参照してください。 |
| dwInitParam | LPARAM | in | WM_INITDIALOG メッセージの lParam パラメーターでダイアログボックスに渡す値です。 |
戻り値の型: INT_PTR
公式ドキュメント
メモリ内のダイアログボックステンプレートからモーダルダイアログボックスを作成します。(Unicode)
戻り値
型: INT_PTR
関数が成功した場合、戻り値はダイアログボックスを終了するために使用した EndDialog 関数の呼び出しで指定された nResult パラメーターです。
hWndParent パラメーターが無効なために関数が失敗した場合、戻り値は 0 です。この場合に関数が 0 を返すのは、以前のバージョンの Windows との互換性のためです。その他の理由で関数が失敗した場合、戻り値は –1 です。拡張エラー情報を取得するには、GetLastError を呼び出します。
解説(Remarks)
DialogBoxIndirectParam 関数は、CreateWindowEx 関数を使用してダイアログボックスを作成します。次に DialogBoxIndirectParam は、ダイアログボックスプロシージャに WM_INITDIALOG メッセージを送信します。テンプレートが DS_SETFONT または DS_SHELLFONT スタイルを指定している場合、関数はダイアログボックスプロシージャに WM_SETFONT メッセージも送信します。関数は(テンプレートが WS_VISIBLE スタイルを指定しているかどうかにかかわらず)ダイアログボックスを表示し、所有ウィンドウを無効化して、独自のメッセージループを開始し、ダイアログボックスのメッセージを取得してディスパッチします。
ダイアログボックスプロシージャが EndDialog 関数を呼び出すと、DialogBoxIndirectParam はダイアログボックスを破棄し、メッセージループを終了し、所有ウィンドウを(以前有効であった場合は)有効化して、ダイアログボックスプロシージャが EndDialog を呼び出した際に指定した nResult パラメーターを返します。
標準ダイアログボックステンプレートでは、DLGTEMPLATE 構造体および各 DLGITEMTEMPLATE 構造体は DWORD 境界に整列する必要があります。DLGITEMTEMPLATE 構造体に続く作成データ配列も DWORD 境界に整列する必要があります。テンプレート内のその他のすべての可変長配列は WORD 境界に整列する必要があります。
拡張ダイアログボックステンプレートでは、DLGTEMPLATEEX ヘッダーおよび各 DLGITEMTEMPLATEEX コントロール定義は DWORD 境界に整列する必要があります。DLGITEMTEMPLATEEX 構造体に続く作成データ配列(存在する場合)も DWORD 境界に整列する必要があります。テンプレート内のその他のすべての可変長配列は WORD 境界に整列する必要があります。
ダイアログボックステンプレート内のすべての文字列(ダイアログボックスやボタンのタイトルなど)は Unicode 文字列である必要があります。
winuser.h ヘッダーは DialogBoxIndirectParam を、UNICODE プリプロセッサ定数の定義に基づいてこの関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして定義しています。エンコーディング中立なエイリアスの使用と、エンコーディング中立でないコードを混在させると、不一致が生じてコンパイルエラーや実行時エラーを引き起こす可能性があります。詳細については、関数プロトタイプの規則を参照してください。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// USER32.dll (Unicode / -W)
#include <windows.h>
INT_PTR DialogBoxIndirectParamW(
HINSTANCE hInstance, // optional
DLGTEMPLATE* hDialogTemplate,
HWND hWndParent, // optional
DLGPROC lpDialogFunc, // optional
LPARAM dwInitParam
);[DllImport("USER32.dll", CharSet = CharSet.Unicode, SetLastError = true, ExactSpelling = true)]
static extern IntPtr DialogBoxIndirectParamW(
IntPtr hInstance, // HINSTANCE optional
IntPtr hDialogTemplate, // DLGTEMPLATE*
IntPtr hWndParent, // HWND optional
IntPtr lpDialogFunc, // DLGPROC optional
IntPtr dwInitParam // LPARAM
);<DllImport("USER32.dll", CharSet:=CharSet.Unicode, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function DialogBoxIndirectParamW(
hInstance As IntPtr, ' HINSTANCE optional
hDialogTemplate As IntPtr, ' DLGTEMPLATE*
hWndParent As IntPtr, ' HWND optional
lpDialogFunc As IntPtr, ' DLGPROC optional
dwInitParam As IntPtr ' LPARAM
) As IntPtr
End Function' hInstance : HINSTANCE optional
' hDialogTemplate : DLGTEMPLATE*
' hWndParent : HWND optional
' lpDialogFunc : DLGPROC optional
' dwInitParam : LPARAM
Declare PtrSafe Function DialogBoxIndirectParamW Lib "user32" ( _
ByVal hInstance As LongPtr, _
ByVal hDialogTemplate As LongPtr, _
ByVal hWndParent As LongPtr, _
ByVal lpDialogFunc As LongPtr, _
ByVal dwInitParam As LongPtr) As LongPtr
' Unicode(W): 文字列は ByVal As LongPtr とし StrPtr(unicodeStr) を渡す
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。import ctypes
from ctypes import wintypes
DialogBoxIndirectParamW = ctypes.windll.user32.DialogBoxIndirectParamW
DialogBoxIndirectParamW.restype = ctypes.c_ssize_t
DialogBoxIndirectParamW.argtypes = [
wintypes.HANDLE, # hInstance : HINSTANCE optional
ctypes.c_void_p, # hDialogTemplate : DLGTEMPLATE*
wintypes.HANDLE, # hWndParent : HWND optional
ctypes.c_void_p, # lpDialogFunc : DLGPROC optional
ctypes.c_ssize_t, # dwInitParam : LPARAM
]
# GetLastError: use ctypes.GetLastError() (or ctypes.WinDLL(use_last_error=True))require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('USER32.dll')
DialogBoxIndirectParamW = Fiddle::Function.new(
lib['DialogBoxIndirectParamW'],
[
Fiddle::TYPE_VOIDP, # hInstance : HINSTANCE optional
Fiddle::TYPE_VOIDP, # hDialogTemplate : DLGTEMPLATE*
Fiddle::TYPE_VOIDP, # hWndParent : HWND optional
Fiddle::TYPE_VOIDP, # lpDialogFunc : DLGPROC optional
Fiddle::TYPE_INTPTR_T, # dwInitParam : LPARAM
],
Fiddle::TYPE_INTPTR_T)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"#[link(name = "user32")]
extern "system" {
fn DialogBoxIndirectParamW(
hInstance: *mut core::ffi::c_void, // HINSTANCE optional
hDialogTemplate: *mut DLGTEMPLATE, // DLGTEMPLATE*
hWndParent: *mut core::ffi::c_void, // HWND optional
lpDialogFunc: *const core::ffi::c_void, // DLGPROC optional
dwInitParam: isize // LPARAM
) -> isize;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[DllImport("USER32.dll", CharSet = CharSet.Unicode, SetLastError = true)]
public static extern IntPtr DialogBoxIndirectParamW(IntPtr hInstance, IntPtr hDialogTemplate, IntPtr hWndParent, IntPtr lpDialogFunc, IntPtr dwInitParam);
"@
$api = Add-Type -MemberDefinition $sig -Name 'USER32_DialogBoxIndirectParamW' -Namespace Win32 -PassThru
# $api::DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam)#uselib "USER32.dll"
#func global DialogBoxIndirectParamW "DialogBoxIndirectParamW" wptr, wptr, wptr, wptr, wptr
; DialogBoxIndirectParamW hInstance, varptr(hDialogTemplate), hWndParent, lpDialogFunc, dwInitParam ; 戻り値は stat
; hInstance : HINSTANCE optional -> "wptr"
; hDialogTemplate : DLGTEMPLATE* -> "wptr"
; hWndParent : HWND optional -> "wptr"
; lpDialogFunc : DLGPROC optional -> "wptr"
; dwInitParam : LPARAM -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。#uselib "USER32.dll" #cfunc global DialogBoxIndirectParamW "DialogBoxIndirectParamW" sptr, var, sptr, sptr, sptr ; res = DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam) ; hInstance : HINSTANCE optional -> "sptr" ; hDialogTemplate : DLGTEMPLATE* -> "var" ; hWndParent : HWND optional -> "sptr" ; lpDialogFunc : DLGPROC optional -> "sptr" ; dwInitParam : LPARAM -> "sptr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "USER32.dll" #cfunc global DialogBoxIndirectParamW "DialogBoxIndirectParamW" sptr, sptr, sptr, sptr, sptr ; res = DialogBoxIndirectParamW(hInstance, varptr(hDialogTemplate), hWndParent, lpDialogFunc, dwInitParam) ; hInstance : HINSTANCE optional -> "sptr" ; hDialogTemplate : DLGTEMPLATE* -> "sptr" ; hWndParent : HWND optional -> "sptr" ; lpDialogFunc : DLGPROC optional -> "sptr" ; dwInitParam : LPARAM -> "sptr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
; INT_PTR DialogBoxIndirectParamW(HINSTANCE hInstance, DLGTEMPLATE* hDialogTemplate, HWND hWndParent, DLGPROC lpDialogFunc, LPARAM dwInitParam) #uselib "USER32.dll" #cfunc global DialogBoxIndirectParamW "DialogBoxIndirectParamW" intptr, var, intptr, intptr, intptr ; res = DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam) ; hInstance : HINSTANCE optional -> "intptr" ; hDialogTemplate : DLGTEMPLATE* -> "var" ; hWndParent : HWND optional -> "intptr" ; lpDialogFunc : DLGPROC optional -> "intptr" ; dwInitParam : LPARAM -> "intptr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; INT_PTR DialogBoxIndirectParamW(HINSTANCE hInstance, DLGTEMPLATE* hDialogTemplate, HWND hWndParent, DLGPROC lpDialogFunc, LPARAM dwInitParam) #uselib "USER32.dll" #cfunc global DialogBoxIndirectParamW "DialogBoxIndirectParamW" intptr, intptr, intptr, intptr, intptr ; res = DialogBoxIndirectParamW(hInstance, varptr(hDialogTemplate), hWndParent, lpDialogFunc, dwInitParam) ; hInstance : HINSTANCE optional -> "intptr" ; hDialogTemplate : DLGTEMPLATE* -> "intptr" ; hWndParent : HWND optional -> "intptr" ; lpDialogFunc : DLGPROC optional -> "intptr" ; dwInitParam : LPARAM -> "intptr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
user32 = windows.NewLazySystemDLL("USER32.dll")
procDialogBoxIndirectParamW = user32.NewProc("DialogBoxIndirectParamW")
)
// hInstance (HINSTANCE optional), hDialogTemplate (DLGTEMPLATE*), hWndParent (HWND optional), lpDialogFunc (DLGPROC optional), dwInitParam (LPARAM)
r1, _, err := procDialogBoxIndirectParamW.Call(
uintptr(hInstance),
uintptr(hDialogTemplate),
uintptr(hWndParent),
uintptr(lpDialogFunc),
uintptr(dwInitParam),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // INT_PTRfunction DialogBoxIndirectParamW(
hInstance: THandle; // HINSTANCE optional
hDialogTemplate: Pointer; // DLGTEMPLATE*
hWndParent: THandle; // HWND optional
lpDialogFunc: Pointer; // DLGPROC optional
dwInitParam: NativeInt // LPARAM
): NativeInt; stdcall;
external 'USER32.dll' name 'DialogBoxIndirectParamW';result := DllCall("USER32\DialogBoxIndirectParamW"
, "Ptr", hInstance ; HINSTANCE optional
, "Ptr", hDialogTemplate ; DLGTEMPLATE*
, "Ptr", hWndParent ; HWND optional
, "Ptr", lpDialogFunc ; DLGPROC optional
, "Ptr", dwInitParam ; LPARAM
, "Ptr") ; return: INT_PTR●DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam) = DLL("USER32.dll", "int DialogBoxIndirectParamW(void*, void*, void*, void*, int)")
# 呼び出し: DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam)
# hInstance : HINSTANCE optional -> "void*"
# hDialogTemplate : DLGTEMPLATE* -> "void*"
# hWndParent : HWND optional -> "void*"
# lpDialogFunc : DLGPROC optional -> "void*"
# dwInitParam : LPARAM -> "int"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
# ※-W(Unicode)関数。なでしこ1はANSIのため -A 版の利用を推奨。const std = @import("std");
extern "user32" fn DialogBoxIndirectParamW(
hInstance: ?*anyopaque, // HINSTANCE optional
hDialogTemplate: [*c]DLGTEMPLATE, // DLGTEMPLATE*
hWndParent: ?*anyopaque, // HWND optional
lpDialogFunc: ?*anyopaque, // DLGPROC optional
dwInitParam: isize // LPARAM
) callconv(std.os.windows.WINAPI) isize;
// Unicode(-W): UTF-16LE のヌル終端バッファ([*c]const u16)を渡す。proc DialogBoxIndirectParamW(
hInstance: pointer, # HINSTANCE optional
hDialogTemplate: ptr DLGTEMPLATE, # DLGTEMPLATE*
hWndParent: pointer, # HWND optional
lpDialogFunc: pointer, # DLGPROC optional
dwInitParam: int # LPARAM
): int {.importc: "DialogBoxIndirectParamW", stdcall, dynlib: "USER32.dll".}
# Unicode(-W): WideCString は newWideCString("...") で生成。pragma(lib, "user32");
extern(Windows)
ptrdiff_t DialogBoxIndirectParamW(
void* hInstance, // HINSTANCE optional
DLGTEMPLATE* hDialogTemplate, // DLGTEMPLATE*
void* hWndParent, // HWND optional
void* lpDialogFunc, // DLGPROC optional
ptrdiff_t dwInitParam // LPARAM
);ccall((:DialogBoxIndirectParamW, "USER32.dll"), stdcall, Int,
(Ptr{Cvoid}, Ptr{DLGTEMPLATE}, Ptr{Cvoid}, Ptr{Cvoid}, Int),
hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam)
# hInstance : HINSTANCE optional -> Ptr{Cvoid}
# hDialogTemplate : DLGTEMPLATE* -> Ptr{DLGTEMPLATE}
# hWndParent : HWND optional -> Ptr{Cvoid}
# lpDialogFunc : DLGPROC optional -> Ptr{Cvoid}
# dwInitParam : LPARAM -> Int
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
# Unicode(-W): Cwstring には transcode(UInt16, "...") 等で UTF-16 を渡す。local ffi = require("ffi")
ffi.cdef[[
intptr_t DialogBoxIndirectParamW(
void* hInstance,
void* hDialogTemplate,
void* hWndParent,
void* lpDialogFunc,
intptr_t dwInitParam);
]]
local user32 = ffi.load("user32")
-- user32.DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam)
-- hInstance : HINSTANCE optional
-- hDialogTemplate : DLGTEMPLATE*
-- hWndParent : HWND optional
-- lpDialogFunc : DLGPROC optional
-- dwInitParam : LPARAM
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
-- Unicode(-W): uint16_t* には UTF-16LE のバッファ(ffi.new("uint16_t[?]", ...))を渡す。const koffi = require('koffi');
const lib = koffi.load('USER32.dll');
const DialogBoxIndirectParamW = lib.func('__stdcall', 'DialogBoxIndirectParamW', 'intptr_t', ['void *', 'void *', 'void *', 'void *', 'intptr_t']);
// DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam)
// hInstance : HINSTANCE optional -> 'void *'
// hDialogTemplate : DLGTEMPLATE* -> 'void *'
// hWndParent : HWND optional -> 'void *'
// lpDialogFunc : DLGPROC optional -> 'void *'
// dwInitParam : LPARAM -> 'intptr_t'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。
// コールバック(関数ポインタ)は koffi.proto/koffi.register で型を定義して渡す(素の void* では JS 関数を渡せない)。const lib = Deno.dlopen("USER32.dll", {
DialogBoxIndirectParamW: { parameters: ["pointer", "pointer", "pointer", "pointer", "isize"], result: "isize" },
});
// lib.symbols.DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam)
// hInstance : HINSTANCE optional -> "pointer"
// hDialogTemplate : DLGTEMPLATE* -> "pointer"
// hWndParent : HWND optional -> "pointer"
// lpDialogFunc : DLGPROC optional -> "pointer"
// dwInitParam : LPARAM -> "isize"
// 文字列は "buffer"。Unicode(-W) は new TextEncoder() ではなく UTF-16LE のバイト列(末尾に \x00\x00)を Uint8Array で渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
intptr_t DialogBoxIndirectParamW(
void* hInstance,
void* hDialogTemplate,
void* hWndParent,
void* lpDialogFunc,
intptr_t dwInitParam);
C, "USER32.dll");
// $ffi->DialogBoxIndirectParamW(hInstance, hDialogTemplate, hWndParent, lpDialogFunc, dwInitParam);
// hInstance : HINSTANCE optional
// hDialogTemplate : DLGTEMPLATE*
// hWndParent : HWND optional
// lpDialogFunc : DLGPROC optional
// dwInitParam : LPARAM
// 構造体/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 User32 extends StdCallLibrary {
User32 INSTANCE = Native.load("user32", User32.class, W32APIOptions.UNICODE_OPTIONS);
long DialogBoxIndirectParamW(
Pointer hInstance, // HINSTANCE optional
Pointer hDialogTemplate, // DLGTEMPLATE*
Pointer hWndParent, // HWND optional
Callback lpDialogFunc, // DLGPROC optional
long dwInitParam // LPARAM
);
}
// Unicode(-W): WString(入力)/char[](出力)で UTF-16 をマーシャリング。@[Link("user32")]
lib LibUSER32
fun DialogBoxIndirectParamW = DialogBoxIndirectParamW(
hInstance : Void*, # HINSTANCE optional
hDialogTemplate : DLGTEMPLATE*, # DLGTEMPLATE*
hWndParent : Void*, # HWND optional
lpDialogFunc : Void*, # DLGPROC optional
dwInitParam : LibC::SSizeT # LPARAM
) : LibC::SSizeT
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef DialogBoxIndirectParamWNative = IntPtr Function(Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, IntPtr);
typedef DialogBoxIndirectParamWDart = int Function(Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Void>, int);
final DialogBoxIndirectParamW = DynamicLibrary.open('USER32.dll')
.lookupFunction<DialogBoxIndirectParamWNative, DialogBoxIndirectParamWDart>('DialogBoxIndirectParamW');
// hInstance : HINSTANCE optional -> Pointer<Void>
// hDialogTemplate : DLGTEMPLATE* -> Pointer<Void>
// hWndParent : HWND optional -> Pointer<Void>
// lpDialogFunc : DLGPROC optional -> Pointer<Void>
// dwInitParam : LPARAM -> IntPtr
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function DialogBoxIndirectParamW(
hInstance: THandle; // HINSTANCE optional
hDialogTemplate: Pointer; // DLGTEMPLATE*
hWndParent: THandle; // HWND optional
lpDialogFunc: Pointer; // DLGPROC optional
dwInitParam: NativeInt // LPARAM
): NativeInt; stdcall;
external 'USER32.dll' name 'DialogBoxIndirectParamW';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "DialogBoxIndirectParamW"
c_DialogBoxIndirectParamW :: Ptr () -> Ptr () -> Ptr () -> Ptr () -> CIntPtr -> IO CIntPtr
-- hInstance : HINSTANCE optional -> Ptr ()
-- hDialogTemplate : DLGTEMPLATE* -> Ptr ()
-- hWndParent : HWND optional -> Ptr ()
-- lpDialogFunc : DLGPROC optional -> Ptr ()
-- dwInitParam : LPARAM -> CIntPtr
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let dialogboxindirectparamw =
foreign "DialogBoxIndirectParamW"
((ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> intptr_t @-> returning intptr_t)
(* hInstance : HINSTANCE optional -> (ptr void) *)
(* hDialogTemplate : DLGTEMPLATE* -> (ptr void) *)
(* hWndParent : HWND optional -> (ptr void) *)
(* lpDialogFunc : DLGPROC optional -> (ptr void) *)
(* dwInitParam : LPARAM -> intptr_t *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library user32 (t "USER32.dll"))
(cffi:use-foreign-library user32)
(cffi:defcfun ("DialogBoxIndirectParamW" dialog-box-indirect-param-w :convention :stdcall) :int64
(h-instance :pointer) ; HINSTANCE optional
(h-dialog-template :pointer) ; DLGTEMPLATE*
(h-wnd-parent :pointer) ; HWND optional
(lp-dialog-func :pointer) ; DLGPROC optional
(dw-init-param :int64)) ; LPARAM
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $DialogBoxIndirectParamW = Win32::API::More->new('USER32',
'LPARAM DialogBoxIndirectParamW(HANDLE hInstance, LPVOID hDialogTemplate, HANDLE hWndParent, LPVOID lpDialogFunc, LPARAM dwInitParam)');
# my $ret = $DialogBoxIndirectParamW->Call($hInstance, $hDialogTemplate, $hWndParent, $lpDialogFunc, $dwInitParam);
# hInstance : HINSTANCE optional -> HANDLE
# hDialogTemplate : DLGTEMPLATE* -> LPVOID
# hWndParent : HWND optional -> HANDLE
# lpDialogFunc : DLGPROC optional -> LPVOID
# dwInitParam : LPARAM -> LPARAM
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# コールバック(関数ポインタ)は Perl sub を直接渡せません。Win32::API::Callback を使用してください。
# Unicode(-W): LPCWSTR/LPWSTR は Win32::API が UTF-16 変換を行う。関連項目
- f DialogBoxIndirectParamA (ANSI版) — メモリ上テンプレートからモーダルダイアログを実行する(ANSI)。
- f CreateWindowExW — 拡張スタイル指定でウィンドウを作成する(Unicode)。
- s DLGITEMTEMPLATE
- f DialogBoxParamW — モーダルダイアログを生成し終了まで実行する(Unicode)。
- f EndDialog — モーダルダイアログを終了し結果値を返す。