///函数功能：获取文件大小，单位取KB，小数自动进位

 ///参数：sFilePath文件全路径

 ///Result: 成功是返回文件大小，失败时返回'N'

 function GetFileSize(sFilePath: string): string;

 begin

   try

     result := IntToStr(Ceil(FileSizeByName(sFilePath) / ));

   except

     on E: Exception do

     begin

       result := 'N';

       MessageDlg('Opps! Error Info[' + E.Message + ']', mtError, [mbOK], );

       Abort;

     end;

   end;

 end;

作者：Jeremy.Wu
  出处：https://www.cnblogs.com/jeremywucnblog/

  本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。