Delphi-Help

Главная Статьи Файлы Определение размера файла

Определение размера файла

Оцените материал
(0 голосов)


Определение размера файла

function GetFileSize(const FileName:string):longint;
{Определение размера файла}
var
 SearchRec:TSearchRec;
begin
 if FindFirst(ExpandFileName(FileName),faAnyFile,SearchRec)=0
 then Result:=SearchRec.Size
 else Result:=-1;
 FindClose(SearchRec);
end;
Прочитано 4911 раз

Авторизация



Счетчики