Wenn du den kompletten Pfad haben willst, funzt das: Ansonsten noch mit ExtractFileName
Delphi-Quellcode:
procedure TForm1.ShellTreeView1DblClick(Sender: TObject);
var
Filename:TFileName;
begin
Filename:=ExtractFileName(ShellTreeView1.Path);
ShowMessage(Filename);
end;