uses mmsystem,
。
。procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i := auxGetNumDevs();
if i<=0 then ShowMessage('系统没有发现声卡');
end;
。
。procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
i := auxGetNumDevs();
if i<=0 then ShowMessage('系统没有发现声卡');
end;
var I:Integer;
begin
I := auxGetNumDevs();
if I<=0 then
label1.Caption :='系统没有发现声卡';
end;