虫霸田下 发表于 2011-10-8 21:33:46

delphi directorylistbox 显示隐藏文件夹

网上说
修改filectrl.pas中directorylistbox的源代码：   
在function   TDirectoryListbox.ReadDirectoryNames中   
有一句   
      Status   :=   FindFirst(SlashSep(ParentDirectory,   '*.*'),   faDirectory,   SearchRec);   
将其改成   
      Status   :=   FindFirst(SlashSep(ParentDirectory,   '*.*'),   faDirectory+fahidden,   SearchRec);
      在uses里加上filectrl

又说问题出在FileCtrl.dcu上，我就不明白了。
有高手给解决一下呗

虫霸田下 发表于 2011-10-8 21:36:16

directorylistbox有一些文件夹无法显示啊，不光是系统文件和隐藏文件
页: [1]
查看完整版本: delphi directorylistbox 显示隐藏文件夹