我很好奇如何初始化 VT_VARIANT 的 PROPVARIANT 結構 | VT_VECTOR 型別。我知道的現有模型是DocumentSummaryInformation屬性集HeadingPairs的屬性：
HeadingPairs 屬性作為變體向量存盤在重復的 VT_LPSTR（或 VT_LPWSTR）和 VT_I4 值對中。
我知道各種 Init 函式，例如InitPropVariantFromStringAsVector創建 VT_VECTOR | 的函式。VT_LPWSTR propvariant，但據我所知，沒有函式可以初始化 VT_VARIANT | 的 PROPVARIANT 結構 VT_VECTOR 型別。
任何幫助或建議將不勝感激。
謝謝你。
uj5u.com熱心網友回復：
您是正確的，沒有現成的 Win32 函式可以PROPVARIANT用值向量初始化 a PROPVARIANT。您只需要手動初始化它，即分配一個PROPVARIANTs 陣列，然后將該陣列的指標分配給該PROPVARIANT::capropvar.pElems欄位，并將該陣列的長度分配給該PROPVARIANT::capropvar.cElems欄位，例如：
int count = ...;
PROPVARIANT *arr = (PROPVARIANT*) CoTaskMemAlloc(count * sizeof(PROPVARIANT));
// initialize array values as needed...
PROPVARIANT pv;
PropVariantInit(&pv);
pv.vt = VT_VECTOR | VT_VARIANT;
pv.capropvar.pElems = arr;
pv.capropvar.cElems = count;
// use pv as needed...
PropVariantClear(&pv);
uj5u.com熱心網友回復：
這是一個基于 Remy用 AutoHotkey 撰寫的解決方案的原型：
VariantVector := [{vt:0x001F, val:"hello world"}, {vt:0x0003, val:3}]
VarSetCapacity(PropVariant, 8 2 * A_PtrSize, 0)
InitPropVariatFromVariantAsVector(PropVariant, VariantVector)
; Do something here...
PropVariantClear(PropVariant)
return
InitPropVariatFromVariantAsVector(ByRef PropVariant, VariantVector) {
static VT_VARIANT := 0x000C
static VT_VECTOR := 0x1000
static Size := 8 2 * A_PtrSize
NumPut(VT_VARIANT | VT_VECTOR, PropVariant, 0, "UShort")
NumPut(VariantVector.Count(), PropVariant, 8, "UInt")
ptr := DllCall("Ole32\CoTaskMemAlloc", "UPtr", Size * VariantVector.Count(), "Ptr")
NumPut(ptr, PropVariant, 8 A_PtrSize, "Ptr")
for Each, Variant in VariantVector {
Offset := Size * (Each - 1)
NumPut(Variant.vt, ptr 0, Offset, "UShort")
Switch Variant.vt
{
Case 0x0003: NumPut(Variant.val, ptr 0, Offset 8, "Int") ; VT_I4
Case 0x001E: DllCall("Shlwapi\SHStrDup", "AStr", Variant.val, "Ptr", ptr Offset 8, "Int") ; VT_LPSTR
Case 0x001F: DllCall("Shlwapi\SHStrDup", "WStr", Variant.val, "Ptr", ptr Offset 8, "Int") ; VT_LPWSTR
Default: throw Exception(A_ThisFunc ": Unsupported Variant Type.", -1, Format("0x{:04X}", Variant.vt))
}
}
}
PropVariantClear(ByRef PropVariant) {
return DllCall("Ole32\PropVariantClear", "Ptr", &PropVariant, "Int")
}
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/438371.html