DirectoryListBox1怎么显示系统，隐藏文件？ 急！！！！ 高分！！！！(50分)

DirectoryListBox1怎么显示系统，隐藏文件？ 急！！！！
答对有高分啊……谢谢
高分！！！！

TO Singer：
DirectoryListBox需要与FileListBox配合使用。
在窗体上放置一个DirectoryListBox和一个FileListBox，通过DirectoryBoxList的FileList属性将此两控件关联起来，设置FileListBox的FileType属性为[ftNormal, ftHidden, ftArchive]即可显示出隐藏文件了。

不行啊……
这个方法我试过了

1、将filectrl.pas另存为相同文件名，保存在自己程序源文件的目录下
2、将filectrl.pas时的下面函数作如下修改：
function TDirectoryListbox.ReadDirectoryNames(const ParentDirectory: string;
DirectoryList: TStringList): Integer;
var
Status: Integer;
SearchRec: TSearchRec;
begin
Result := 0;
{ 修改下面一行的faDirectory为faAnyFile }
Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faDirectory, SearchRec);
//Status := FindFirst(SlashSep(ParentDirectory, '*.*'), faAnyFile, 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;