delphi 用GetFileSize获取文件大小的两种方式

procedure TForm4.btn10Click(Sender: TObject);
var
  f: THandle;
  FileSize: Int64Rec; // 1，结构体
  size1,size2,size3: Int64;
  Lo,hi: DWORD; //2，两个变量
begin
  f := CreateFile('E:\迅雷下载\cn_windows_10_x64_2004_09.iso',FILE_READ_EA,FILE_SHARE_READ,
  0,OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE,0);
  FileSize.Lo := GetFileSize(f,@FileSize.Hi) ;  //用int64rec  结构
  lo := GetFileSize(f,@hi) ; //用两个变量
  size1 := Int64(FileSize); //强制转换
  size2 := hi * (int64($ffffffff) + 1) + lo;   //第二种计算方法


end;