Delphi dicas

Verificar se existe uma placa de som instalada no micro usando a api do windows

Function waveOutGetNumDevs: Integer; stdcall; external 'winmm.dll';

function TForm1.TestaPlaca : Boolean;

begin

        if WaveOutGetNumDevs > 0 then

        result := True

        else

        Result := False;

end;



{Usado desta forma também pode retornar o número de dispositivos}



ShowMessage(IntToStr(WaveOutGetNumDevs));

por : Murilo Garcia Bento