Вопрос такой - как узнать размер файла, который более 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) , а как можно свыше?

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

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;

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

GetFileSize из АПИ

> DVM ©   (10.01.09 21:43) [1]
> Anatoly Podgoretsky ©   (11.01.09 01:28) [2]

Большое вам спасибо(!), ваши советы помогли.