怎样在DELPHI中实现左右声道的转换?
在DELPHI中如何实现超级解霸的桌面播放功能?
怎样控制亮度\声音\望各位大虾多多帮忙呀!!!
在DELPHI中如何实现超级解霸的桌面播放功能?
怎样控制亮度\声音\望各位大虾多多帮忙呀!!!
解决方案 »
- 急求救,在英文操作系统下打开程序界面显示为“?”?
- 在RichEdit中,如何控制只能用键盘方向键来控制光标,而不是用鼠标随意选择输入点
- 为什么imageList不生效?
- 各位好.....我是初学者..请各位给我指点..我该怎样学好delphi
- 请问:什么叫“交叉报表”
- 关于正则表达式的问题
- =rand(200,99),把上面的这行字输入到空白的WORD的文档里然后回车,出现的现象据说连比尔盖茨也解释不清楚。
- 同志们早,先到先问个问题:关于操作数据表中的数据的问题
- 命苦的人问问各位工作状况,看看自己离真正的程序员还有多远(恳请版主不要删除此贴)
- 如何在delphi中实现SNMP?
- if dm.ClientDataSet_c.state in [dsedit,dsinsert] then这句错在哪?
- oracle问题
http://www.csdn.net/develop/Read_Article.asp?Id=16510左右声道控制
use mmsystem;waveOutSetVolume(0,soundvalue)//soundvalue的高位左声道,低位右声道
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;