![]() |
Определение размера файлаСоздано Втр-29-Апр-2008 in 16:51function 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;
|
![]() |