获取文件的大小等

atiger

参考代码如下：

var
  lStream: TFileStream;
  filetime:Tdatetime;
begin
  if OpenDialog1.Execute then
  begin
    filetime:=SysUtils.FileDateToDateTime(SysUtils.FileAge(OpenDialog1.FileName));
    lStream := TFileStream.Create(OpenDialog1.FileName, SysUtils.fmOpenRead);
    try
      jsDialogs.ShowMsg('File size in bytes: ' + SysUtils.IntToStr(lStream.Size), '');  //文件大小
      jsDialogs.ShowMsg('File change date: ' + SysUtils.DateTimeToStr(filetime), '');  //文件最后修改时间
    finally
      lStream.Free;
    end;
  end;
end;