Danke himitsu!
Der Tipp mit TShellFolder war die Lösung!
Für alle, die ds gleiche Problem haben:
Delphi-Quellcode:
function GetShellNodePath(Node: TTreeNode): string;
var Fldr : TShellFolder;
begin
Fldr := TShellFolder(Node.Data);
if DirectoryExists(Fldr.PathName) then
Result := Fldr.PathName
else
Result := '';
end;
Der Aufruf könnte dann z. B. so aussehen:
Caption:= GetShellNodePath(ShellTreeView1.Selected);
Gruß
e-gon