Программирование на Delphi и не только Есть ли в компьютере звуковая плата? | Программирование на Delphi и не только

Delphi FAQ >> Система

Иногда бывает необходимым выяснить, есть ли на компьютере, на котором запускается наша программа, установленная звуковая карта. В первую очередь это полезно программам, которую работают со звуком — например аудио\видео проигрыватели или компьютерные игры. Но также не будет лишним добавить такую проверку и в программу-инсталлятор, которая благодаря этому сможет заблаговременно предупредить пользователя, что у него нет звуковой платы и устанавливаемая программа работать не будет.
Сделать проверку можно при помощи функции модуля MMSystem, которая возвращает количество звуковых плат установленных в системе:

...
uses MMSystem;
...

if (WaveOutGetNumDevs > 0) then
  // есть звуковая плата
else
  // нет

Аська может быть мобильной — jimm 0 — будь на связи.