Check if a soundcard is installed

Author: Simon Grossenbacher

uses

MMSystem;

function SoundCardAvailable: Boolean;

begin

Result := WaveOutGetNumDevs > 0;

end;