Функции API также могут вызываться из специально написанных функций. Последние называются оболочками, потому что их настоящая работа скрывается внутри вспомогательного кода. Например, если вы захотите отключать звук в своем приложении, создайте оболочку для функции API:

Public Sub PlayWav(filename As String, soundon As Boolean) Dim rc As long

If soundon = True Then

Rc = sndPlaySound(filename,

Мы узнали, как с помощью API Viewer получить объявление функции API для ваших программ. Давайте посмотрим, каким образом объявления интегрируются с приложениями. Продолжим с того момента, на котором закончился предыдущий пример:

1. Создайте новый проект в Visual Basic. Если откроется окно Project Wizard, вы-, берите в нем значок Standard EXE.

2. Дважды щелкните на форме Form1 в окне проекта — открывается окно программы.

3. Перейдите к секции (General)(Declarations) и выполните

В последней строке объявления задается тип значения, возвращаемого функцией. Поскольку работа большинства функций API не видна пользователю, с помощью кода возврата они сообщают программе, успешно ли была вызвана функция, а в случае неудачи — причины сбоя. Эта информация важна, поскольку при работе с API программа зависит от вызываемых

Вызов DLL может выглядеть довольно сложно (особенно если вы незнакомы с типами данных языка С). К счастью, DLL, составляющие Windows API, хорошо документированы, а код для объявления их функций включен в Visual Basic. Перед тем как пользоваться функцией DLL, ее необходимо объявить.

Чтобы сообщить Visual Basic о своем желании обратиться к DLL, вы объявляете процедуру и указываете типы ее параметров. После этого ваша программа может вызвать нужную функцию DLL. На основании