FileListBox控件中如何打开文件夹啊.DEMO中的例子好像不行.(100分)

例子中这一段只能打开文件,能不能在FileListBox中浏览文件夹呢?
with FileList do
begin
if HasAttr(FileName, faDirectory) then
DirectoryOutline.Directory := FileName
else ExecuteFile(FileName, '', Directory, SW_SHOW);
end;

这段代码是fileListBox 和directoryOutline一起用。
你可以将fileListBox和DirectoryListbox 一起用。

接受答案了.