{
关键字=获得文件大小
采集软件=MKM - 我的知识管理
采集日期=2023-11-23 15:04:49
数字签名=BD8EB0D9764E9F5FB61ECAD1BA26D086
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, StdCtrls;
ImgSize;
function GetFileSize(const strFileName: string): Int64;
var
Handle: THandle;
FindData: TWin32FindData;
nFileSize: Int64;
begin
{获得文件大小}
Result := -1;
Handle := FindFirstFile(PChar(strFileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
Int64Rec(nFileSize).Lo := FindData.nFileSizeLow;
Int64Rec(nFileSize).Hi := FindData.nFileSizeHigh;
Result := nFileSize;
end;
end;
end;