取消DVD原唱 (30分)

谁会在delphi中去除DVD原唱和控制在DVD左右声道!请各位多指教，我的分不多，请各位见谅!
谁知道那有这方面的资料请您告知!!
谢谢各位了!![!]

获得winlogon.exe 进程的调试权限,
打开其进程空间,然后进行搜索
......

lich你好你能告诉我详细点吗?或者你知道那个网站有这方面的资料!

const
MCI_SETAUDIO= $873;
MCI_DGV_SETAUDIO_SOURCE_LEFT=1;
MCI_DGV_SETAUDIO_SOURCE_STEREO=0;
MCI_DGV_SETAUDIO_SOURCE_RIGHT=2;
MCI_DGV_SETAUDIO_SOURCE=$4004;
MCI_DGV_SETAUDIO_VALUE=$01000000;
//类型定义
type MCI_DGV_SETAUDIO_PARMS=record
dwCallbackWORD;
dwItemWORD;
dwValueWORD;
dwOverWORD;
lpstrAlgorithmChar;
lpstrQualityChar;
end;

TChannels=(Ch_Left,Ch_Right,Ch_Stereo,Ch_Mono);
procedure SwitchChinnel(MPlayer:TMediaplayer;ChSet:TChannels);
var
s: MCI_DGV_SETAUDIO_PARMS ;
begin

mciSendCommand(MPlayer.DeviceID,MCI_SETAUDIO,MCI_SET_OFF,integer(@s));
case ChSet of
ch_stereo:
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_STEREO;
//立体声用这句
ch_left:
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_LEFT;
//右声道源
ch_right:
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_RIGHT;
//右声道源
end;


mciSendCommand(MPlayer.DeviceID,MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE ,integer(@s));
mciSendCommand(MPlayer.DeviceID,MCI_SETAUDIO, MCI_SET_ON,integer(@s));
end;


procedure TForm1.B1Click(Sender: TObject);
begin

SwitchChinnel(MPlayer,ch_left);
end;


procedure TForm1.B2Click(Sender: TObject);
begin

SwitchChinnel(MPlayer,ch_right);
end;


procedure TForm1.B3Click(Sender: TObject);
begin

SwitchChinnel(MPlayer,ch_stereo);
end;

这些代码对于VCD的声道转换有效吗？？