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);