Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Громкость звука   Найти похожие ветки 

← →
SergVlad   (2002-01-03 23:23) [4]

Вот оно как

uses MMSystem;
..
var WOut : TWaveOutCaps;
LVol,RVol: word;
Vol: dword;
..

Vol := MakeLong(LVol, RVol);
if WaveOutGetDevCaps(WAVE_MAPPER, @WOut, sizeof(WOut)) =
MMSYSERR_NOERROR then begin
if WOut.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, Vol);
end;

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c