ホーム › UI.Shell › AssocQueryStringW

AssocQueryStringW

関数

ファイル関連付けに関する文字列情報を取得する。

DLLSHLWAPI.dll文字セットUnicode (-W)呼出規約winapi対応OSWindows 2000 以降

シグネチャ

// SHLWAPI.dll  (Unicode / -W)
#include <windows.h>

HRESULT AssocQueryStringW(
    ASSOCF flags,
    ASSOCSTR str,
    LPCWSTR pszAssoc,
    LPCWSTR pszExtra,   // optional
    LPWSTR pszOut,   // optional
    DWORD* pcchOut
);

パラメーター

名前	型	方向	説明
flags	ASSOCF	in	検索を制御するために使用できるフラグです。ASSOCF 値の任意の組み合わせを指定できますが、ASSOCF_INIT 値は 1 つだけ含めることができます。
str	ASSOCSTR	in	返される文字列の種類を指定する ASSOCSTR 値です。
pszAssoc	LPCWSTR	in	ルートキーを決定するために使用される、null で終わる文字列へのポインターです。次の 4 種類の文字列を使用できます。ファイル名拡張子 .txt などのファイル名拡張子です。 CLSID 標準の "{GUID}" 形式の CLSID GUID です。 ProgID Word.Document.8 などのアプリケーションの ProgID です。実行可能ファイル名アプリケーションの .exe ファイルの名前です。flags に ASSOCF_OPEN_BYEXENAME フラグを設定する必要があります。
pszExtra	LPCWSTR	inoptional	文字列の場所に関する追加情報を含む、省略可能な null で終わる文字列です。通常は open などの Shell 動詞 (verb) に設定します。使用しない場合はこのパラメーターを NULL に設定してください。
pszOut	LPWSTR	outoptional	null で終わる文字列へのポインターで、この関数が正常に返ると、要求された文字列を受け取ります。必要なバッファーサイズを取得するには、このパラメーターを NULL に設定してください。
pcchOut	DWORD*	inout	値へのポインターで、関数を呼び出すときには pszOut バッファー内の文字数に設定します。関数が正常に返ると、この値は実際にバッファーに格納された文字数に設定されます。 flags に ASSOCF_NOTRUNCATE フラグが設定されていて、pszOut で指定したバッファーが小さすぎる場合、関数は E_POINTER を返し、この値は必要なバッファーサイズに設定されます。 pszOut が NULL の場合、関数は S_FALSE を返し、pcchOut は必要なバッファーサイズ (文字数) を指し示します。 - pszAssoc.CLSID 標準の "{GUID}" 形式の CLSID GUID です。 - pszAssoc.Executable name アプリケーションの .exe ファイルの名前です。flags に ASSOCF_OPEN_BYEXENAME フラグを設定する必要があります。 - pszAssoc.File name extension .txt などのファイル名拡張子です。 - pszAssoc.ProgID Word.Document.8 などのアプリケーションの ProgID です。

戻り値の型: HRESULT

公式ドキュメント

ファイルまたはプロトコルの関連付けに関する文字列をレジストリから検索して取得します。(AssocQueryStringW)

戻り値

型: HRESULT

次を含む標準の COM エラー値を返します。

エラー	意味
S_OK	成功しました。
E_POINTER	pszOut バッファーが小さすぎて、文字列全体を格納できません。
S_FALSE	pszOut が NULL です。pcchOut に必要なバッファーサイズが格納されます。

解説(Remarks)

この関数は IQueryAssociations インターフェイスのラッパーです。AssocQueryString 関数は、IQueryAssociations インターフェイスを使用する処理を簡略化することを目的としています。

項目が選択されると、ホストはその項目に対してどのプレビューハンドラー (存在する場合) が利用可能かを判断する必要があります。プレビューハンドラーは通常、ファイル名拡張子または ProgID に登録されますが、一部のプレビューハンドラーは特定の Shell フォルダー内の項目に対してのみインスタンス化されます (たとえば、MAPI プレビューハンドラーは MAPI Shell フォルダーから取得された項目に関連付けられます)。したがって、ホストは IQueryAssociations を使用して、使用するプレビューハンドラーを判断する必要があります。ファイルおよびプロトコルの関連付け関数の動作についての詳細は、IQueryAssociations を参照してください。

メモ

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

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

各言語での呼び出し定義

// SHLWAPI.dll  (Unicode / -W)
#include <windows.h>

