Как узнать размер большого файла

← →
AzzHell © (2009-01-10 21:19) [0]

Вопрос такой - как узнать размер файла, который более 4 гиг.

function GetFileSize( n : string) : longint;
var f : TSearchRec;
begin
if FindFirst(ExpandFileName(n),faAnyFile,f)=0
then Result:=f.Size else Result:=-1;
FindClose(f);
end;

это дает результат ток до 3.5 гига (~4) , а как можно свыше?

Заранее благодарен.

← →
DVM © (2009-01-10 21:43) [1]

function FileSize(const FileName: String): Int64;
var
FD : TWin32FindData;
FH : THandle;
begin
Result := 0;
FH := FindFirstFile(PChar(FileName), FD);
if FH = INVALID_HANDLE_VALUE then exit;
Result := FD.nFileSizeHigh * 4294967296 + FD.nFileSizeLow;
Windows.FindClose(FH);
end;

← →
Anatoly Podgoretsky © (2009-01-11 01:28) [2]

> AzzHell (10.01.2009 21:19:00) [0]

GetFileSize из АПИ

Как узнать размер большого файла Найти похожие ветки