VPF::Log Windows - Форум программистов

alcogol

Дата 8.4.2008, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 11.3.2008

Репутация: нет
Всего: нет

Столкнулся с необходимостью очищать логи винды, всех её ветвей на удалённой машине. Инфы не могу найти, мб поможете советом\примером?

dumb

Дата 8.4.2008, 02:57 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 7
Всего: 158

OpenEventLog, ClearEventLog

MadCoder

Дата 18.4.2008, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

Вот написал функция чистки для локальных логов:

Код


// Чистка логов 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;

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »