我说的重点是在两个声道分别同时播放,有没有难度?
解决方案 »
- 有对Stereoscopic Player这个3D播放软件比较熟悉的吗?
- 用DELPHI做类似资源管理器的树,且树节点处带选择框。如何做?
- 各位,谁能给我一套Delphi的面试题呀,主要是数据库,和Socket方面的
- DELPHI,JSP,PB你会选择哪一个?...... 人人有分!
- 动态创建控件问题
- 关于程序善后处理的一点……有经验的请谈谈!
- ListView中,一个项的长度超过列的宽度,就会显示“…”,如何除去?
- 向高手请教,急急急???
- 关于将Memo控件中内容存入数据库的问题?
- 请问Delphi的Paradox数据库 是否可以用Query控件查询 ,如果可以,query又怎么和数据库连接那?
- 帮忙呀!动态创建ADOConnection的问题!(在线等)
- 谁利用api函数让panel空透明的矩形框?
procedure TForm1.N_StereoClick(Sender: TObject);
begin
N_Stereo.Checked := True;
N_Left.Checked := False;
N_Right.Checked := False;
mciSendString('set all audio all on', nil, 0, Handle);
{立体声}
end;{左声道}
procedure TForm1.N_LeftClick(Sender: TObject);
begin
N_Stereo.Checked := False;
N_Left.Checked := True;
N_Right.Checked := False;
mciSendString('set all audio all off', nil, 0, Handle);
mciSendString('set all audio left on', nil, 0, Handle);
{左声道}
end;{右声道}
procedure TForm1.N_RightClick(Sender: TObject);
begin
N_Stereo.Checked := False;
N_Left.Checked := False;
N_Right.Checked := True;
mciSendString('set all audio all off', nil, 0, Handle);
mciSendString('set all audio rigth on', nil, 0, Handle);
{右声道}
end;