Вызов API-функций

We use cookies. Read the Privacy and Cookie Policy

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