Текущий архив: 2010.03.28;
Скачать: 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 вся ветка
Текущий архив: 2010.03.28;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
