| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

А я так и не сделал настройку звука... [D6, XP]

Revan ©   (2006-05-30 15:32:00) 

Помогите кто может... Мне нужно самое примитивное, 1 TrackBar, и все.

---

Сергей М.   (2006-05-31 14:07:00) [1]

> Мне нужно что бы он регулировал громкость


TrackBar  не "умеет" регулировать громкость.
Вопросы имеются ?

---

Revan   (2006-05-31 14:03:00) [2]

Большое спасибо!

---

antonn   (2006-05-31 12:46:00) [3]

потому что даблворд...
SetWaveVolume(MakeLong(TrackBar.position,TrackBar.position));

так, кстати, можно и поканально регулировать

---

Revan   (2006-05-31 10:41:00) [4]

antonn Она почемуто регулирует только один канал, а второй полностью отключает. Не знаешь как регулировать громкость обеих колонок?

---

antonn   (2006-05-30 17:46:00) [5]


uses MMSystem;

function GetWaveVolume: DWord;
var
Woc : TWAVEOUTCAPS;
Volume : DWord;
begin
result:=0;
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
  WaveOutGetVolume(WAVE_MAPPER,@Volume);
  Result := Volume;
end;
end;

procedure SetWaveVolume(const AVolume: DWord);
var
Woc : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
MMSYSERR_NOERROR then
if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
WaveOutSetVolume(WAVE_MAPPER, AVolume);
end;

---

Revan   (2006-05-30 17:37:00) [6]

Сергей М. Мне нужно что бы он регулировал громкость.

---

Сергей М.   (2006-05-30 16:30:00) [7]

> Мне нужно самое примитивное, 1 TrackBar, и все


Ну раз нужно, то и возьми "самое примитивное, 1 TrackBar", и все.
В чем проблема-то ?

---

Наверх