Текущий архив: 2003.02.24;
Скачать: CL | DM;
Вниз
Audio Card Найти похожие ветки
← →
Sergunja (2002-12-24 18:46) [0]Привет, народ! Помогите пожалуйста! проблема в том, что нужно узнать как можно больше о аудио карте программно!
И еще можно ли узнать не стоит ли Регулятор громкости Windows в положенн Mute и как его можно программно переключить!
Благодарен за любую помощь!
← →
Opuhshii © (2002-12-25 14:55) [1]посмотри там довольно понято MultimediaAPI WinSDK...
waveInGetDevCaps/XXXXXXGetDevCaps -"о аудио карте"...
mixerGetControlDetails - "Регулятор громкости Windows в положенн Mute"
mixerSetControlDetails - "его можно программно переключить!"...
← →
Sergunja (2002-12-25 15:20) [2]Спасибо! Щас гляну! а то с компонентами неохота
← →
Sergunja (2002-12-25 17:09) [3]Блин! не выходит у меня ничего...кто нибудь примером может на мысль натолкнуть?
← →
Opuhshii © (2002-12-26 08:51) [4]"о аудио карте"...
uses MMSystem;
const
S=" Dev#%d, Name=%s,"#13+
" DriverVersion=%u,"#13+
" Manufacturer identifier = %u,"#13+
" Product identifier = %u,"#13+
" Has %u Channels"#13+
" Formats supported: "#13+
"%s ";
procedure TForm1.Button1Click(Sender: TObject);
var
I:Dword;
DevCount:Dword;
WaveCaps:TWaveOutCaps;
Formats:string;
begin
DevCount:=waveOutGetNumDevs;
ZeroMemory(@WaveCaps,SizeOf(WaveCaps));
for I:=0 to DevCount-1 do begin
waveOutGetDevCaps(I,@WaveCaps,SizeOf(WaveCaps));
if ((WaveCaps.dwFormats shl (32-12)) shr 31) = $00000001 then
Formats:=Formats+" 44.100kHz Stereo 16 bit"#13;
if ((WaveCaps.dwFormats shl (32-11)) shr 31) = $00000001 then
Formats:=Formats+" 44.100kHz Stereo 8 bit"#13;
if ((WaveCaps.dwFormats shl (32-10)) shr 31) = $00000001 then
Formats:=Formats+" 44.100kHz Mono 16 bit"#13;
if ((WaveCaps.dwFormats shl (32-9)) shr 31) = $00000001 then
Formats:=Formats+" 44.100kHz Mono 8 bit"#13;
if ((WaveCaps.dwFormats shl (32-8)) shr 31) = $00000001 then
Formats:=Formats+" 22.050kHz Stereo 16 bit"#13;
if ((WaveCaps.dwFormats shl (32-7)) shr 31) = $00000001 then
Formats:=Formats+" 22.050kHz Stereo 8 bit"#13;
if ((WaveCaps.dwFormats shl (32-6)) shr 31) = $00000001 then
Formats:=Formats+" 22.050kHz Mono 16 bit"#13;
if ((WaveCaps.dwFormats shl (32-5)) shr 31) = $00000001 then
Formats:=Formats+" 22.050kHz Mono 8 bit"#13;
if ((WaveCaps.dwFormats shl (32-4)) shr 31) = $00000001 then
Formats:=Formats+" 11.025kHz Stereo 16 bit"#13;
if ((WaveCaps.dwFormats shl (32-3)) shr 31) = $00000001 then
Formats:=Formats+" 11.025kHz Stereo 8 bit"#13;
if ((WaveCaps.dwFormats shl (32-2)) shr 31) = $00000001 then
Formats:=Formats+" 11.025kHz Mono 16 bit"#13;
if ((WaveCaps.dwFormats shl (32-1)) shr 31) = $00000001 then
Formats:=Formats+" 11.025kHz Mono 8 bit"#13;
ShowMessageFmt(S,[I,
WaveCaps.szPname,
WaveCaps.vDriverVersion,
WaveCaps.wMid,
WaveCaps.wPid,
WaveCaps.wChannels,
Formats]);
end;
end;
← →
Sergunja (2002-12-26 15:55) [5]Opuhshii,
Спасибо тебе огромное!!! Выручил!
Страницы: 1 вся ветка
Текущий архив: 2003.02.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
