如何控制喇叭(100分)

  • 主题发起人 主题发起人 新手
  • 开始时间 开始时间

新手

Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi 的多媒体好象只能控制由声卡发出的声音.如何控制 Pc喇叭?
有没有软件可模拟声卡使 pc喇叭发声?若有,用Delphi如何编制?
 
找一本汇编的书,那上面有如何让pc喇叭发声。
在delphi内,用内嵌汇编代码就可实现.
 
请看<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111737">已答问题</a>
 
在NT下,你就不要去控制PC喇叭吧。
在9x下,可以嵌入汇编。
procedure Sound(Freq:Integer);
var
p:Integer;
begin
P:=1190000 div Freq;
asm
mov al,10110110B
out 43h,al
mov ax,P
out 42h,al
mov al,ah
out 42,al
in al,61h
mov ah,al
or al,03h
out 61h,al
end;
end;

 
hehe, 我在另一个问题里面回答的WinDriver可以让您很容易地控制PC Speaker,在95/8/NT下面都行,
大家可以到金山公司的主页去找:www.joyo.com
 
有控件(带原吗)
http://www.torry.ru/vcl/sound/bleepint.zip
http://www.torry.ru/vcl/sound/btbeeper.zip
 
发了个bleepint.zip,供参考.
 
多人接受答案了。
 
后退
顶部