FAQ - Как определить, имеется ли в системе звуковая плата

Эта функция может быть полезна при написании инсталляторов

USES --//--,MMSYSTEM;

--- // ---
FUNCTION CHECKAUDIOCARD : BOOLEAN;
BEGIN
 RESULT:=WAVEOUTGETNUMDEVS>0;
END;