如何获得磁盘上文件的大小？

Question

var
  f:File of Byte;
  Size: integer;
begin
  AssignFile(f,FileName);
  Reset(f);
  Size:=FileSize(f);// 字节为单位；
  CloseFile(f);
end;  

Answer 1

我已运行通过了
在OPENFILE第一参中填入文件名包括路径。
var hFile:THandle;
var of1:_OFSTRUCT;
var dwSize:Cardinal;
begin
      hFile:=OpenFile(PChar('c:\1.txt'),of1,OF_READWRITE);
      if hFile<>HFILE_ERROR then
      begin
           dwSize:=GetFileSize(hFile,Nil);
      end;
end;