控制MIDI音量(50分)

用waveoutsetvolume(0,vol)来设置WAV音量没问题，
但用同样的方法midioutsetvolume(),和midioutgetvolume()却
不行，该怎么用？

procedure TMainForm.N1Click(Sender: TObject);
var
s: MCI_DGV_SETAUDIO_PARMS
begin

if Nothing then

begin

//mediaplayer1 为控件NAME
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO,MCI_SET_OFF,integer(@s));
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_STEREO;
//立体声用这句
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_RIGHT;
//右声道源
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_LEFT;
//左声道源
s.dwItem:=MCI_DGV_SETAUDIO_SOURCE;
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM ,integer(@s));
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO, MCI_SET_ON,integer(@s));
end;

end;

可我想知道midioutsetvolume(),和midioutgetvolume()的用法。

enong:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。

接受答案了.