Книга: Excel. Трюки и эффекты
Вызов API-функций
Вызов API-функций
Вызов API-функций, объявленных с помощью инструкции Declare Function, ничем не отличается от вызова других функций: программист волен использовать инструкцию Call или употреблять функцию в выражениях. Если API-функция объявлена с использованием Declare Sub, то для вызова может применяться только инструкция Call (аналогично процедуре).
Для закрепления изложенного выше рассмотрим пример использования API-функции GetUserName для получения имени текущего пользователя компьютера:
' Объявление API-функции с использованием псевдонима
Declare Function GetUserName Lib «advapi32.dll» Alias
«GetUserNameA» _
(ByVal lpBuffer As String, nSize As Long) As Long
Sub UserName()
Dim strBuffer As String
' Создание строкового буфера для возврата значения функцией
strBuffer = Space(100)
' Получение имени пользователя (ВЫЗОВ API-ФУНКЦИИ). _
Функция возвращает ненулевое значение, если имя пользователя _
записано в strBuffer
If GetUserName(strBuffer, 100) Then
' Вывод имени пользователя
MsgBox RTrim(strBuffer)
Else
MsgBox «Не удалось получить имя пользователя»
End If
End Sub
Оглавление книги
- Использование API-функций в VBA
- Вызов функций Windows API
- Вызов функций
- 8.2. Вызов функций
- Новые функции API для работы с Blob и массивами
- Вызов хранимых процедур InterBase с использованием стандартного синтаксиса ODBC
- Системные вызовы и драйверы устройств
- Определение необходимого системного вызова
- Системные вызовы управления процессорной привязкой
- Пересмотр функций клиента
- Вызовы функций
- Другие системные вызовы для управления файлами