delphi directorylistbox 显示隐藏文件夹

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

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

网上说
修改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有一些文件夹无法显示啊，不光是系统文件和隐藏文件

账号		自动登录	找回密码
密码			立即注册