Вот написал функция чистки для локальных логов:
| Код |
// Чистка логов Windows
procedure ClearWindowLogs(System, Application, Security: Boolean);
var hnd: THandle;
begin
// System
if System=True then
begin
hnd := OpenEventLog(nil, 'System');
if hnd <> 0 then
try
ClearEventLog(hnd, nil);
finally
CloseEventLog(hnd);
end;
end;
// Application
if Application=True then
begin
hnd := OpenEventLog(nil, 'Application');
if hnd <> 0 then
try
ClearEventLog(hnd, nil);
finally
CloseEventLog(hnd);
end;
end;
// Security
if Security=True then
begin
hnd := OpenEventLog(nil, 'Security');
if hnd <> 0 then
try
ClearEventLog(hnd, nil);
finally
CloseEventLog(hnd);
end;
end;
end;
|
|