ShellTreeView: Node -> Pfad (ohne Selektieren!)

[himitsu]

Natürlich kann man das auch selber filtern.

Aber soll es genau automatisch gleich funktionieren, dann sollte man sich mal mit IShellFolder auseinandersetzen.


Nunja, jeder TreeView-Eintrag hat eine Data-Eigenschaft, wo ein TShellFolder drin steckt.

[e-gon]

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

[DeddyH]

Kleine Ergänzung:

Delphi-Quellcode:

function GetShellNodePath(Node: TTreeNode): string;
var Fldr : TShellFolder;
begin
  Result := '';
  if Assigned(Node) then
    begin
      Fldr := TShellFolder(Node.Data);
      if Assigned(Fldr) and DirectoryExists(Fldr.PathName) then
        Result := Fldr.PathName;
    end;    
end;

Schöner wären natürlich entsprechende Exceptions, wenn keine Daten da sind, die eigentlich hätten da sein müssen, aber das kannst Du ja nach Belieben erweitern.