quinta-feira, 24 de setembro de 2009

Retorna o tamanho de um arquivo

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;

Nenhum comentário:

Postar um comentário