判断文件大小的函数

function GetFileSize(const FileName: String): LongInt;

var SearchRec: TSearchRec;

begin

  if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then

   Result := SearchRec.Size

  else

   Result := -1;

end;