定期删除程序运行日志文件

程序下生成的日志文件,随着程序的使用慢慢的变多,出于对软件的维护,我们要定期删除过早的日志文件。

索性就整个代码吧。


 function DelAppLog():boolean;//是否删除程序运行日志文件

var
 

  t:tdatetime;//用来临时存放日志文件的创建时间

  begin

    try

      if fileexists(logfile) then

        begin//日志文件存在

          t:=GetFileDateTime(logfile,fttCreation);//得到日志文件的创建时间

          if abs(MonthsBetween(t,now))>=31 then

            begin//日志文件超过最长时间删除

              result:=CDelfiles(logfile);//删除日志文件

            end

            else

            begin

              result:=true;

            end;

        end

        else

        begin

          result:=true;

        end;

    except

      result:=false;

    end;

  end;
/////////////////////////////////////////////////////
 LogFile:string;
 logfile:=getfiledirs(application.ExeName);  

分享到:

0 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称

沙发空缺中,还不快抢~