获取文件大小的函数

Question

在不打开该文件的情况下，根据文件路径获得文件大小的函数是什么？
thanks。

Answer 1

  file:=TFileStream;
  file:=TFileStream.create('','')
  file.size 就是文件大小

Answer 2

用FileSize函数。你可查看Delphi的帮助，有例子。

Answer 3

GetFileSize最直接SetFilePointer移动文件指针到文件尾，EAX寄存器中就是大小或者var
  Fi: BY_HANDLE_FILE_INFORMATION;
  H: HWND;
begin
  H := FileOpen(Trim(ParamStr(0)), fmShareDenyNone);
  if GetFileInformationByHandle(H, Fi) then
    ShowMessage(IntToStr(Fi.nFileSizeLow));
end;