Звуковая плата - звук.

[Prisoner]

Сабж.

[Megabyte]

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

unit Unit1;

interface

uses
 mmsystem,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
if WaveOutGetNumDevs>0 then memo1.Lines.Add(' Sound Hardware present')
else memo1.Lines.Add(' Sound Hardware not present');

end;

end.

[Prisoner]

Ништяк! Спасибо большое :).