Multimidia - saber se tem no pc

Top  Previous  Next

Uses MMSystem;

 

function IsSoundCardInstalled:Boolean;

begin

  Result := (waveOutGetNumDevs > 0);

end