Decision on Turbo Pascal and Delphi - Определение размера файла

Decision on Turbo Pascal and Delphi

Home - Structure - Archive - Friend

Пишу лабораторные, курсовые по Pascal-ю и Delphi (цены не дорогие)

связаться со мной можно по sergej.rebko@gmail.com

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

Создано Втр-29-Апр-2008 in 16:51

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;

< Последняя страница :: Следующая страница > ©Arch1S, 2007-2008, авторские права защищены