HRESULT AssocQueryStringW(
    ASSOCF flags,
    ASSOCSTR str,
    LPCWSTR pszAssoc,
    LPCWSTR pszExtra,   // optional
    LPWSTR pszOut,   // optional
    DWORD* pcchOut
);

[DllImport("SHLWAPI.dll", CharSet = CharSet.Unicode, ExactSpelling = true)]
static extern int AssocQueryStringW(
    uint flags,   // ASSOCF
    int str,   // ASSOCSTR
    [MarshalAs(UnmanagedType.LPWStr)] string pszAssoc,   // LPCWSTR
    [MarshalAs(UnmanagedType.LPWStr)] string pszExtra,   // LPCWSTR optional
    [MarshalAs(UnmanagedType.LPWStr)] System.Text.StringBuilder pszOut,   // LPWSTR optional, out
    ref uint pcchOut   // DWORD* in/out
);

<DllImport("SHLWAPI.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)>
Public Shared Function AssocQueryStringW(
    flags As UInteger,   ' ASSOCF
    str As Integer,   ' ASSOCSTR
    <MarshalAs(UnmanagedType.LPWStr)> pszAssoc As String,   ' LPCWSTR
    <MarshalAs(UnmanagedType.LPWStr)> pszExtra As String,   ' LPCWSTR optional
    <MarshalAs(UnmanagedType.LPWStr)> pszOut As System.Text.StringBuilder,   ' LPWSTR optional, out
    ByRef pcchOut As UInteger   ' DWORD* in/out
) As Integer
End Function

' flags : ASSOCF
' str : ASSOCSTR
' pszAssoc : LPCWSTR
' pszExtra : LPCWSTR optional
' pszOut : LPWSTR optional, out
' pcchOut : DWORD* in/out
Declare PtrSafe Function AssocQueryStringW Lib "shlwapi" ( _
    ByVal flags As Long, _
    ByVal str As Long, _
    ByVal pszAssoc As LongPtr, _
    ByVal pszExtra As LongPtr, _
    ByVal pszOut As LongPtr, _
    ByRef pcchOut As Long) 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

AssocQueryStringW = ctypes.windll.shlwapi.AssocQueryStringW
AssocQueryStringW.restype = ctypes.c_int
AssocQueryStringW.argtypes = [
    wintypes.DWORD,  # flags : ASSOCF
    ctypes.c_int,  # str : ASSOCSTR
    wintypes.LPCWSTR,  # pszAssoc : LPCWSTR
    wintypes.LPCWSTR,  # pszExtra : LPCWSTR optional
    wintypes.LPWSTR,  # pszOut : LPWSTR optional, out
    ctypes.POINTER(wintypes.DWORD),  # pcchOut : DWORD* in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('SHLWAPI.dll')
AssocQueryStringW = Fiddle::Function.new(
  lib['AssocQueryStringW'],
  [
    -Fiddle::TYPE_INT,  # flags : ASSOCF
    Fiddle::TYPE_INT,  # str : ASSOCSTR
    Fiddle::TYPE_VOIDP,  # pszAssoc : LPCWSTR
    Fiddle::TYPE_VOIDP,  # pszExtra : LPCWSTR optional
    Fiddle::TYPE_VOIDP,  # pszOut : LPWSTR optional, out
    Fiddle::TYPE_VOIDP,  # pcchOut : DWORD* in/out
  ],
  Fiddle::TYPE_INT)
# Wide strings: pass str.encode("UTF-16LE") + "\x00\x00"

#[link(name = "shlwapi")]
extern "system" {
    fn AssocQueryStringW(
        flags: u32,  // ASSOCF
        str: i32,  // ASSOCSTR
        pszAssoc: *const u16,  // LPCWSTR
        pszExtra: *const u16,  // LPCWSTR optional
        pszOut: *mut u16,  // LPWSTR optional, out
        pcchOut: *mut u32  // DWORD* in/out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("SHLWAPI.dll", CharSet = CharSet.Unicode)]
public static extern int AssocQueryStringW(uint flags, int str, [MarshalAs(UnmanagedType.LPWStr)] string pszAssoc, [MarshalAs(UnmanagedType.LPWStr)] string pszExtra, [MarshalAs(UnmanagedType.LPWStr)] System.Text.StringBuilder pszOut, ref uint pcchOut);
"@
$api = Add-Type -MemberDefinition $sig -Name 'SHLWAPI_AssocQueryStringW' -Namespace Win32 -PassThru
# $api::AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)

#uselib "SHLWAPI.dll"
#func global AssocQueryStringW "AssocQueryStringW" wptr, wptr, wptr, wptr, wptr, wptr
; AssocQueryStringW flags, str, pszAssoc, pszExtra, varptr(pszOut), varptr(pcchOut)   ; 戻り値は stat
; flags : ASSOCF -> "wptr"
; str : ASSOCSTR -> "wptr"
; pszAssoc : LPCWSTR -> "wptr"
; pszExtra : LPCWSTR optional -> "wptr"
; pszOut : LPWSTR optional, out -> "wptr"
; pcchOut : DWORD* in/out -> "wptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

出力引数:

#uselib "SHLWAPI.dll"
#cfunc global AssocQueryStringW "AssocQueryStringW" int, int, wstr, wstr, var, var
; res = AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
; flags : ASSOCF -> "int"
; str : ASSOCSTR -> "int"
; pszAssoc : LPCWSTR -> "wstr"
; pszExtra : LPCWSTR optional -> "wstr"
; pszOut : LPWSTR optional, out -> "var"
; pcchOut : DWORD* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。#uselib "SHLWAPI.dll"
#cfunc global AssocQueryStringW "AssocQueryStringW" int, int, wstr, wstr, sptr, sptr
; res = AssocQueryStringW(flags, str, pszAssoc, pszExtra, varptr(pszOut), varptr(pcchOut))
; flags : ASSOCF -> "int"
; str : ASSOCSTR -> "int"
; pszAssoc : LPCWSTR -> "wstr"
; pszExtra : LPCWSTR optional -> "wstr"
; pszOut : LPWSTR optional, out -> "sptr"
; pcchOut : DWORD* in/out -> "sptr"
; ※出力/バッファ引数はポインタ方式(token=sptr / 呼び出しは varptr(変数))。

出力引数:

; HRESULT AssocQueryStringW(ASSOCF flags, ASSOCSTR str, LPCWSTR pszAssoc, LPCWSTR pszExtra, LPWSTR pszOut, DWORD* pcchOut)
#uselib "SHLWAPI.dll"
#cfunc global AssocQueryStringW "AssocQueryStringW" int, int, wstr, wstr, var, var
; res = AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
; flags : ASSOCF -> "int"
; str : ASSOCSTR -> "int"
; pszAssoc : LPCWSTR -> "wstr"
; pszExtra : LPCWSTR optional -> "wstr"
; pszOut : LPWSTR optional, out -> "var"
; pcchOut : DWORD* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。; HRESULT AssocQueryStringW(ASSOCF flags, ASSOCSTR str, LPCWSTR pszAssoc, LPCWSTR pszExtra, LPWSTR pszOut, DWORD* pcchOut)
#uselib "SHLWAPI.dll"
#cfunc global AssocQueryStringW "AssocQueryStringW" int, int, wstr, wstr, intptr, intptr
; res = AssocQueryStringW(flags, str, pszAssoc, pszExtra, varptr(pszOut), varptr(pcchOut))
; flags : ASSOCF -> "int"
; str : ASSOCSTR -> "int"
; pszAssoc : LPCWSTR -> "wstr"
; pszExtra : LPCWSTR optional -> "wstr"
; pszOut : LPWSTR optional, out -> "intptr"
; pcchOut : DWORD* in/out -> "intptr"
; ※出力/バッファ引数はポインタ方式(token=intptr / 呼び出しは varptr(変数))。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	shlwapi = windows.NewLazySystemDLL("SHLWAPI.dll")
	procAssocQueryStringW = shlwapi.NewProc("AssocQueryStringW")
)

// flags (ASSOCF), str (ASSOCSTR), pszAssoc (LPCWSTR), pszExtra (LPCWSTR optional), pszOut (LPWSTR optional, out), pcchOut (DWORD* in/out)
r1, _, err := procAssocQueryStringW.Call(
	uintptr(flags),
	uintptr(str),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pszAssoc))),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pszExtra))),
	uintptr(pszOut),
	uintptr(pcchOut),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function AssocQueryStringW(
  flags: DWORD;   // ASSOCF
  str: Integer;   // ASSOCSTR
  pszAssoc: PWideChar;   // LPCWSTR
  pszExtra: PWideChar;   // LPCWSTR optional
  pszOut: PWideChar;   // LPWSTR optional, out
  pcchOut: Pointer   // DWORD* in/out
): Integer; stdcall;
  external 'SHLWAPI.dll' name 'AssocQueryStringW';

