清除系统日志的Delphi代码

主要是从网上一段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;

//=================ClearEventLog结束===================