在DirectoryListBox Delphi中隐藏根路径/文件夹

首先，对不起，我用谷歌翻译，我是法国人

与德尔福（柏林）如何隐藏父母（根）

例如，如果我把

DirectoryListBox1.Directory:=“documentation\”
（c:\test\documentation），如何使c:\test不显示，而只显示“documentation”文件夹（及其包含的所有文件夹）

例1


例2


提前感谢您的回答组件
TDirectoryListBox
不支持您尝试执行的操作

我建议改用
TShellTreeView
；如果您设置
Root
属性，它具有类似的功能，看起来更现代，而且除其他外，它的行为方式与您想要的方式相同

如果您使用的是XE6或更早版本，您应该可以直接访问此组件，如果您使用的是更高版本，则必须按照公认答案中的步骤进行安装。
您好，非常感谢您的帮助，我对此答案有些怀疑。我只是按照您告诉我的教程进行操作，但无需执行任何操作，所有内容都可以很好地编译，但组件无法实现任何功能。我做了其他的尝试，我会再次邀请你，彼得。。。没有办法导出Delphi7的此组件并将其导入delphi berlin？非常感谢您不能“导出和导入组件”。如果你有源文件，你可以安装一个组件，这在我链接的帖子中有描述。你必须对你所面临的问题更加具体。如果你用英语解释有困难，那就用法语吧，你在上面写的很多东西都毫无意义……谢谢你的助手阿洛尔·丹的联合国总理临时行政长官，他在《邮报》上发表了一篇文章：j'ai cette erreur:et j'obtiens aussi une Errer:Surement un problème d'encodage（unicode），mais lççme dépasse。谢天谢地，这是菲舍尔家族所必需的；ils se trouvent déjá“[程序文件]\Embarcadero\Studio[…]\source\vcl\”。Comme décriveédans l'autre post，il faut créer un package nouveau（File->New->package），ajouter Vcl.Shell.ShellConsts.pas&Vcl.Shell.ShellCtrls.pas，après ajouter la procedure Register dans ShellCtrls（voir l'autre post），et finalelement installer le package.Merci Beaucup，tout fonctionne Main-fichers。