Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:

Error. Page cannot be displayed. Please contact your service provider for more details. (18)


Что такое API?

Поиск:
API - это сокращение от Application Programming Interface. В общем каждая программа, операционная система и т.д. имеет свой API. Windows - API состоит из целого ряда функций, которые позволяют Вам использовать системные Windows-конструкции. Все Windows-API-функции были написаны в C++, но ваши программы смогут спокойно их использовать из Visual Basic'a. API-функции должны быть обязательно продекларированы! Декларация 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 API могут вызываться из Visual Basic для выполнения задач, для которых недостаточно стандартного программного кода Visual Basic. Например, стандартые средства Visual Basic не позволяют перезагрузить компьютер. Однако перезагрузку можно выполнить через обращение к соответствующей функции Window API.

Примечание: Если АPI-функция ждёт от вас переменной, Вы должны обязательно объявить её и заполнить пробелами. Т.е. переменная должна быть определённой пользователем. Это черты языка С++, на котором и был написан Windows-API.

Рассмотрим пару примеров:

Допустим, ваше приложение должно определять каталог, в котором установлена операционная система 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. В подпрограмму Main вписываем:
Код
'Переменную, которую надо передать 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-функции GetDriveType.

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

2. В подпрограмму Main вписываем:
Код
'здесь цикл 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

Подпрограмма Main в модуле является как Form_Load на форме, т.е. считается главной и загружается по умолчанию. Назад

О предназначениях многих API функций можно легко догадаться по их названию. Например, GetWindowsDirectory (получить директорию Windows) или GetDriveType (получить тип носителя).

Ответ взят на: www.mtsecurity.narod.ru
Автор: unknown
Сайт: http://






Просмотров: 23091

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную