Как перетащить файл из Explorer Shell в элемент управления VirtualTreeView в приложении Delphi?

Майк Лишке широко поддерживает функцию перетаскивания в VirtualTreeView, и я использую TVirtualStringTree, в котором есть некоторые события перетаскивания, но я не могу понять, как заставить его принимать перетаскивание оболочки некоторых файлов из оболочки Windows Explorer, в мое приложение. Я хочу загрузить файлы, когда они перетаскиваются на элемент управления перетаскиванием.

Я пытался использовать сторонний набор кода от Андерса Меландера, чтобы обрабатывать перетаскивание, но поскольку VirtualTreeView уже регистрирует себя как цель перетаскивания, я не могу это использовать.

редактировать: я нашел простой обходной путь: отключить AcceptOLEDrop в VT.TreeOptions.MiscOptions. Было бы здорово, если бы кто-нибудь знал способ использования VirtualTreeView без использования сторонней библиотеки OLE-shell-drag-drop и использования его обширной поддержки OLE-drag / drop для извлечения списка имен файлов, перетаскиваемых из командной консоли.

Ответы на вопрос(2)

Ваш ответ на вопрос