result := DllCall("SHLWAPI\AssocQueryStringW"
    , "UInt", flags   ; ASSOCF
    , "Int", str   ; ASSOCSTR
    , "WStr", pszAssoc   ; LPCWSTR
    , "WStr", pszExtra   ; LPCWSTR optional
    , "Ptr", pszOut   ; LPWSTR optional, out
    , "Ptr", pcchOut   ; DWORD* in/out
    , "Int")   ; return: HRESULT

●AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut) = DLL("SHLWAPI.dll", "int AssocQueryStringW(dword, int, char*, char*, char*, void*)")
# 呼び出し: AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
# flags : ASSOCF -> "dword"
# str : ASSOCSTR -> "int"
# pszAssoc : LPCWSTR -> "char*"
# pszExtra : LPCWSTR optional -> "char*"
# pszOut : LPWSTR optional, out -> "char*"
# pcchOut : DWORD* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。
# ※-W(Unicode)関数。なでしこ1はANSIのため -A 版の利用を推奨。

const std = @import("std");

extern "shlwapi" fn AssocQueryStringW(
    flags: u32, // ASSOCF
    str: i32, // ASSOCSTR
    pszAssoc: [*c]const u16, // LPCWSTR
    pszExtra: [*c]const u16, // LPCWSTR optional
    pszOut: [*c]u16, // LPWSTR optional, out
    pcchOut: [*c]u32 // DWORD* in/out
) callconv(std.os.windows.WINAPI) i32;
// Unicode(-W): UTF-16LE のヌル終端バッファ([*c]const u16)を渡す。

