3. Получение информации об ошибках при вызове API-функций

Описание

Большинство неудачных вызовов функций Win32 API возвращают расширенную информацию об ошибке. Для получения этой информации Вы можете использовать следующие Win32 API функции: GetLastError и FormatMessage.

Объявления

Public Declare Function GetLastError Lib "kernel32" () As Long
Public Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long

Public Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Пример использования

Public Function LastSystemError() As String

Dim sError As String * 500
Dim lErrNum As Long
Dim lErrMsg As Long
'
lErrNum = GetLastError
lErrMsg = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, lErrNum, 0, sError, Len(sError), 0)
LastSystemError = Trim(sError)
'
End Function

 

                                                                   ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