清除系统日志的Delphi代码

清除Windows事件日志

最新推荐文章于 2021-01-26 21:41:35 发布

原创最新推荐文章于 2021-01-26 21:41:35 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #application #security #function #system #string

delphi 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一段用于清除Windows系统中各类事件日志的VB程序转换而来的Pascal代码实现。该程序通过调用OpenEventLog等API函数，能够清除包括Application、System、Security等在内的多种事件日志。

主要是从网上一段VB程序转化而来，其实代码很简单，只不过之前不知道有OpenEventLog这类的API函数。

//====================清除事件记录=======by liswa=================
function KillEventLog(EventName:String):boolean;
var
HEvent:Hwnd;
begin
HEvent:=OpenEventLog(nil,pchar(EventName));
if HEvent=0 then
    begin
       Result:=false;
       exit;
    end;
   if ClearEventLog(HEvent,nil) then
      begin
         Result:=false;
         exit;
      end;
   result:=CloseEventLog(HEvent);

end;
procedure DelEventLog;
var
   HEvent:hwnd;
begin
    KillEventLog('Application');
    KillEventLog('System');
    KillEventLog('Security');
    KillEventLog('SecEvent.Evt');
    KillEventLog('SysEvent.Evt');
    KillEventLog('DnsEvent.Evt');
end;