Access. Программирование на VBA

       

Вызовы API Windows


Все выполняемые функции комплексного обработчика ошибок нельзя запрограммировать в Microsoft Access, не­обходим вызов нескольких API Windows.

Обработчик ошибок получает имя пользователя, у ко­торого произошла ошибка. Вместо того чтобы регистриро­вать пользователя в приложении для получения этой информации, обработчик ошибок получаст имя пользова­теля из API Windows. Вызов API Windows считывает заре­гистрированное имя пользователя в Windows 95/98/NT.

' Вызов API Windows для получения имени пользователя.

Private Declare Function GetUserNmae Lib "advapi32.dll" Alias _

"GetUserNameA" (ByVal IpBuffer As String, nSize As Long)

При возникновении ошибки можно воспроизвести звуковой сигнал для предупреждения пользовате­лей. Для этого также необходим вызов API Windows:

' Вызов API Windows для воспроизведения звука.

Private Declare Function sndPlaySound32 Lib "wirumn.dll" Alias _

"sndPlaySoundA" (ByVal IpszSoundName As String, ByVal uFlags As Long) As Long

Другие вызовы API Windows получают имя компьютера, информацию об объеме памяти компьютера, операционной системе и информацию о процессоре.



Содержание раздела