Срочно !! API HELP!

[ZipFeR]

Что такое АПИ ? Как им пользоваться ?
Просьба написать тут, так как инета мало я не успеваю.
Спасибо заранее надеюсь тут есть те кто не поленяться

[Ramzes]

Что такое 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.



--------------------------------------------------------------------------------


Примечание: Если А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

[A.A.Z.]

Про справочники тут

[Ship]

Просьба написать тут, так как инета мало я не успеваю.

Тут всего не опишешь...
Лучше купи книгу "Win32 API и Visual Basic. Для профессионалов". Автор Дан Эпплман.

[Ruslan Demidow]

Просьба написать тут, так как инета мало я не успеваю.

Тут всего не опишешь...
Лучше купи книгу "Win32 API и Visual Basic. Для профессионалов". Автор Дан Эпплман.

Солидарен в мнении.
Без неё, я бы так и боялся бы API, как чёрт ладана

[Ramzes]

Просьба написать тут, так как инета мало я не успеваю.

Тут всего не опишешь...
Лучше купи книгу "Win32 API и Visual Basic. Для профессионалов". Автор Дан Эпплман.

Надо и себе купить

[Igor_123]

После неё ещё хорошо пойдет Рихтер.
"Создание 64-битных приложений"(по-моему так называется )
Но там примеры на с++.

[Ramzes]

После неё ещё хорошо пойдет Рихтер.
"Создание 64-битных приложений"(по-моему так называется )
Но там примеры на с++.

А я и С++ тоже знаю

[HotKitten]

дарю