function SetChannels(hStream:byte;iChannels:integer):integer;
var
sSETAUDIOPARMS: MCI_DGV_SETAUDIO_PARMS;
begin
sSETAUDIOPARMS.dwValue := iChannels;
//其中iChannels为声道的序号,1,2,3....DVD支持好像是八种语言吧? (1或2可以实现原伴音切换)
sSETAUDIOPARMS.dwValue:=MCI_DGV_SETAUDIO_STREAM
result:=mciSendCommand(hStream,MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,
integer(@sSETAUDIOPARMS));
end;
MPEG4没有实践过,其它的可行。。