регулятор звука

[blackstersl]

Ещё вопрос как сделать регулятор звука через trackbar какой код надо написать

[Ring0Sn]

MMSystem;
...
var Caps : TWAVEOUTCAPS;
begin
if WaveOutGetDevCaps(WAVE_MAPPER, @Caps, sizeof(Caps)) = MMSYSERR_NOERROR then
  if Caps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
    WaveOutSetVolume(Integer(WAVE_MAPPER), {сдесь параметр типа DWord - уровень громкости, Min = 0x0000, Max = 0xFFFF, меняй это значение при перемешение тракбара});
end;

зы WaveOutSetVolume в случае удачи вернет MMSYSERR_NOERROR