检测pc是否装有声卡

uses mmsystem;//WaveOutGetNumDevs定义的单元....

function TForm27.SoundInstall:Boolean;
begin
  Result:=WaveOutGetNumDevs()>0;

end;

procedure TForm27.Button1Click(Sender: TObject);
begin
  //
  if(SoundInstall=true) then
  ShowMessage('been installed..')
  else
  ShowMessage('not installed...');

end;