用TrackBar怎样控制mediaplayer播放的音量

Question

我用mediaplayer空件作了一个播放程序，可怎样在程序中控制音量的大小啊？
还有怎样把mpeg转换为mp3或直接播放

Answer 1

if (qleft=false) and (qright=false) then begin
t:=trackbar2.Position;
v:=(t shl 8) or (t shl 24);
waveoutsetvolume(0,v);
end elseif (qleft=false) and (qright=true) then begin
t:=form1.trackbar2.Position;
waveoutgetvolume(0,@v);
v:=v and $0000ffff or (t shl 24);
waveoutsetvolume(0,v);
t:=0;
waveoutgetvolume(0,@v);
v:=v and $ffff0000 or (t shl 8);
waveoutsetvolume(0,v);
end elseif (qleft=true) and (qright=false) then begin
t:=form1.trackbar2.Position;
waveoutgetvolume(0,@v);
v:=v and $ffff0000 or (t shl 8);
waveoutsetvolume(0,v);
t:=0;
waveoutgetvolume(0,@v);
v:=v and $0000ffff or (t shl 24);
waveoutsetvolume(0,v);
end;