Есть ли в компьютере звуковая плата?

Delphi FAQ >> Система

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

...
uses MMSystem;
...

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


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