请问如何用delphi关闭windows的喇叭，使windows静音?(20分)

C

chinhp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-08

• #1

请问如何用delphi关闭windows的喇叭，使windows静音?
如何用delphi再打开windows的喇叭，使windows可以有声音?
希望能得到详细的源程序!

 

四

四川狼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-22

• #2

简单的，
use mmsystem;
.......

waveOutSetVolumn(0,0)关闭声音；
......
waveOutSetVolumn(0,$FFFFFFFF)声音最大；

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #3

關注

樓上提供的答案可行嗎?
只能把聲音調為最小和最大﹐不能實現靜音功能

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #4

up

 

P

panzhileidfw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-15

• #5

stuwe的好象有问题

 

小

小笨苯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #6

[]

 

小

小雨哥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-16

• #7

waveOutSetVolumn(0,0) 的方法是对的，确实它只是关闭了声音，要求能够复原，
在调用 waveOutSetVolumn(0,0) 前，可以先调用 waveOutGetVolumn(0,X)，并
保存好 X，在复原时调用 waveOutSetVolumn(0,X) 。

 

H

Haofei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-18

• #8

请参见，这里有本人发表的调节音量与静音的问题。
http://www.csdn.net/develop/Read_Article.asp?Id=17257
这是一个独立的单元，拷过去就能用，它提供主音量（也就是大家所说的嗽叭音量）、Wave
（也就是播放Wave、Mp3等的音量）、MIDI及麦克风音量的调节与静音设置。

 

S

stuwe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-17

• #9

toanzhileidfw,
人家好像是要實現"关闭windows的喇叭，使windows静音?"
而不是只調低音量,

本人有試過在某一播放器播放的時候用Delphi做的程序調低音量,(不管調多少)
等播放到下一首時就會出現問題(即使是把音量調為0,下一首一開始音量就不為0了)

 

F

fangzhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-05

• #10

user mmsystem

mcisendstring('set all audio all off',nil,0,handle);
//可以达到静音的效果
mcisendstring('set all audio left off',nil,0,handle);
//关闭左声道

 

C

chenxz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-05

• #11

to fangzhx:
刚刚试了，不行。win2k＋d7。

 

A

allendelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-12

• #12

可以用mci函数解决啊，这样：
mcisendstring('set all audio all off',nil,0,handle);

也可以用waveoutsetvolume(0,0);

 

Y

yangtsehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-01

• #13

可以的把，我试了！ 2000server+d7!

 

Y

yangtsehua

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-07

• #14

老大们，单词拼写要过关阿！！！！！！！
to chinhp:
waveOutSetVolume(0,0);
//而不是waveoutsetvolumn(0,0);

...................................
waveOutSetVolume(0,$FFFFFFFF)声音最大；
这次肯定行了，我试了。 delphi7.0+2000server.
记得： uses mmsystem;
还有，别忘记给分。：）