1,184
社区成员
发帖
与我相关
我的任务
分享用Delphi如何让电脑主板发声。（注意，是主板发声，不是用扬声器发声。）
用Delphi如何让电脑主板发声。（注意，是主板发声，不是用扬声器发声。）
...全文
请发表友善的回复…
发表回复
zkqd 2004-03-03
- 打赏
- 举报
这么也有水源风格啊。
hewhl 2004-01-18
- 打赏
- 举报
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;
接分!
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;
接分!
whitetiger8 2004-01-17
- 打赏
- 举报
试试CIH，看看主板烧了时有没有声。呵
forgetter 2004-01-17
- 打赏
- 举报
让主版放个屁就行了
34535345345345345345 2004-01-17
- 打赏
- 举报
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;
microtomato 2004-01-17
- 打赏
- 举报
tglong(Dragon)的 Windows.Beep(频率，时长); 是正解！
vavyboyleon 2004-01-03
- 打赏
- 举报
用利器用力摩擦主板
ie4888 2004-01-03
- 打赏
- 举报
开机，然后给它喝水！！！
呵呵，你就会听到它高兴的发出劈劈啪啪的声音
呵呵，你就会听到它高兴的发出劈劈啪啪的声音
mzzhf 2004-01-03
- 打赏
- 举报
除了扬声器，好像风扇也能发声。
cll007 2004-01-03
- 打赏
- 举报
哈哈
变态问题
世风不古呀
变态问题
世风不古呀
flyinwuhan 2004-01-03
- 打赏
- 举报
为什么搂主还不结贴？我等这50分等的好苦啊！
siwuge 2004-01-01
- 打赏
- 举报
asm就是加入汇编语言用的。
missj 2004-01-01
- 打赏
- 举报
我晕！！！
buickfl 2003-12-31
- 打赏
- 举报
delphi 可以嵌入汇编语言，汇编可以让主板发生。汇编的书上有这样的语句
jb99334 2003-12-28
- 打赏
- 举报
beep()
xiaoxiao_8 2003-12-28
- 打赏
- 举报
其实各位太那个了，我的主板就经常发声。可我不希望它老是发声，所以用手轻轻地敲打一下它就不响了。
大大怪老张 2003-12-23
- 打赏
- 举报
同意：用高压击穿也可以发声的！而且声音很宏亮！
建议对显示器发声才采取相同措施。
建议对显示器发声才采取相同措施。
zjm107 2003-12-23
- 打赏
- 举报
大便太
漠北刀客 2003-12-23
- 打赏
- 举报
用高压击穿也可以发声的！而且声音很宏亮！
wujiawen 2003-12-23
- 打赏
- 举报
用棒敲绝对发"声"...
加载更多回复（23）
