Что такое API?

[Public | Private] Declare Function name Lib "libname" [Alias "aliasname"] [([arglist])] [As type]

Ключевое слово Lib указывает, в какой библиотеке Visual Basic может найти нужную функцию. Имеются в виду библиотеки динамических связей (*.dll). Но в aliasname указывать расширение не надо. Alias указывает под каким именем программа должна искать заданую функцию в библиотеке. Arglist - это передаваемые параметры.Windows-API позволяет две вещи: проведение определённых заданий и доступ к системным ресурсам. Список различных API-функций и их деклараций Вы можете просмотреть при помощи стандартной программы API-Viewer.

Допустим, ваше приложение должно определять каталог, в котором установлена операционная система Windows 95/98/NT. Сделать это проще всего, использовав API-функцию GetWindowsDirectory.

1. В модуле декларируем API-функцию GetWindowsDirectory:

Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal _
nSize As Long) As Long

2. В модуле объявляем переменную, допустим, WinDir, которой должно быть присвоено имя директории.

Public WinDir As String

3. В подпрограмму вписываем:

'Переменную, которую надо передать API, мы уже
'объявили и теперь заполняем пробелами.
' Пробелов должно быть примерно столько,
'сколько примерно символов должна иметь переменная.
'В этом случае хватит и 20, т.к. Windows обычно устанавливают в
' С:\Windows или C:\Win95, и т.д. Т.е. сумма символов, скорее
' всего не превысит 20
WinDir = Space(20)
Debug.Print Left(WinDir, GetWindowsDirectory(WinDir, 20))
'Т.к. API является функцией, то она должна возвращать какое-то
'значение. В данном случае функция GetWindowsDirectory возврашает
'длину искомого значения. Т.е. если, например, искомое значение
' это C:\WINDOWS, то функция вернёт значение 10.
'Переменная же имеете длину 20. Эти 10 символов записываются
'первыми, а дальше идут 10 пробелов. Зачем нам, спрашивается,
'лишние 10 символов? Ведь это используется ненужная память...
'Поэтому инструкцией Left мы из переменной WinDir вытаскиваем
'ровно столько первых символов, сколько вообще нужных...

Второй пример:
Например, ваша программа должна определить какой из ваших носителей есть CD-ROM или удалённый и т.д. "Родной" инструментарий Visual Basic'a сделать этого не позволяет - приходится прибегать к помощи API-функции .

1. В модуле декларируем API-функцию GetDriveType:

Declare Function GetDriveType Lib "kernel32" Alias _
"GetDriveTypeA" (ByVal nDrive As String) As Long
'Под параметром nDrive подрзумевается, буква латинского
'алфавита плюс двоетечие, т.е. потенциальное имя дисковода, например C:

2. В подпрограмму  вписываем:

'здесь цикл For...Next "подсовывает" функции GetDriveType все буквы
'латинского алфавита по очереди. Функция Chr преобразовывает значения
'таблицы ASCII (от 0 до 255) в буквы. Так вот 65 это буква A, a 90 это Z
Dim myDrive As Integer
For myDrive = 65 To 90
Debug.Print Chr(myDrive) & ":" & " - " & GetDriveType(Chr(myDrive) & ":")
Next

 Вот что возвратит функция GetDriveType нам, например у меня:
A: - 2
C: - 3
D: - 3
E: - 5
Все остальные буквы помечены цифрой 1. Да, что бы понять эти обозначения нужно знать следующую таблицу:

Имя константы:               Значение:

DRIVE_UNKNOWN	0
DRIVE_NO_ROOT_DIR	1
DRIVE_REMOVEABLE	2
DRIVE_FIXED	3
DRIVE_REMOTE	4
DRIVE_CDROM	5
DRIVE_RAMDISK	6