Изменение функции API

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

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

If soundon = True Then

rc = sndPlaySound(filename, 1) End If End Sub

Эту полезную процедуру можно добавить в вашу библиотеку. При желании попробуйте инкапсулировать ее в специальном классе для работы с WAV-файлами. Глав-

ное, о чем следует помнить, — пользователь должен иметь возможность отключить звук. Хотя многие предпочитают работать со звуком, со временем это может надоесть. Значение, определяющее выбор пользователя, передается процедуре PlayWav. Кроме того, звук отключается и в том случае, если на вашем компьютере не установлены средства мультимедиа (хотя это маловероятно).