清空Windows系统日志的Delphi代码

  前些日子@ccb朋友说想要看一下自动清理系统日志-AutoClearLog的源码,其实代码很简单的,就是调用了两个系统API,OpenEventLog和ClearEventLog,当然了,Open之后是需要CloseEventLog 的。 下面是相关的代码: function KillEventLog(EventName:String):boolean...

自动清理系统日志-AutoClearLog

  因为某些需要,可能有时候会需要清楚电脑上的一些操作记录,最基本的那就是系统日志了,最简单的方法当然是禁用系统日志服务了,其次就是随时清空日志。 禁用系统服务 按Win+R键打开运行窗口,输入services.msc,打开服务管理; 找到Windows Event Log服务,双...