Hardware Delphi

Uses
MMSystem;
Function IsSoundCardInstalled:Boolean;
Begin
Result:=(waveOutGetNumDevs>0);
End;