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

← →
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]

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

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

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

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