DirectoryListBox如何显示隐藏文件夹？

Question

本帖最后由 holy18 于 2011-10-10 21:26:44 编辑

Answer 1

不能，但是你可以改写 FileCtrl.pas 单元，然后将它另存在你当前的工程目录下，以便让编译器首先能找到它。
于读取函数：
function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string;
  DirectoryList: TStringList): Integer;
var
  Status: Integer;
  SearchRec: TSearchRec;
begin
  Result := 0;
  Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory or  
faHidden {增加}, SearchRec);
  try
    while Status = 0 do
    begin
      if (SearchRec.Attr and faDirectory = faDirectory) then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
        begin
          DirectoryList.Add(SearchRec.Name);
          Inc(Result);
        end;
      end;
      Status := FindNext(SearchRec);
    end;
  finally
    FindClose(SearchRec);
  end;
end;

Answer 2

to sailxia是的，成了！太谢谢了
如果再加 or faSysFile 就可以显示系统文件夹了