Как проверить наличиие звуковой карты

[X-BOND]

[RayShade]

Да блин! Читайте RTFM, MSDN то есть! Есть реальная штука - WMI. С ее помощью можно все проверить и настроить.

ЗЫ - имя класса, который отвечает за звуковухи Win32_SoundDevice

Как получать классы - смотри в форуме я пример оставил в теме про выключение ХР.

[GoGosha]

ABC = Environ ("BLASTER") 'координаты звуковой карты

[Sebas]

Никак RayShade WmiTools качнул......)))))

[RayShade]

Нет, просто понадобилось написать скриптяру для сетки чтобы перегружать сервак предварительно всем подключенным пользователям отправляя месадж с предупреждением Вот и пришлось копаться

[ShadowCaster]

Мдя...

В форме:

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

Function CheckAudio() as Boolean
dim l as long

l = waveOutGetNumDevs()

if l=0 then CheckAudio = False else CheckAudio = True
End Function

Внимание! установленный Voice модем считается за звуковое устройство.

[X-BOND]

to ShadowCaster
Спасибо за единственный нормальный ответ.

to GoGosha
Пробовал, не работает.



Но как можно определить что это именно звуковуха, а не что-то другое?
Может есть какая нибудь функция типа GetWaveOutName (index as long...

[GoGosha]

to GoGosha
Пробовал, не работает.

А я не пробовал, потому, что лень взуковуху витыкать(Выключаться потом опять БР-Р-Р.....) но думал, что сработает

[ShadowCaster]

Принцип прост: если устройство одноканальное (моно), то скорей всего это момед, ну а если стерео или лучше, то точно звуковуха.
Примерно так...

В форме (для модуля сделай Private -> Public)

Private Type WAVEOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * 32
dwFormats As Long
wChannels As Integer
dwSupport As Long
End Type

Private Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long

Function IsAudioCard(ByVal devNum as long) As Boolean
dim woc as WAVEOUTCAPS
dim woc_len as long

woc_len = len(woc)

waveOutGetDevCaps devNum, woc, woc_len

if (woc.wChannels=1) Then ' Моно аудио устройство -> модем
IsAudioCard = False
Else ' Стерео или лучше аудио устройство -> Звуковая карта
IsAudioCard = True
End If
End Function

[X-BOND]

А что передавать в переменной devNum?

ставил и 0, и 1 - ни фига, пишет каналов 0
Это скорей всего ID самого звукового устройства. А как его получить?

[ShadowCaster]

Так работает, но насчёт каналов не знаю (у моего SB Live! выдаёт -1, т.е. &HFFFF), т.к. у момеда не установлен отдельно драйвер Спикера, так что пробуй...

...
' переменной "woc_len" вообще не надо

waveOutGetDevCaps devNum, woc, CLng(woc_len)
...

[ASD]

А сие извращение под XP работатет?
А то тама какието трабыл с winmm.dll есть.

Например куча примеров (в том числе на сайте MS) как по частотам замерять через эту библу, но под W2k и выше это не пашет.

PS. Это я не проверял....

[ShadowCaster]

Этот код пашет под моей Win2k так, как я и говорил...

[X-BOND]

Еще раз повторюсь

как получить uDeviceID?

[ShadowCaster]

uDeviceID = порядковому номеру девайса в системе (1-й = "0", 2-й = "1", ...)

[X-BOND]

Усё теперь ясно.
Тока он у меня тоже -1 показывает. К чему бы это

По логике я написал в коде, что если каналов 0 или 1 значит это не звуковуха, иначе - звуковуха.