如何使用TrackBar控件控制多媒体的声音？(20分)

我是一个Delphi的初学者，正在试做一个多媒体小程序，想利用TracdBar控件的OnChange事件来控制多媒体的声音，希望能得到您的一些指点。谢谢！

BOOL SetWaveOutVolume(unsigned long dwVolume)
{
UINT uRetVal, uNumDevs;
WAVEOUTCAPS waveCaps;
uNumDevs = waveOutGetNumDevs();
if (uNumDevs<=0)
return FALSE;
if (!waveOutGetDevCaps(0,(LPWAVEOUTCAPS)&amp;waveCaps,sizeof(WAVEOUTCAPS)))
{
// Verify the device supports volume changes
if(waveCaps.dwSupport &amp;
WAVECAPS_VOLUME)
{
// The low word is the left volume, the high word is the right.
uRetVal = waveOutSetVolume(0, dwVolume);
if(uRetVal == MMSYSERR_NOERROR)
{ return TRUE;
}
}
}
return FALSE;
}
在onChange 中：
begin

SetWaveOutVolume(aTraceBar.Position);
end;

接受答案了.