返回文件大小代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】返回文件大小

作者:jellyvice / 发布于2013/12/3/ 1019

function SizeOfFile(const FileName: string): Windows.DWORD;
var
 FH: THandle; // file handle
begin
 FH := SysUtils.FileOpen(
  FileName, SysUtils.fmOpenRead or SysUtils.fmShareDenyNone
 );
 try
  Result := Windows.GetFileSize(FH, nil);
 finally
  SysUtils.FileClose(FH);
 end;
end;

　　

试试其它关键字

　返回文件大小　

同语言下

可能有用的

jellyvice贡献的其它代码(28)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3