| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

AzzHell ©   (2009-01-10 21:19:00) 

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

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

---

AzzHell   (2009-01-11 11:30:00) [1]

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

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

---

Anatoly Podgoretsky   (2009-01-11 01:28:00) [2]

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

GetFileSize из АПИ

---

DVM   (2009-01-10 21:43:00) [3]

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;

---

Наверх