不能,但是你可以改写 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;
to sailxia是的,成了!太谢谢了 如果再加 or faSysFile 就可以显示系统文件夹了
于读取函数:
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;
如果再加 or faSysFile 就可以显示系统文件夹了