proc AssocQueryStringW(
    flags: uint32,  # ASSOCF
    str: int32,  # ASSOCSTR
    pszAssoc: WideCString,  # LPCWSTR
    pszExtra: WideCString,  # LPCWSTR optional
    pszOut: ptr uint16,  # LPWSTR optional, out
    pcchOut: ptr uint32  # DWORD* in/out
): int32 {.importc: "AssocQueryStringW", stdcall, dynlib: "SHLWAPI.dll".}
# Unicode(-W): WideCString は newWideCString("...") で生成。

pragma(lib, "shlwapi");
extern(Windows)
int AssocQueryStringW(
    uint flags,   // ASSOCF
    int str,   // ASSOCSTR
    const(wchar)* pszAssoc,   // LPCWSTR
    const(wchar)* pszExtra,   // LPCWSTR optional
    wchar* pszOut,   // LPWSTR optional, out
    uint* pcchOut   // DWORD* in/out
);

ccall((:AssocQueryStringW, "SHLWAPI.dll"), stdcall, Int32,
      (UInt32, Int32, Cwstring, Cwstring, Ptr{UInt16}, Ptr{UInt32}),
      flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
# flags : ASSOCF -> UInt32
# str : ASSOCSTR -> Int32
# pszAssoc : LPCWSTR -> Cwstring
# pszExtra : LPCWSTR optional -> Cwstring
# pszOut : LPWSTR optional, out -> Ptr{UInt16}
# pcchOut : DWORD* in/out -> Ptr{UInt32}
# stdcall は 32bit のみ意味を持つ(x64 では無視)。
# Unicode(-W): Cwstring には transcode(UInt16, "...") 等で UTF-16 を渡す。

local ffi = require("ffi")
ffi.cdef[[
int32_t AssocQueryStringW(
    uint32_t flags,
    int32_t str,
    const uint16_t* pszAssoc,
    const uint16_t* pszExtra,
    uint16_t* pszOut,
    uint32_t* pcchOut);
]]
local shlwapi = ffi.load("shlwapi")
-- shlwapi.AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
-- flags : ASSOCF
-- str : ASSOCSTR
-- pszAssoc : LPCWSTR
-- pszExtra : LPCWSTR optional
-- pszOut : LPWSTR optional, out
-- pcchOut : DWORD* in/out
-- 構造体/GUIDへのポインタは cdef が通るよう void* で表記(実型は各引数コメント参照)。値渡し構造体・enum は対応する typedef を cdef に追加すること。
-- Unicode(-W): uint16_t* には UTF-16LE のバッファ(ffi.new("uint16_t[?]", ...))を渡す。

const koffi = require('koffi');
const lib = koffi.load('SHLWAPI.dll');
const AssocQueryStringW = lib.func('__stdcall', 'AssocQueryStringW', 'int32_t', ['uint32_t', 'int32_t', 'str16', 'str16', 'uint16_t *', 'uint32_t *']);
// AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
// flags : ASSOCF -> 'uint32_t'
// str : ASSOCSTR -> 'int32_t'
// pszAssoc : LPCWSTR -> 'str16'
// pszExtra : LPCWSTR optional -> 'str16'
// pszOut : LPWSTR optional, out -> 'uint16_t *'
// pcchOut : DWORD* in/out -> 'uint32_t *'
// 出力ポインタは koffi.out(...) で包む。構造体は koffi.struct で定義。

const lib = Deno.dlopen("SHLWAPI.dll", {
  AssocQueryStringW: { parameters: ["u32", "i32", "buffer", "buffer", "buffer", "pointer"], result: "i32" },
});
// lib.symbols.AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut)
// flags : ASSOCF -> "u32"
// str : ASSOCSTR -> "i32"
// pszAssoc : LPCWSTR -> "buffer"
// pszExtra : LPCWSTR optional -> "buffer"
// pszOut : LPWSTR optional, out -> "buffer"
// pcchOut : DWORD* in/out -> "pointer"
// 文字列は "buffer"。Unicode(-W) は new TextEncoder() ではなく UTF-16LE のバイト列(末尾に \x00\x00)を Uint8Array で渡す。
// 値渡し構造体は { struct: [ ...field types... ] } を使用。

<?php
$ffi = FFI::cdef(<<<C
int32_t AssocQueryStringW(
    uint32_t flags,
    int32_t str,
    const uint16_t* pszAssoc,
    const uint16_t* pszExtra,
    uint16_t* pszOut,
    uint32_t* pcchOut);
C, "SHLWAPI.dll");
// $ffi->AssocQueryStringW(flags, str, pszAssoc, pszExtra, pszOut, pcchOut);
// flags : ASSOCF
// str : ASSOCSTR
// pszAssoc : LPCWSTR
// pszExtra : LPCWSTR optional
// pszOut : LPWSTR optional, out
// pcchOut : DWORD* in/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 Shlwapi extends StdCallLibrary {
    Shlwapi INSTANCE = Native.load("shlwapi", Shlwapi.class, W32APIOptions.UNICODE_OPTIONS);
    int AssocQueryStringW(
        int flags,   // ASSOCF
        int str,   // ASSOCSTR
        WString pszAssoc,   // LPCWSTR
        WString pszExtra,   // LPCWSTR optional
        char[] pszOut,   // LPWSTR optional, out
        IntByReference pcchOut   // DWORD* in/out
    );
}
// Unicode(-W): WString(入力)/char[](出力)で UTF-16 をマーシャリング。

