GetFileSize 函数(转)

该函数用于获取指定文件的大小（长度），获取的大小限制在 0xFFFFFFFF 以内。   若要获取长度超过 0xFFFFFFFF 的文件大小，请使用 GetFileSizeEx 函数。

定义

DWORD GetFileSize(HANDLE hFile, LPDWORD lpFileSizeHigh);

参数   hFile     待获取大小的文件句柄，该文件句柄必须具有 GENERIC_READ 或 GENERIC_WRITE 访问权限。   lpFileSizeHigh     指向一个 DWORD 变量的指针，该变量用于接收文件大小高端（第32-63位）部分的值。若不需获取这部分的值，该参数可以为 NULL 。 返回值   如果函数调用成功，返回值为文件大小的低端（第0-31位）的值，如果 lpFileSizeHigh 参数不为 NULL ，该参数对应的变量包含文件大小的高端（第32-63位）部分的值。   如果函数调用失败，并且 lpFileSizeHigh 参数为 NULL ，则返回值为 INVALID_FILE_SIZE 。要获取更多错误信息，请调用 GetLastError 函数。 如果函数调用失败，并且 lpFileSizeHigh 参数不为 NULL ，返回值为 INVALID_FILE_SIZE ，调用 GetLastError 函数返回的错误代码为 NO_ERROR 以外的值。 说明   不能使用该函数获取如管道文件或通信设备文件等不可定位文件的长度，可使用 GetFileType 函数检测 hFile 指定的文件类型。   该函数只获取未经压缩的文件的长度，可使用 GetCompressedFileSize 函数获取一个压缩文件的长度。 注意： 如果函数返回值为 INVALID_FILE_SIZE ，必须调用 GetLastError 函数判断函数调用是否成功。主要是因为文件的大小有可能刚好是 0xffffffff ，在这种情况下，若 GetLastError 返回 NO_ERROR ，则表明函数是调用成功的。 系统要求   Client：需要 Windows XP, Windows 2000 Professional, Windows NT Workstation, Windows Me, Windows 98 或 Windows 95   Server：需要 Windows Server 2003, Windows 2000 Server 或 Windows NT Server 头文件：在Winbase.h中定义，需包含Windows.h文件 库文件：Kernel32.lib 动态链接库：Kernel32.dll   转载地：广州

 

使用方法：

Function FileSizeEx(AFileHandle:Cardinal):Int64; var H,L:DWord; begin Result := 0; L := GetFileSize(AFileHandle, @H); Result := H; Result := (Result shl 32) or L; end;

 

var FSize: Int64;

begin

  PInteger(@FSize)^ := GetFileSize(FileHandle, Pointer(Integer(@FSize)+4));

end;