Как определить размер очень большого (> 4ГБ) файла? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [52.14.126.74]

Модераторы: jack128, Rouse_, Krid

Ссылки по теме:

Как определить размер очень большого (> 4ГБ) файла?

Петрович

Сообщ. #1 , 16.08.05, 03:50

Profi

Рейтинг (т): 65

function FileSize (FileName :String) :Int64;

var

Handle: tHandle;

FindData: tWin32FindData;

begin

Handle := FindFirstFile(PChar(FileName), FindData);

if Handle = INVALID_HANDLE_VALUE then

SysUtils.RaiseLastOSError;

Windows.FindClose(Handle);

if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0 then

Result := 0 // Размер каталога всегда считаем равным 0

else begin

SysUtils.Int64Rec(Result).Hi := FindData.nFileSizeHigh;

SysUtils.Int64Rec(Result).Lo := FindData.nFileSizeLow;

end;

Автор: Петрович

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0150 ] [ 16 queries used ] [ Generated: 2.05.24, 04:43 GMT ]