#include <GuiListView.au3>
#include <GUIConstants.au3>
Global Const $sIID_IOwnerDataCallback = '{44C09D56-8D3B-419D-A462-7B956B105B47}'
Global Const $dtag_IOwnerDataCallback = _
"GetItemPosition hresult(int;ptr*);" & _
"SetItemPosition hresult(int;ptr);" & _
"GetItemInGroup hresult(int;int;ptr*);" & _
"GetItemGroup hresult(int;int;ptr*;);" & _
"GetItemGroupCount hresult(int;ptr*);" & _
"OnCacheHint hresult(int;int);"
Global Const $sIID_IOleWindow = '{00000114-0000-0000-C000-000000000046}'
Global Const $dtag_IOleWindow = _
"GetWindow hresult(hwnd*);" & _
"ContextSensitiveHelp hresult(int);"
Global Const $sIID_IListView = '{BDD1F049-858B-11D1-B16A-00C0F0283628}'
Global Const $dtag_IListView = $dtag_IOleWindow & _
"GetImageList hresult();"
Global Const $LVM_QUERYINTERFACE = $LVM_FIRST + 189
GUICreate("ListView Insert Group", 400, 300)
Global $idListview = GUICtrlCreateListView('', 10, 40, 300 - 20, 200 - 20, $LVS_OWNERDATA, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT))
Global $hLV = GUICtrlGetHandle($idListview)
_GUICtrlListView_AddColumn($hLV, 'Items', 250)
GUIRegisterMsg($WM_NOTIFY, 'WM_NOTIFY')
GUISetState(@SW_SHOW)
#1 Вариант http://www.geoffchappell.com/studies/windows/shell/comctl32/controls/listview/messages/queryinterface.htm
#2 Вариант http://www.geoffchappell.com/studies/windows/shell/comctl32/controls/listview/interfaces/iownerdatacallback.htm?tx=25
Local $tEvent
Local $oEvent = __ObjectCreate("__vl_" & 'IOwnerDataCallback' & "_", $dtag_IOwnerDataCallback, $tEvent, False)
_SendMessage($hLV, 0x10BB, $oEvent())
Local $iGroupID = 1
_GUICtrlListView_InsertGroup($idListview, -1, $iGroupID, "Group 1")
_GUICtrlListView_EnableGroupView($hLV)
Global $iItems = 1
GUICtrlSendMsg($idListview, $LVM_SETITEMCOUNT, $iItems, 0)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
Exit
Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
Local Static $tText = DllStructCreate('wchar[50]')
Local Static $pText = DllStructGetPtr($tText)
Local $tNMHDR, $hWndFrom, $iCode
$tNMHDR = DllStructCreate($tagNMHDR, $lParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
$iCode = DllStructGetData($tNMHDR, 'Code')
Switch $hWndFrom
Case $hLV
Switch $iCode
Case $LVN_GETDISPINFOW
ConsoleWrite('$LVN_GETDISPINFOW' & @CRLF)
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
Func __ObjectCreate($sFunctionPrefix, $tagInterface, ByRef $tInterface, $fPrint = False, $bIsUnknown = Default, $sIID = "{00000000-0000-0000-C000-000000000046}")
If $bIsUnknown = Default Then $bIsUnknown = True
Local $sInterface = $tagInterface
Local $tagIUnknown = "QueryInterface hresult(ptr;ptr*);" & _
"AddRef dword();" & _
"Release dword();"
If $bIsUnknown Then $tagInterface = $tagIUnknown & $tagInterface
Local $aMethods = StringSplit(StringReplace(StringReplace(StringReplace(StringReplace(StringTrimRight(StringReplace(StringRegExpReplace(StringRegExpReplace($tagInterface, "\w+\*", "ptr"), "\h*(\w+)\h*(\w+\*?)\h*(\((.*?)\))\h*(;|;*\z)", "$1\|$2;$4" & @LF), ";" & @LF, @LF), 1), "object", "idispatch"), "hresult", "long"), "bstr", "ptr"), "variant", "ptr"), @LF, 3)
Local $iUbound = UBound($aMethods)
Local $sMethod, $aSplit, $sNamePart, $aTagPart, $sTagPart, $sRet, $sParams, $hCallback
$tInterface = DllStructCreate("int RefCount;int Size;ptr Object;ptr Methods[" & $iUbound & "];int_ptr Callbacks[" & $iUbound & "];ulong_ptr Slots[16]")
If @error Then Return SetError(1, 0, 0)
For $i = 0 To $iUbound - 1
$aSplit = StringSplit($aMethods[$i], "|", 2)
If UBound($aSplit) <> 2 Then ReDim $aSplit[2]
$sNamePart = $aSplit[0]
$sTagPart = $aSplit[1]
$sMethod = $sFunctionPrefix & $sNamePart
If $fPrint Then
Local $iPar = StringInStr($sTagPart, ";", 2), $t
If $iPar Then
$t = "Ret: " & StringLeft($sTagPart, $iPar - 1) & " " & _
"Par: " & StringRight($sTagPart, StringLen($sTagPart) - $iPar)
Else
$t = "Ret: " & $sTagPart
EndIf
Local $s = "Func " & $sMethod & _
"($pSelf) ; " & $t & @CRLF & _
"EndFunc" & @CRLF
ConsoleWrite($s)
EndIf
$aTagPart = StringSplit($sTagPart, ";", 2)
$sRet = $aTagPart[0]
$sParams = StringReplace($sTagPart, $sRet, "", 1)
$sParams = "ptr" & $sParams
If Not $fPrint Then
$hCallback = DllCallbackRegister($sMethod, $sRet, $sParams)
If @error Then
ConsoleWrite('! ' & @error & ' ' & $sMethod & ' ' & $sParams & @CRLF & @CRLF)
EndIf
DllStructSetData($tInterface, "Methods", DllCallbackGetPtr($hCallback), $i + 1)
DllStructSetData($tInterface, "Callbacks", $hCallback, $i + 1)
EndIf
Next
If Not $fPrint Then
DllStructSetData($tInterface, "RefCount", 1)
DllStructSetData($tInterface, "Size", $iUbound)
DllStructSetData($tInterface, "Object", DllStructGetPtr($tInterface, "Methods"))
Return ObjCreateInterface(DllStructGetPtr($tInterface, "Object"), $sIID, $sInterface, $bIsUnknown)
EndIf
EndFunc
Func __mbn_DeleteObjectFromTag(ByRef $tInterface)
For $i = 1 To DllStructGetData($tInterface, "Size")
DllCallbackFree(DllStructGetData($tInterface, "Callbacks", $i))
Next
$tInterface = 0
EndFunc
Func __StringFromGUID($pGUID)
Local $aResult = DllCall("ole32.dll", "int", "StringFromGUID2", "struct*", $pGUID, "wstr", "", "int", 40)
If @error Then Return SetError(@error, @extended, "")
Return SetExtended($aResult[0], $aResult[2])
EndFunc
Func __vl_IOwnerDataCallback_GetItemGroupCount($pSelf, $iItemIndex, $pOccurenceCount)
ConsoleWrite('__vl_IOwnerDataCallback_GetItemGroupCount ' & $iItemIndex & ' ' & $pOccurenceCount & @CRLF)
DllStructSetData(DllStructCreate("ptr", $pOccurenceCount), 1, 1)
Return 0
EndFunc
Func __vl_IOwnerDataCallback_GetItemInGroup($pSelf, $iGroupIndex, $iGroupWideItemIndex, $pTotalItemIndex)
ConsoleWrite('__vl_IOwnerDataCallback_GetItemInGroup' & $iGroupIndex & ' ' & $iGroupWideItemIndex & ' ' & $pTotalItemIndex & @CRLF)
DllStructSetData(DllStructCreate("ptr", $pTotalItemIndex), 1, $iGroupIndex + $iGroupWideItemIndex * 1)
Return 0
EndFunc
Func __vl_IOwnerDataCallback_GetItemGroup($pSelf, $iItemIndex, $iOccurenceIndex, $pGroupIndex)
ConsoleWrite('__vl_IOwnerDataCallback_GetItemGroup ' & $iItemIndex & ' ' & $iOccurenceIndex & ' ' & $pGroupIndex & @CRLF)
DllStructSetData(DllStructCreate("ptr", $pGroupIndex), 1, 1)
Return 0
EndFunc
Func __vl_IOwnerDataCallback_QueryInterface($pSelf, $pRIID, $pObj)
Local Static $sIID_IUnknown = "{00000000-0000-0000-C000-000000000046}"
Local $sIID = __StringFromGUID($pRIID)
ConsoleWrite('__vl_IOwnerDataCallback_QueryInterface ' & $sIID & @CRLF)
If $sIID = $sIID_IUnknown Then
DllStructSetData(DllStructCreate("ptr", $pObj), 1, $pSelf)
Return 0
ElseIf $sIID = $sIID_IOwnerDataCallback Then
DllStructSetData(DllStructCreate("ptr", $pObj), 1, $pSelf)
Return 0
Else
Return 0x80004002
EndIf
EndFunc
Func __vl_IOwnerDataCallback_AddRef($pSelf)
Return 1
EndFunc
Func __vl_IOwnerDataCallback_Release($pSelf)
Return 1
EndFunc
Func __vl_IOwnerDataCallback_GetItemPosition($pSelf, $iItemIndex, $pPosition)
ConsoleWrite('__vl_IOwnerDataCallback_GetItemPosition' & @CRLF)
Return 0x80004002
EndFunc
Func __vl_IOwnerDataCallback_SetItemPosition($pSelf, $iItemIndex, $pPosition)
ConsoleWrite('__vl_IOwnerDataCallback_SetItemPosition' & @CRLF)
Return 0x80004002
EndFunc
Func __vl_IOwnerDataCallback_OnCacheHint($pSelf, $p1, $p2)
Return 0x80004002
EndFunc
B, 0x8E, 0x1F, 0x15, 0xB7, 0x2F, 0xB4}}, а у меня в реестре он определен как: HKEY_CLASSES_ROOT\Interface\{BDD1F049-858B-11D1-B16A-00C0F0283628}, уже не совпадает.