Скачать: CL | DM;

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

← →
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 из АПИ

---

← →
AzzHell ©   (2009-01-11 11:30) [3]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c