请问有测出文件大小的api函数吗?

Question

请问有测出文件大小的api函数吗?

Answer 1

function FileSize(var F): Integer;

Answer 2

使用findfirst和findnext函数，返回的Tsearchrec类型的变量中，有一个filesize值

Answer 3

to rockswj
   这个函数是不是要自己定义呀！

Answer 4

from MSDN:
GetFileSize
The GetFileSize function retrieves the size of a specified file. This function stores the file size in a DWORD value. To retrieve a file size that is larger than a DWORD value, use the GetFileSizeEx function. DWORD GetFileSize(
  HANDLE hFile,           // handle to file
  LPDWORD lpFileSizeHigh  // high-order word of file size
);

Answer 5

都可以.只是FileSize判断的好象不准
var f:file;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f,OpenDialog1.FileName);
    Reset(f);
    ShowMessage(IntToStr(FileSize(f)));
    CloseFile(f);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var SearchRec:TSearchRec;
begin
  if OpenDialog1.Execute then
  begin
    FindFirst(Opendialog1.FileName,faAnyFile,SearchRec);
    ShowMessage(IntToStr(SearchRec.Size));
    FindClose(SearchRec);
  end;
end;