@[Link("shlwapi")]
lib LibSHLWAPI
  fun AssocQueryStringW = AssocQueryStringW(
    flags : UInt32,   # ASSOCF
    str : Int32,   # ASSOCSTR
    pszAssoc : UInt16*,   # LPCWSTR
    pszExtra : UInt16*,   # LPCWSTR optional
    pszOut : UInt16*,   # LPWSTR optional, out
    pcchOut : UInt32*   # DWORD* in/out
  ) : Int32
end
# 構造体/GUID/enum は lib 内に対応する型定義が必要。
# 呼出規約: x64 は規約統一のため OK。x86(32bit)は WINAPI=stdcall だが Crystal の fun に stdcall 付与構文がなく非対応。

import 'dart:ffi';
import 'package:ffi/ffi.dart';

typedef AssocQueryStringWNative = Int32 Function(Uint32, Int32, Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, Pointer<Uint32>);
typedef AssocQueryStringWDart = int Function(int, int, Pointer<Utf16>, Pointer<Utf16>, Pointer<Utf16>, Pointer<Uint32>);
final AssocQueryStringW = DynamicLibrary.open('SHLWAPI.dll')
    .lookupFunction<AssocQueryStringWNative, AssocQueryStringWDart>('AssocQueryStringW');
// flags : ASSOCF -> Uint32
// str : ASSOCSTR -> Int32
// pszAssoc : LPCWSTR -> Pointer<Utf16>
// pszExtra : LPCWSTR optional -> Pointer<Utf16>
// pszOut : LPWSTR optional, out -> Pointer<Utf16>
// pcchOut : DWORD* in/out -> Pointer<Uint32>
// 文字列は package:ffi の "...".toNativeUtf16()/toNativeUtf8() で変換。

