关于API的

Question

在msdn中查找与soundplay有关的函数就可以

Answer 1

implementation
uses mmsystem;{$R *.dfm}
function SoundCardExist:boolean;
begin
  result:=WaveOutGetNumDevs >0;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
   if SoundCardExist then
       showmessage('存在声卡');
end;

Answer 2

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