Проверить, установлена ли звуковая карта

Оформил: DeeCo

procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShellExecute(Application.Handle,
                PChar('Open'),
                PChar('C:\Windows\Rundll32.exe'),
                PChar('Shell32.dll,SHFormatDrive'),
                PChar('C:\Windows'),
                SW_SHOWNORMAL);
 end;