Function fileSize(const FileName: String): LongInt;
var
SearchRec : TSearchRec;
begin { !Win32! -> GetFileSize }
if FindFirst(FileName,faAnyFile,SearchRec)=0
then Result:=SearchRec.Size
else Result:=0;
FindClose(SearchRec);
end;
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário