本文整理自网络,侵删。
function GetFileSize(const fName: AnsiString): Int64;
var
hFile: THandle;
begin
hFile := _lopen(PAnsiChar(fName), OF_READ);
Result := FileSeek(hFile, Int64(0), 2);
_lclose(hFile);
end;
来源:https://www.cnblogs.com/findumars/p/7841231.html
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>