Вызов 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