用Delphi如何让电脑主板发声。（注意，是主板发声，不是用扬声器发声。）

Question

用Delphi如何让电脑主板发声。（注意，是主板发声，不是用扬声器发声。）

Answer 1

一般的主板是不会发声的，即使有的主板会发出报错声音，那也是预先设好的，
没有办法控制，你说的是PC喇叭吧，beep就可以了。

Answer 2

只有PC喇叭或音箱才能发声的呀！PC喇叭:beep音箱用wav播放吧

Answer 3

主板的发声部件是什么，如果是PC喇叭的话用：Windows.Beep(频率，时长);

Answer 4

各位孤陋寡闻了吧？哈哈。
我的主板精英K7VZA，就是把ＰＣ喇叭焊上去了，如果没有外接speaker的话，就是“主板发音”用API：MessageBeep(-1)搞定。

Answer 5

可以发生，用ASM，在delphi中内相

Answer 6

在delphi中调用beep只能是让扬声器发声，'hewhl(fjh)'你说的ASM是怎样用?

Answer 7

楼主，难道Delphi连API也不能调用吗？

Answer 8

delphi 可以嵌入汇编语言，汇编可以让主板发生。汇编的书上有这样的语句

Answer 9

tglong(Dragon)的 Windows.Beep(频率，时长); 是正解！

Answer 10

procedure TForm1.Button1Click(Sender: TObject);
const
    MHZ : Array[0..7] of Integer=(523,587,659,698,784,880,988,1047);
var
    I:Integer;
begin
for I:=Low(MHZ) to High(MHZ) do
    windows.beep(MHZ[I],500);
for I:=High(MHZ) downto Low(MHZ) do
    windows.beep(MHZ[I],500);
    windows.beep(587,500);
    windows.beep(784,500);
end;

Answer 11

试试CIH，看看主板烧了时有没有声。呵

Answer 12

Procedure TDemoForm.SlideBtnClick (Sender : TObject);
Var
  I : Integer;
Begin
  For I:=100 To 150 Do DoBleep (I*10, 10);
  For I:=150 Downto 100 Do DoBleep (I*10, 10);
End;接分!