Delphi中搜索文件获取文件名的同时获取文件大小和创建时间怎么弄啊

Question

Delphi中搜索文件获取文件名的同时获取文件大小和创建时间怎么弄啊  这是获取文件名 文件路径的代码~~~~怎么写获取文件大小 和创建日期的代码
procedure TForm5.GetDirsAndFiles(APath: String; AList: TStrings; BList: TStrings;
  HasPath: Boolean);
var
  F: TSearchRec;
  FileName, RFileName: String;
begin
  if FindFirst(APath + '\*.*', faAnyFile, F) = 0 then
  repeat
    FileName := F.Name;
    if (FileName <> '.') and (FileName <> '..') then begin
      if HasPath then
          RFileName := APath + '\' + FileName
      else
       RFileName := FileName;
        if UpperCase(ExtractFileExt(RFileName)) = '.PDF' then
        begin
        AList.Add(FileName);
        Blist.Add(APath);
        end;
      Caption := '搜索-' + RFileName;
           if F.Attr and faDirectory <> 0 then
        GetDirsAndFiles(APath + '\' + F.Name, AList,Blist,True);
    end;
    Application.ProcessMessages;
  until FindNext(F) <> 0;
  FindClose(F);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  f: file of Byte;
  size: Longint;
  sr: TSearchRec;
  dft: DWORD;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    try
      size := FileSize(f);
      showmessage('File size in bytes: ' + IntToStr(size));
      FindFirst(OpenDialog1.FileName, faAnyFile, sr);
      FileTimeToDosDateTime(sr.FindData.ftCreationTime,
        LongRec(dft).Hi, LongRec(dft).Lo);
      showmessage(DateTimeToStr(FileDateToDateTime(dft)));
    finally
      CloseFile(f);
    end;
  end;
end;

Answer 2

function CovFileDate(Fd:_FileTime):TDateTime;
{ 转换文件的时间格式 }
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;procedure TForm1.Button2Click(Sender: TObject);
const
Model='yyyy/mm/dd'; { 设定时间格式 }
var
Tp:TSearchRec; { 申明Tp为一个查找记录 }
T1,T2,T3:string;
begin
FindFirst('D:\SQL10.TXT',faAnyFile,Tp); { 查找目标文件 }
T1:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftCreationTime));
{ 返回文件的创建时间 }
T2:=FormatDateTime(Model,CovFileDate(Tp.FindData.ftLastWriteTime));
{ 返回文件的修改时间 }
T3:=FormatDateTime(Model,Now);
{ 返回文件的当前访问时间 }
FindClose(Tp);
end;

Answer 3

FileSizeByName（需要引用IdGlobal单元） 
begin 
if OpenDialog1.Execute then 
begin 
ShowMessage(IntToStr(FileSizeByName(OpenDialog1.Filename))); 
end;