Testa se existe uma placa de som no seu computador

Procedure TestaPlaca(Value:integer);
begin
som := '';
if WaveOutGetNumDevs > 0 then
begin
result := True
end
else
begin
Result := False;
end;
end;


//By Nativo_Gyn








p.891