Drag & Drop von Listbox in Explorer

[Aurelius]

Bie dieser Zeile funktioniert das ganze aber nicht.
DoDragDrop(DataObject, Self, DROPEFFECT_COPY, Effect);DoDragDrop(DataObject, Self, DROPEFFECT_COPY, Effect);