当前位置: 源码素材网 » Delphi源码 » 系统相关 » 详情页

Delphi控制电脑蜂鸣器或扬声器发声音

Delphi控制电脑蜂鸣器或扬声器发声音,有些称之为喇叭,不过测试发现,这个是优先机箱蜂鸣器发出声音,或没装蜂鸣器,则会从音箱中发声音,实现的代码很简单,以下代码即可实现:
  procedure TForm1.Button1Click(Sender: TObject);
  var
   i,j : integer;
  begin
   for i := 1000 to 2000 do
   begin
   j := i;
   windows.Beep(1000,3000);
   end;
  end;

  • 相关标签:箱蜂鸣
  • 调试环境:Delphi7+
  • 文件大小:5.21K
  • 资源评级:
  • 更新时间:2020-03-25
  • 相关链接:暂无演示

源码测试截图:

Delphi控制电脑蜂鸣器或扬声器发声音运行截图

相似源码:箱蜂鸣 Delphi源码下载:Delphi控制电脑蜂鸣器或扬声器发声音 测试截图

下载地址:

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi控制电脑蜂鸣器或扬声器发声音”源代码侵犯了您的权益,请尽快告诉我们。