Как определить наличие/отсутствие звуковой платы?
uses
..., MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
if WaveOutGetNumDevs > 0 then
Form1.Caption := 'Звуковая плата найдена' else
Form1.Caption := 'Звуковая плата не найдена'; end; |