Ustawiłem TrackBara, podpiąłem pod niego następujący kod:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
case TrackBar1.Position of
0: WaveOutSetVolume( 0, $00000000);
1: WaveOutSetVolume( 0, $10001000);
2: WaveOutSetVolume( 0, $20002000);
3: WaveOutSetVolume( 0, $30003000);
4: WaveOutSetVolume( 0, $40004000);
5: WaveOutSetVolume( 0, $50005000);
6: WaveOutSetVolume( 0, $60006000);
7: WaveOutSetVolume( 0, $70007000);
8: WaveOutSetVolume( 0, $80008000);
9: WaveOutSetVolume( 0, $90009000);
10: WaveOutSetVolume( 0, $FFFFFFFF);
end;
Dodałem bibliotekę do uses i nadal nie mogę regulować dźwięku. Nie odsyłajcie mnie do google, bo już tam szukałem, zazwyczaj zresztą odsyła mnie z powrotem na to forum do tematu w którym podobny problem nie został rozwiązany.