Shelltreeview + Drag Drop?? Pfad unter der Maus?

[omata]

Moin,

versuch mal folgendes

Delphi-Quellcode:

procedure TForm.ShellTreeViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var Node:TTreeNode;
begin
  Node:=ShellTreeView1.GetNodeAt(X, Y);
  if assigned(Node) and assigned(Node.Data) then
    showmessage(TShellFolder(Node.Data).PathName);
end;

MfG
Thorsten