Delphi dicas

Testando placa de som

Function TestaSom : Boolean;

begin

        Result := (WaveOutGetNumDevs > 0);

end;

por : Fernando Dos Santos Amador