用MCI命令控制音量?????有谁会呀?????来吧,来吧(50分)

  • 主题发起人 主题发起人 houling
  • 开始时间 开始时间
H

houling

Unregistered / Unconfirmed
GUEST, unregistred user!
用MCI命令控制音量
我的
const
MCI_SETAUDIO= $873;
MCI_DGV_SETAUDIO_VALUE=$01000000;
MCI_DGV_SETAUDIO_ITEM=$00800000;
MCI_DGV_SETAUDIO_VOLUME=$4002;
MAX_VOLUME=65535;
MIN_VOLUME=0;

volume_value:=MAX_VOLUME;
s.dwValue:=volume_value;
s.dwItem:=MCI_DGV_SETAUDIO_VOLUME;
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO,
MCI_DGV_SETAUDIO_RIGHT or MCI_DGV_SETAUDIO_LEFT,integer(@s));


不起作用??????为什么?

 
MCI_SETAUDIO 只能用于Digital-video and VCR devices.
可用
auxGetVolume
auxSetVolume //CD音量
waveOutGetVolume
waveInGetVolume //控制Wave的音量
midiOutGetVolume //MIDI的音量
如向控制其他的设备,如Line Mic 3d等,要用Mixer来作
我的Homepage Http://winprogram.yeah.net 有Mixer的例子
 
我就是针对 Digital-video 编程的.用来控制DVD解压卡..
你能帮我解决吗?
 
var
v : DWORD;
begin

v := MakeLong(Word(StrToInt(Edit3.Text)),
Word(StrToInt(Edit4.Text)));
AuxSetVolume(GetLineInHandle(AUXCAPS_AUXIN), v);
 
这个问题我自己解决了,就是我上面的程序,修改一下就可以了.
谢谢各位的参予.
现在各分25分...
 
后退
顶部