Функция ClearEventLog

Declare Function ClearEventLog Lib "advapi32.dll" Alias "ClearEventLogA" ( _
    ByVal hEventLog As Long, _
    ByVal lpBackupFileName As String) _
    As Long

ClearEventLog очищает заданный журнал событий, а также при желании сохраняет текущую копию журнала событий в файле резервирования данных.

Возвращаемое значение

В успешном случае возвращается ненулевое значение. Заданный журнал событий сохраняется в файле (если задействован параметр lpBackupFileName. В случае ошибки возвращается 0 (используйте GetLastError для получения кода ошибки).

Параметры

hEventLog

Описатель журнала событий. Данный дескриптор возвращается функциями OpenEventLog или OpenBackupEventLog

lpBackupFileName

Имя файла для сохранения текущего журнала событий. Если файл уже существует, то произойдет ошибка. Если параметр равен 0, то сохранение копии не происходит

Пример

' Очистим записи журнала событий
Dim hEventLog As Long
Dim lRet As Long
    
hEventLog = OpenEventLog(vbNullString, "Application")
If hEventLog = 0 Then
         Debug.Print "Ошибка при открытии OpenEventLog"
         Exit Sub
End If
    
lRet = ClearEventLog(hEventLog, vbNullString)
    If lRet = 0 Then
         Debug.Print "Ошибка при вызове ClearEventLog"
         Exit Sub
    End If
                
lRet = CloseEventLog(hEventLog)
    If lRet = 0 Then
         Debug.Print "Ошибка при вызове CloseEventLog"
         Exit Sub
End If

Смотри также

OpenEventLog

Категория

Журнал событий

Реклама