Определение размера файла
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; |
