WaveOutSetVolume - funkcja nie działa

0

Witam, pisze odtwarzacz do filmów, do ściszania chciałem użyć TrackBara i funkcji WaveOutSetVolume lecz po jej zastosowaniu i próbie kompilacji wyskakuje błąd:

[Error] Unit1.pas(98): Undeclared identifier: 'WaveOutSetVolume'

fragment kodu:

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; 
0

Dodaj do uses MMSystem i trochę samodzielności.

1 użytkowników online, w tym zalogowanych: 0, gości: 1