Регулировка громкости
Как сделать регулятор громкости?
procedure TForm1.TrackBar1Change(Sender: TObject); var volume:DWORD; begin volume := 65000*Round((TrackBar1.Position-TrackBar1.Min)/(TrackBar1.Max-TrackBar1.Min)); volume := volume + (volume shl 16); waveOutSetVolume(WAVE_MAPPER,volume); end;