Звуковая плата - звук. - Компьютерный форум OSzone.net

Пример на Дельфи:

Код:

unit Unit1;



interface



uses

 &nbsp;mmsystem,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

 &nbsp;StdCtrls;



type

 &nbsp;TForm1 = class(TForm)

 &nbsp; &nbsp;Memo1: TMemo;

 &nbsp; &nbsp;Button1: TButton;

 &nbsp; &nbsp;procedure Button1Click(Sender: TObject);

 &nbsp;private

 &nbsp; &nbsp;{ Private declarations }

 &nbsp;public

 &nbsp; &nbsp;{ Public declarations }

 &nbsp;end;



var

 &nbsp;Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

begin

if WaveOutGetNumDevs&gt;0 then memo1.Lines.Add(' Sound Hardware present')

else memo1.Lines.Add(' Sound Hardware not present');



end;



end.