SHOpenPropSheetW
関数シェルアイテムのプロパティシートを開いて表示する。
シグネチャ
// SHELL32.dll (Unicode / -W)
#include <windows.h>
BOOL SHOpenPropSheetW(
LPCWSTR pszCaption, // optional
HKEY* ahkeys, // optional
DWORD ckeys,
const GUID* pclsidDefault, // optional
IDataObject* pdtobj,
IShellBrowser* psb, // optional
LPCWSTR pStartPage // optional
);パラメーター
| 名前 | 型 | 方向 | 説明 |
|---|---|---|---|
| pszCaption | LPCWSTR | inoptional | プロパティシートのキャプションを格納する文字列へのポインター。キャプションが不要な場合、この値は NULL にできます。 |
| ahkeys | HKEY* | inoptional | 個々のプロパティシートの CLSID を表すレジストリキーの配列。 |
| ckeys | DWORD | in | ahkeys で指定された配列内のプロパティシートの数を指定する UINT 値。 |
| pclsidDefault | GUID* | inoptional | 既定の CLSID へのポインター。この値は NULL にできます。 |
| pdtobj | IDataObject* | in | IDataObject へのポインター。プロパティシートに対する操作を実行するために使用できる OLE オブジェクトです。 |
| psb | IShellBrowser* | inoptional | 使用されません。 |
| pStartPage | LPCWSTR | inoptional | 開始ページを指定する文字列へのポインター。この値は NULL にできます。 |
戻り値の型: BOOL
公式ドキュメント
SHOpenPropSheet は変更されるか、利用できなくなる可能性があります。(Unicode)
戻り値
型: BOOL
プロパティシートが正常に作成された場合は TRUE を返します。それ以外の場合は FALSE を返します。
解説(Remarks)
メモ
shlobj.h ヘッダーは、UNICODE プリプロセッサ定数の定義に基づいて、この関数の ANSI 版または Unicode 版を自動的に選択するエイリアスとして SHOpenPropSheet を定義します。エンコーディング非依存のエイリアスを、エンコーディング非依存ではないコードと混在させて使用すると、不一致が生じてコンパイルエラーや実行時エラーを引き起こす可能性があります。詳細については、Conventions for Function Prototypes を参照してください。
出典・ライセンス: 上記「公式ドキュメント」の内容は Microsoft の Win32 API ドキュメント(MicrosoftDocs/sdk-api)を日本語に翻訳・改変したものです。© Microsoft Corporation. CC BY 4.0 で提供。
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
Microsoft 公式リファレンス: 英語 (en-us) · 日本語 (ja-jp) · 原文ソース (GitHub)
各言語での呼び出し定義
// SHELL32.dll (Unicode / -W)
#include <windows.h>
BOOL SHOpenPropSheetW(
LPCWSTR pszCaption, // optional
HKEY* ahkeys, // optional
DWORD ckeys,
const GUID* pclsidDefault, // optional
IDataObject* pdtobj,
IShellBrowser* psb, // optional
LPCWSTR pStartPage // optional
);[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("SHELL32.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
static extern bool SHOpenPropSheetW(
[MarshalAs(UnmanagedType.LPWStr)] string pszCaption, // LPCWSTR optional
IntPtr ahkeys, // HKEY* optional
uint ckeys, // DWORD
IntPtr pclsidDefault, // GUID* optional
IntPtr pdtobj, // IDataObject*
IntPtr psb, // IShellBrowser* optional
[MarshalAs(UnmanagedType.LPWStr)] string pStartPage // LPCWSTR optional
);<DllImport("SHELL32.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function SHOpenPropSheetW(
<MarshalAs(UnmanagedType.LPWStr)> pszCaption As String, ' LPCWSTR optional
ahkeys As IntPtr, ' HKEY* optional
ckeys As UInteger, ' DWORD
pclsidDefault As IntPtr, ' GUID* optional
pdtobj As IntPtr, ' IDataObject*
psb As IntPtr, ' IShellBrowser* optional
<MarshalAs(UnmanagedType.LPWStr)> pStartPage As String ' LPCWSTR optional
) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function' pszCaption : LPCWSTR optional
' ahkeys : HKEY* optional
' ckeys : DWORD
' pclsidDefault : GUID* optional
' pdtobj : IDataObject*
' psb : IShellBrowser* optional
' pStartPage : LPCWSTR optional
Declare PtrSafe Function SHOpenPropSheetW Lib "shell32" ( _
ByVal pszCaption As LongPtr, _
ByVal ahkeys As LongPtr, _
ByVal ckeys As Long, _
ByVal pclsidDefault As LongPtr, _
ByVal pdtobj As LongPtr, _
ByVal psb As LongPtr, _
ByVal pStartPage As LongPtr) As Long
' 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
SHOpenPropSheetW = ctypes.windll.shell32.SHOpenPropSheetW
SHOpenPropSheetW.restype = wintypes.BOOL
SHOpenPropSheetW.argtypes = [
wintypes.LPCWSTR, # pszCaption : LPCWSTR optional
ctypes.c_void_p, # ahkeys : HKEY* optional
wintypes.DWORD, # ckeys : DWORD
ctypes.c_void_p, # pclsidDefault : GUID* optional
ctypes.c_void_p, # pdtobj : IDataObject*
ctypes.c_void_p, # psb : IShellBrowser* optional
wintypes.LPCWSTR, # pStartPage : LPCWSTR optional
]require 'fiddle'
require 'fiddle/import'
lib = Fiddle.dlopen('SHELL32.dll')
SHOpenPropSheetW = Fiddle::Function.new(
lib['SHOpenPropSheetW'],
[
Fiddle::TYPE_VOIDP, # pszCaption : LPCWSTR optional
Fiddle::TYPE_VOIDP, # ahkeys : HKEY* optional
-Fiddle::TYPE_INT, # ckeys : DWORD
Fiddle::TYPE_VOIDP, # pclsidDefault : GUID* optional
Fiddle::TYPE_VOIDP, # pdtobj : IDataObject*
Fiddle::TYPE_VOIDP, # psb : IShellBrowser* optional
Fiddle::TYPE_VOIDP, # pStartPage : LPCWSTR optional
],
Fiddle::TYPE_INT)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"#[link(name = "shell32")]
extern "system" {
fn SHOpenPropSheetW(
pszCaption: *const u16, // LPCWSTR optional
ahkeys: *mut *mut core::ffi::c_void, // HKEY* optional
ckeys: u32, // DWORD
pclsidDefault: *const GUID, // GUID* optional
pdtobj: *mut core::ffi::c_void, // IDataObject*
psb: *mut core::ffi::c_void, // IShellBrowser* optional
pStartPage: *const u16 // LPCWSTR optional
) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.$sig = @"
[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("SHELL32.dll", CharSet = CharSet.Unicode)]
public static extern bool SHOpenPropSheetW([MarshalAs(UnmanagedType.LPWStr)] string pszCaption, IntPtr ahkeys, uint ckeys, IntPtr pclsidDefault, IntPtr pdtobj, IntPtr psb, [MarshalAs(UnmanagedType.LPWStr)] string pStartPage);
"@
$api = Add-Type -MemberDefinition $sig -Name 'SHELL32_SHOpenPropSheetW' -Namespace Win32 -PassThru
# $api::SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage)#uselib "SHELL32.dll"
#func global SHOpenPropSheetW "SHOpenPropSheetW" wptr, wptr, wptr, wptr, wptr, wptr, wptr
; SHOpenPropSheetW pszCaption, ahkeys, ckeys, varptr(pclsidDefault), pdtobj, psb, pStartPage ; 戻り値は stat
; pszCaption : LPCWSTR optional -> "wptr"
; ahkeys : HKEY* optional -> "wptr"
; ckeys : DWORD -> "wptr"
; pclsidDefault : GUID* optional -> "wptr"
; pdtobj : IDataObject* -> "wptr"
; psb : IShellBrowser* optional -> "wptr"
; pStartPage : LPCWSTR optional -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。出力引数:
#uselib "SHELL32.dll" #cfunc global SHOpenPropSheetW "SHOpenPropSheetW" wstr, sptr, int, var, sptr, sptr, wstr ; res = SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage) ; pszCaption : LPCWSTR optional -> "wstr" ; ahkeys : HKEY* optional -> "sptr" ; ckeys : DWORD -> "int" ; pclsidDefault : GUID* optional -> "var" ; pdtobj : IDataObject* -> "sptr" ; psb : IShellBrowser* optional -> "sptr" ; pStartPage : LPCWSTR optional -> "wstr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "SHELL32.dll" #cfunc global SHOpenPropSheetW "SHOpenPropSheetW" wstr, sptr, int, sptr, sptr, sptr, wstr ; res = SHOpenPropSheetW(pszCaption, ahkeys, ckeys, varptr(pclsidDefault), pdtobj, psb, pStartPage) ; pszCaption : LPCWSTR optional -> "wstr" ; ahkeys : HKEY* optional -> "sptr" ; ckeys : DWORD -> "int" ; pclsidDefault : GUID* optional -> "sptr" ; pdtobj : IDataObject* -> "sptr" ; psb : IShellBrowser* optional -> "sptr" ; pStartPage : LPCWSTR optional -> "wstr" ; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。
出力引数:
; BOOL SHOpenPropSheetW(LPCWSTR pszCaption, HKEY* ahkeys, DWORD ckeys, GUID* pclsidDefault, IDataObject* pdtobj, IShellBrowser* psb, LPCWSTR pStartPage) #uselib "SHELL32.dll" #cfunc global SHOpenPropSheetW "SHOpenPropSheetW" wstr, intptr, int, var, intptr, intptr, wstr ; res = SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage) ; pszCaption : LPCWSTR optional -> "wstr" ; ahkeys : HKEY* optional -> "intptr" ; ckeys : DWORD -> "int" ; pclsidDefault : GUID* optional -> "var" ; pdtobj : IDataObject* -> "intptr" ; psb : IShellBrowser* optional -> "intptr" ; pStartPage : LPCWSTR optional -> "wstr" ; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; BOOL SHOpenPropSheetW(LPCWSTR pszCaption, HKEY* ahkeys, DWORD ckeys, GUID* pclsidDefault, IDataObject* pdtobj, IShellBrowser* psb, LPCWSTR pStartPage) #uselib "SHELL32.dll" #cfunc global SHOpenPropSheetW "SHOpenPropSheetW" wstr, intptr, int, intptr, intptr, intptr, wstr ; res = SHOpenPropSheetW(pszCaption, ahkeys, ckeys, varptr(pclsidDefault), pdtobj, psb, pStartPage) ; pszCaption : LPCWSTR optional -> "wstr" ; ahkeys : HKEY* optional -> "intptr" ; ckeys : DWORD -> "int" ; pclsidDefault : GUID* optional -> "intptr" ; pdtobj : IDataObject* -> "intptr" ; psb : IShellBrowser* optional -> "intptr" ; pStartPage : LPCWSTR optional -> "wstr" ; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。
import (
"golang.org/x/sys/windows"
"unsafe"
)
var (
shell32 = windows.NewLazySystemDLL("SHELL32.dll")
procSHOpenPropSheetW = shell32.NewProc("SHOpenPropSheetW")
)
// pszCaption (LPCWSTR optional), ahkeys (HKEY* optional), ckeys (DWORD), pclsidDefault (GUID* optional), pdtobj (IDataObject*), psb (IShellBrowser* optional), pStartPage (LPCWSTR optional)
r1, _, err := procSHOpenPropSheetW.Call(
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pszCaption))),
uintptr(ahkeys),
uintptr(ckeys),
uintptr(pclsidDefault),
uintptr(pdtobj),
uintptr(psb),
uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pStartPage))),
)
_ = err // syscall.Errno (valid when the call sets last-error)
_ = r1 // BOOLfunction SHOpenPropSheetW(
pszCaption: PWideChar; // LPCWSTR optional
ahkeys: Pointer; // HKEY* optional
ckeys: DWORD; // DWORD
pclsidDefault: PGUID; // GUID* optional
pdtobj: Pointer; // IDataObject*
psb: Pointer; // IShellBrowser* optional
pStartPage: PWideChar // LPCWSTR optional
): BOOL; stdcall;
external 'SHELL32.dll' name 'SHOpenPropSheetW';result := DllCall("SHELL32\SHOpenPropSheetW"
, "WStr", pszCaption ; LPCWSTR optional
, "Ptr", ahkeys ; HKEY* optional
, "UInt", ckeys ; DWORD
, "Ptr", pclsidDefault ; GUID* optional
, "Ptr", pdtobj ; IDataObject*
, "Ptr", psb ; IShellBrowser* optional
, "WStr", pStartPage ; LPCWSTR optional
, "Int") ; return: BOOL●SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage) = DLL("SHELL32.dll", "bool SHOpenPropSheetW(char*, void*, dword, void*, void*, void*, char*)")
# 呼び出し: SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage)
# pszCaption : LPCWSTR optional -> "char*"
# ahkeys : HKEY* optional -> "void*"
# ckeys : DWORD -> "dword"
# pclsidDefault : GUID* optional -> "void*"
# pdtobj : IDataObject* -> "void*"
# psb : IShellBrowser* optional -> "void*"
# pStartPage : LPCWSTR optional -> "char*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
# ※-W(Unicode)関数。なでしこ1はANSIのため -A 版の利用を推奨。const std = @import("std");
extern "shell32" fn SHOpenPropSheetW(
pszCaption: [*c]const u16, // LPCWSTR optional
ahkeys: ?*anyopaque, // HKEY* optional
ckeys: u32, // DWORD
pclsidDefault: [*c]GUID, // GUID* optional
pdtobj: ?*anyopaque, // IDataObject*
psb: ?*anyopaque, // IShellBrowser* optional
pStartPage: [*c]const u16 // LPCWSTR optional
) callconv(std.os.windows.WINAPI) i32;
// Unicode(-W): UTF-16LE のヌル終端バッファ([*c]const u16)を渡す。proc SHOpenPropSheetW(
pszCaption: WideCString, # LPCWSTR optional
ahkeys: pointer, # HKEY* optional
ckeys: uint32, # DWORD
pclsidDefault: ptr GUID, # GUID* optional
pdtobj: pointer, # IDataObject*
psb: pointer, # IShellBrowser* optional
pStartPage: WideCString # LPCWSTR optional
): int32 {.importc: "SHOpenPropSheetW", stdcall, dynlib: "SHELL32.dll".}
# Unicode(-W): WideCString は newWideCString("...") で生成。pragma(lib, "shell32");
extern(Windows)
int SHOpenPropSheetW(
const(wchar)* pszCaption, // LPCWSTR optional
void* ahkeys, // HKEY* optional
uint ckeys, // DWORD
GUID* pclsidDefault, // GUID* optional
void* pdtobj, // IDataObject*
void* psb, // IShellBrowser* optional
const(wchar)* pStartPage // LPCWSTR optional
);ccall((:SHOpenPropSheetW, "SHELL32.dll"), stdcall, Int32,
(Cwstring, Ptr{Cvoid}, UInt32, Ptr{GUID}, Ptr{Cvoid}, Ptr{Cvoid}, Cwstring),
pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage)
# pszCaption : LPCWSTR optional -> Cwstring
# ahkeys : HKEY* optional -> Ptr{Cvoid}
# ckeys : DWORD -> UInt32
# pclsidDefault : GUID* optional -> Ptr{GUID}
# pdtobj : IDataObject* -> Ptr{Cvoid}
# psb : IShellBrowser* optional -> Ptr{Cvoid}
# pStartPage : LPCWSTR optional -> Cwstring
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
# Unicode(-W): Cwstring には transcode(UInt16, "...") 等で UTF-16 を渡す。local ffi = require("ffi")
ffi.cdef[[
int32_t SHOpenPropSheetW(
const uint16_t* pszCaption,
void* ahkeys,
uint32_t ckeys,
void* pclsidDefault,
void* pdtobj,
void* psb,
const uint16_t* pStartPage);
]]
local shell32 = ffi.load("shell32")
-- shell32.SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage)
-- pszCaption : LPCWSTR optional
-- ahkeys : HKEY* optional
-- ckeys : DWORD
-- pclsidDefault : GUID* optional
-- pdtobj : IDataObject*
-- psb : IShellBrowser* optional
-- pStartPage : LPCWSTR optional
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
-- Unicode(-W): uint16_t* には UTF-16LE のバッファ(ffi.new("uint16_t[?]", ...))を渡す。const koffi = require('koffi');
const lib = koffi.load('SHELL32.dll');
const SHOpenPropSheetW = lib.func('__stdcall', 'SHOpenPropSheetW', 'int32_t', ['str16', 'void *', 'uint32_t', 'void *', 'void *', 'void *', 'str16']);
// SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage)
// pszCaption : LPCWSTR optional -> 'str16'
// ahkeys : HKEY* optional -> 'void *'
// ckeys : DWORD -> 'uint32_t'
// pclsidDefault : GUID* optional -> 'void *'
// pdtobj : IDataObject* -> 'void *'
// psb : IShellBrowser* optional -> 'void *'
// pStartPage : LPCWSTR optional -> 'str16'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。const lib = Deno.dlopen("SHELL32.dll", {
SHOpenPropSheetW: { parameters: ["buffer", "pointer", "u32", "pointer", "pointer", "pointer", "buffer"], result: "i32" },
});
// lib.symbols.SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage)
// pszCaption : LPCWSTR optional -> "buffer"
// ahkeys : HKEY* optional -> "pointer"
// ckeys : DWORD -> "u32"
// pclsidDefault : GUID* optional -> "pointer"
// pdtobj : IDataObject* -> "pointer"
// psb : IShellBrowser* optional -> "pointer"
// pStartPage : LPCWSTR optional -> "buffer"
// 文字列は "buffer"。Unicode(-W) は new TextEncoder() ではなく UTF-16LE のバイト列(末尾に \x00\x00)を Uint8Array で渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。<?php
$ffi = FFI::cdef(<<<C
int32_t SHOpenPropSheetW(
const uint16_t* pszCaption,
void* ahkeys,
uint32_t ckeys,
void* pclsidDefault,
void* pdtobj,
void* psb,
const uint16_t* pStartPage);
C, "SHELL32.dll");
// $ffi->SHOpenPropSheetW(pszCaption, ahkeys, ckeys, pclsidDefault, pdtobj, psb, pStartPage);
// pszCaption : LPCWSTR optional
// ahkeys : HKEY* optional
// ckeys : DWORD
// pclsidDefault : GUID* optional
// pdtobj : IDataObject*
// psb : IShellBrowser* optional
// pStartPage : LPCWSTR 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 Shell32 extends StdCallLibrary {
Shell32 INSTANCE = Native.load("shell32", Shell32.class, W32APIOptions.UNICODE_OPTIONS);
boolean SHOpenPropSheetW(
WString pszCaption, // LPCWSTR optional
Pointer ahkeys, // HKEY* optional
int ckeys, // DWORD
Pointer pclsidDefault, // GUID* optional
Pointer pdtobj, // IDataObject*
Pointer psb, // IShellBrowser* optional
WString pStartPage // LPCWSTR optional
);
}
// Unicode(-W): WString(入力)/char[](出力)で UTF-16 をマーシャリング。@[Link("shell32")]
lib LibSHELL32
fun SHOpenPropSheetW = SHOpenPropSheetW(
pszCaption : UInt16*, # LPCWSTR optional
ahkeys : Void*, # HKEY* optional
ckeys : UInt32, # DWORD
pclsidDefault : GUID*, # GUID* optional
pdtobj : Void*, # IDataObject*
psb : Void*, # IShellBrowser* optional
pStartPage : UInt16* # LPCWSTR optional
) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。import 'dart:ffi';
import 'package:ffi/ffi.dart';
typedef SHOpenPropSheetWNative = Int32 Function(Pointer<Utf16>, Pointer<Void>, Uint32, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Utf16>);
typedef SHOpenPropSheetWDart = int Function(Pointer<Utf16>, Pointer<Void>, int, Pointer<Void>, Pointer<Void>, Pointer<Void>, Pointer<Utf16>);
final SHOpenPropSheetW = DynamicLibrary.open('SHELL32.dll')
.lookupFunction<SHOpenPropSheetWNative, SHOpenPropSheetWDart>('SHOpenPropSheetW');
// pszCaption : LPCWSTR optional -> Pointer<Utf16>
// ahkeys : HKEY* optional -> Pointer<Void>
// ckeys : DWORD -> Uint32
// pclsidDefault : GUID* optional -> Pointer<Void>
// pdtobj : IDataObject* -> Pointer<Void>
// psb : IShellBrowser* optional -> Pointer<Void>
// pStartPage : LPCWSTR optional -> Pointer<Utf16>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。{$mode objfpc}{$H+}
function SHOpenPropSheetW(
pszCaption: PWideChar; // LPCWSTR optional
ahkeys: Pointer; // HKEY* optional
ckeys: DWORD; // DWORD
pclsidDefault: PGUID; // GUID* optional
pdtobj: Pointer; // IDataObject*
psb: Pointer; // IShellBrowser* optional
pStartPage: PWideChar // LPCWSTR optional
): BOOL; stdcall;
external 'SHELL32.dll' name 'SHOpenPropSheetW';import Foreign
import Foreign.C.Types
import Foreign.C.String
foreign import stdcall safe "SHOpenPropSheetW"
c_SHOpenPropSheetW :: CWString -> Ptr () -> Word32 -> Ptr () -> Ptr () -> Ptr () -> CWString -> IO CInt
-- pszCaption : LPCWSTR optional -> CWString
-- ahkeys : HKEY* optional -> Ptr ()
-- ckeys : DWORD -> Word32
-- pclsidDefault : GUID* optional -> Ptr ()
-- pdtobj : IDataObject* -> Ptr ()
-- psb : IShellBrowser* optional -> Ptr ()
-- pStartPage : LPCWSTR optional -> CWString
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。open Ctypes
open Foreign
let shopenpropsheetw =
foreign "SHOpenPropSheetW"
((ptr uint16_t) @-> (ptr void) @-> uint32_t @-> (ptr void) @-> (ptr void) @-> (ptr void) @-> (ptr uint16_t) @-> returning int32_t)
(* pszCaption : LPCWSTR optional -> (ptr uint16_t) *)
(* ahkeys : HKEY* optional -> (ptr void) *)
(* ckeys : DWORD -> uint32_t *)
(* pclsidDefault : GUID* optional -> (ptr void) *)
(* pdtobj : IDataObject* -> (ptr void) *)
(* psb : IShellBrowser* optional -> (ptr void) *)
(* pStartPage : LPCWSTR optional -> (ptr uint16_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)(cffi:define-foreign-library shell32 (t "SHELL32.dll"))
(cffi:use-foreign-library shell32)
(cffi:defcfun ("SHOpenPropSheetW" shopen-prop-sheet-w :convention :stdcall) :int32
(psz-caption (:string :encoding :utf-16le)) ; LPCWSTR optional
(ahkeys :pointer) ; HKEY* optional
(ckeys :uint32) ; DWORD
(pclsid-default :pointer) ; GUID* optional
(pdtobj :pointer) ; IDataObject*
(psb :pointer) ; IShellBrowser* optional
(p-start-page (:string :encoding :utf-16le))) ; LPCWSTR optional
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。use Win32::API;
my $SHOpenPropSheetW = Win32::API::More->new('SHELL32',
'BOOL SHOpenPropSheetW(LPCWSTR pszCaption, HANDLE ahkeys, DWORD ckeys, LPVOID pclsidDefault, LPVOID pdtobj, LPVOID psb, LPCWSTR pStartPage)');
# my $ret = $SHOpenPropSheetW->Call($pszCaption, $ahkeys, $ckeys, $pclsidDefault, $pdtobj, $psb, $pStartPage);
# pszCaption : LPCWSTR optional -> LPCWSTR
# ahkeys : HKEY* optional -> HANDLE
# ckeys : DWORD -> DWORD
# pclsidDefault : GUID* optional -> LPVOID
# pdtobj : IDataObject* -> LPVOID
# psb : IShellBrowser* optional -> LPVOID
# pStartPage : LPCWSTR optional -> LPCWSTR
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# Unicode(-W): LPCWSTR/LPWSTR は Win32::API が UTF-16 変換を行う。