用MCI命令就可以解决
//语言一
procedure languagefirst(deviceid:MCIDEVICEID);
var
s: MCI_DGV_SETAUDIO_PARMS
begin
s.dwValue:=1;
s.dwItem:=MCI_DGV_SETAUDIO_STREAM;
mciSendCommand(deviceid,MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,
integer(@s));
end;
//语言二
procedure languagesecd(deviceid:MCIDEVICEID);
var
s: MCI_DGV_SETAUDIO_PARMS
begin
s.dwValue:=2;
s.dwItem:=MCI_DGV_SETAUDIO_STREAM;
mciSendCommand(deviceid,MCI_SETAUDIO,
MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM,
integer(@s));
end;