求助：如何使一个文件属性赋值到一张表中？

Question

小弟用opendialog打开一个文件，想让文件的属性各个字段显示在listview中,比如文件的名字，日期，路径，内容等；
望各位大虾援助一下，多谢！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SearRec: TSearchRec;
  str : string ;
begin
   with TOpenDialog.Create(nil) do
   begin
      if Execute then
      begin
       if  FindFirst(FileName,faAnyfile,SearRec)=0 then    //找到文件
          str := Format('FileName=%S '+      // 文件名；
                         #13#10+
                         'Size=%d Byte'+     // 大小
                          #13#10+
                         'CreateDate='+      //创建日期
                         DateTostr(FileDateToDateTime(SearRec.Time)) ,[SearRec.Name,SearRec.size]);
         showmessage(str) ;
        { SearRec.FindData.ftCreationTime;
         SearRec.FindData.ftLastAccessTime;
         SearRec.FindData.ftLastWriteTime;  // 其他信息
         }
         Memo1.Lines.LoadFromFile(FileName);  // 将文件内容写入Memo中
       end;
      Free;
    end;
end;
测试通过了，可以得到其他信息入： 上次访问时间，上次修改时间，文件句柄等等
希望对你有所帮助

Answer 2

我们要在listview中显示出来，还有文件的内容也要显示出来，还有是否隐藏，是否只读。
不过还是要谢谢老兄！