delphi 检查声卡是否安装

uses
MMSystem;

function SoundCardAvailable: Boolean;
begin
Result := WaveOutGetNumDevs > 0;
end;