关于samples组件板中Shelllistview组件的问题！

Question

各位老师们好：
    学生在用DELPHI6学习设计一个类似WINDOWS中的资源管理器界面功能一样的做业的时候用到了D6中的SAmples组件板中的Shelllistview但不管怎样调整它的属性只能够显示文件或者文件夹的名称，不能如同资源管理器中右边一样可以显示文件名称、大小、属性等内容。不知Shelllistview有不有这个功能？
    另外用filelistbox又不能按要求显示成Listview那样的风格，请问我该怎样办？谢谢！

Answer 1

自己写代码!
For For i:=1 to FileList.Items.Count do
begin
  PFile:=FileOpen(FileList.Items.Strings[n-1], fmOpenRead);
  PicFileSize:=FileSeek(PFile,0,2);
  if PicFileSize<1024 then
    FSize:=inttostr(PicFileSize)+' 字节'
  else if PicFileSize<1048576 then
    FSize:=floattostr(Trunc(PicFileSize/102.4)/10)+' KB'
  else
    FSize:=floattostr(Trunc(PicFileSize/104857.6)/10)+' MB';
  FDate:=DateToStr(DateOf(FileDateToDateTime(FileGetDate(PFile))));
  FTime:=TimeToStr(TimeOf(FileDateToDateTime(FileGetDate(PFile))));
  FileClose(PFile);
  LV:=ListView.Items.Add;
  LV.Caption:=FileList.Items.Strings[n-1];
  LV.SubItems.Add(FSize);
  LV.SubItems.Add(FDate);
  LV.SubItems.Add(FTime);
end;