Verifica a existência de uma placa de som
Como verificar a existência de uma placa de som via programação Delphi
Procedure TestaPlaca(Value:integer);
begin
som := ”;
if WaveOutGetNumDevs > 0 then
begin
result := True
end
else
begin
Result := False;
end;
end;