Sterowanie głośnością za pomocą TrackBara

Szukałem na forum, ale nic ciekawego nie znalazłem więc zadaję pytanie.
Jak za pomocą komponentu Trackbar sterować głośnościa?
Myślałem, że coś takiego TrackBar1.Position:=Volume
Ale nie wiem jak to zapisać poprawnie... i gdzie. Proszę o odpowiedź :D

---

http://4programmers....%87_dzwi%C4%99k

http://forum.ks-eksp. ..ndpost&p=291869
http://forum.ks-eksp...showtopic=20981

uses ComObj, MMSystem; procedure TForm1.TrackBar1Change(Sender: TObject); begin  CurrentVolumeLevel := Trackbar1.position * GetTrackBar shl 16;  CurrentVolumeLevel := CurrentVolumeLevel + (Trackbar1.position * GetTrackBar);  if WaveOutSetVolume(VolumeControlHandle, CurrentVolumeLevel) <> 0 then    ShowMessage('Nie można dostosować głośności.'); end;

Ja robie tak...

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl