cd播放器用trackbar控制声音，在来重赏(100分)

吕

吕风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-29

• #1

给出代码和过程，我出卖全部家当了……！！！！！！
要控制系统声音的。小弟求求大家了

 

L

lizongwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #2

我这里有一个控件（VolumeControl）可以实现你所要的。如果需要可以发给你。
zongwei_li@sina.com.cn[]

 

H

hzynet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #3

可以用mmtool控件组实现，很容易的。
MMTOOL控件组论坛里就可以下载。

 

吕

吕风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #4

因为我急于解决这个问题。所以很需要你们的帮助。
lizongwei大侠，麻烦你寄给我试试。无论成功与否，都有分。
tianxiefeng@163.com.
========
请问，mmtools怎么下载？我没找到。小弟太菜了。呵呵

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #5

我就有代码
t1,t2,v:longint;

waveoutgetvolume(0,@v);
v:=v and $ffff0000 or (t1 shl 8);
waveoutsetvolume(0,V);

t2:右声道
waveoutgetvolume(0,@v);
v:=v and $0000ffff or (t2 shl 24);
waveoutsetvolume(0,v);
这只是一部分代码

 

比

比尔.丐痴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-01

• #6

var
v:longint;

//得到当前音量
WaveOutGetVolume(0,@v);
TrackBar1.Position:=hi(v);


//控制音量
procedure TForm1.TrackBar1Change(Sender: TObject);
var
t,v:longint;
begin

t:=TrackBar1.Position;
v:=(t shl 8) or (t shl 24);
WaveOutSetVolume(0,v);
end;

 

吕

吕风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #7

是播放CD的，我试过你们的代码。好象不行

 

比

比尔.丐痴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #8

你要在uses里加如MMSystem.上诉的代码是可行的。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-03

• #9

我的绝对没有问题，我试过的，你要把控制声音的最大值设为255

 

吕

吕风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-08

• #10

多人接受答案了。