Текущий архив: 2006.06.18;
Скачать: CL | DM;

Вниз

А я так и не сделал настройку звука...   Найти похожие ветки 

← →
Revan   (2006-05-30 15:32) [0]

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

---

← →
Сергей М. ©   (2006-05-30 16:30) [1]

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


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

---

← →
Revan   (2006-05-30 17:37) [2]

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

---

← →
antonn ©   (2006-05-30 17:46) [3]


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-31 10:41) [4]

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

---

← →
antonn ©   (2006-05-31 12:46) [5]

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

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

---

← →
Revan   (2006-05-31 14:03) [6]

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

---

← →
Сергей М. ©   (2006-05-31 14:07) [7]

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


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

---

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

Текущий архив: 2006.06.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.17 c