var
  vSearchRec: TSearchRec;
begin
  FindFirst('<文件名>', faAnyFile, vSearchRec);
  Caption := IntToStr(vSearchRec.Size);
  FindClose(vSearchRec);
end;

解决方案 »

  1.   

    FilePanel.Caption := Format('%s, %d bytes', [TheFileName, GetFileSize(TheFileName)])
      

  2.   

    function GetFileSize(const FileName: string): LongInt;
    var
      SearchRec: TSearchRec;
    begin
      try
        if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
          Result := SearchRec.Size
        else Result := -1;
      finally
        SysUtils.FindClose(SearchRec);
      end;
    end;
      

  3.   

    var
      vSearchRec: TSearchRec;
    begin
      FindFirst('<文件名>', faAnyFile, vSearchRec);
      Caption := IntToStr(vSearchRec.Size);
    //  vSearchRec.FindData.ftCreationTime//创建时间
    //  vSearchRec.FindData.ftLastAccessTime//访问时间
    //  vSearchRec.FindData.ftLastWriteTime//修改时间
      FindClose(vSearchRec);
    end;