{$mode objfpc}{$H+}
function AssocQueryStringW(
  flags: DWORD;   // ASSOCF
  str: Integer;   // ASSOCSTR
  pszAssoc: PWideChar;   // LPCWSTR
  pszExtra: PWideChar;   // LPCWSTR optional
  pszOut: PWideChar;   // LPWSTR optional, out
  pcchOut: Pointer   // DWORD* in/out
): Integer; stdcall;
  external 'SHLWAPI.dll' name 'AssocQueryStringW';

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import stdcall safe "AssocQueryStringW"
  c_AssocQueryStringW :: Word32 -> Int32 -> CWString -> CWString -> CWString -> Ptr Word32 -> IO Int32
-- flags : ASSOCF -> Word32
-- str : ASSOCSTR -> Int32
-- pszAssoc : LPCWSTR -> CWString
-- pszExtra : LPCWSTR optional -> CWString
-- pszOut : LPWSTR optional, out -> CWString
-- pcchOut : DWORD* in/out -> Ptr Word32
-- 要 GHC(Windows)。stdcall は x64 では ccall として扱われる。ブロックする API は safe 呼び出し推奨。

open Ctypes
open Foreign

let assocquerystringw =
  foreign "AssocQueryStringW"
    (uint32_t @-> int32_t @-> (ptr uint16_t) @-> (ptr uint16_t) @-> (ptr uint16_t) @-> (ptr uint32_t) @-> returning int32_t)
(* flags : ASSOCF -> uint32_t *)
(* str : ASSOCSTR -> int32_t *)
(* pszAssoc : LPCWSTR -> (ptr uint16_t) *)
(* pszExtra : LPCWSTR optional -> (ptr uint16_t) *)
(* pszOut : LPWSTR optional, out -> (ptr uint16_t) *)
(* pcchOut : DWORD* in/out -> (ptr uint32_t) *)
(* foreign は cdecl 前提。x64 Windows では WINAPI と一致。構造体は ctypes structure を定義のこと。 *)

(cffi:define-foreign-library shlwapi (t "SHLWAPI.dll"))
(cffi:use-foreign-library shlwapi)

(cffi:defcfun ("AssocQueryStringW" assoc-query-string-w :convention :stdcall) :int32
  (flags :uint32)   ; ASSOCF
  (str :int32)   ; ASSOCSTR
  (psz-assoc (:string :encoding :utf-16le))   ; LPCWSTR
  (psz-extra (:string :encoding :utf-16le))   ; LPCWSTR optional
  (psz-out :pointer)   ; LPWSTR optional, out
  (pcch-out :pointer))   ; DWORD* in/out
; isize/usize(INT_PTR/SIZE_T)は x64 前提で :int64/:uint64。x86 では :int32/:uint32。

use Win32::API;
my $AssocQueryStringW = Win32::API::More->new('SHLWAPI',
    'int AssocQueryStringW(DWORD flags, int str, LPCWSTR pszAssoc, LPCWSTR pszExtra, LPWSTR pszOut, LPVOID pcchOut)');
# my $ret = $AssocQueryStringW->Call($flags, $str, $pszAssoc, $pszExtra, $pszOut, $pcchOut);
# flags : ASSOCF -> DWORD
# str : ASSOCSTR -> int
# pszAssoc : LPCWSTR -> LPCWSTR
# pszExtra : LPCWSTR optional -> LPCWSTR
# pszOut : LPWSTR optional, out -> LPWSTR
# pcchOut : DWORD* in/out -> LPVOID
# 値渡し構造体は pack() した文字列、または Win32::API::Struct を使用。
# Unicode(-W): LPCWSTR/LPWSTR は Win32::API が UTF-16 変換を行う。

AssocQueryStringW

シグネチャ

パラメーター

ファイル名拡張子

CLSID

ProgID

実行可能ファイル名

- pszAssoc.CLSID

- pszAssoc.Executable name

- pszAssoc.File name extension

- pszAssoc.ProgID

公式ドキュメント

戻り値

解説(Remarks)

各言語での呼び出し定義

関連項目