mciExecute или как узнать...

[Scuder]

Существует ли команда для mciExecute типа "Не выводить сообщения об ошибках"? Обычный On Error их не перехватывает.

Или как узнать, установлена ли на компьютере звуковая карта?

[Scuder]

Ку!

Не верю, что никто не знает..

[Aleksej]

Код: Выделить всё

Private Declare Function waveOutGetNumDevs Lib _
                         "winmm.dll" () As Long

Private Function SoundCardDetect() As Boolean

Dim DeviceID As Long

        DeviceID = waveOutGetNumDevs
       
           If DeviceID > 0 Then
                SoundCardDetect = True
                    Else
                        SoundCardDetect = False
           End If
End Function


[Scuder]

О! Thanks огромный!