Поиск звуковых карт в системе

Uses

MMSystem;
{Определяем кол-во установленных звуковых плат} if WaveOutGetNumDevs > 0 Then {Этот блок предполагает, что найдена хотя бы одна звуковая плата} lblSCardCount.Caption := Format('Найдено звуковых плат - %d', [WaveOutGetNumDevs]) else
{Ни одной звуковой платы не обнаружено} lblSCardCount.Caption := 'Ни одной звуковой карты не обнаружено!';

Другое по теме:

• Как воспроизвести wav-файл из ресурса (в EXE)
• Работа с микрофоном
• Изменение громкости