梦远书城阅读器下载:播放系统声音

来源:百度文库 编辑:中财网 时间:2024/04/29 05:41:38

━━━━━━━━━━━━━━━━━━━━━━━━━━默认分类 2009-08-18 23:08:50 阅读31 评论0 字号:大中小
1. sysutils.beep() //播放一个系统默认的声音
   注: sysutils 单元下的 beep() 是调用 widows.MessageBeep(0);2. windows.beep(音高, 长度) //这是一个windows API 函数3. windows.MessageBeep() //也是一个windows 播放声音的 API 函数   MessageBeep 提供的参数
MB_ICONASTERISK  播放由SystemAsterisk定义的声音 系统的星号声
MB_ICONEXCLAMATION 播放由SystemExclamation定义的声音 系统的惊叹声
MB_ICONHAND    播放由SystemHand定义的声音 系统的指针声
MB_ICONQUESTION  播放由SystemQuestion定义的声音 系统的问声
MB_OK       播放由SystemDefault定义的声音 系统的默认声例1. procedure TForm1.Button1Click(Sender: TObject);
        begin
           beep; //播放系统默认的声音
        end;例2: procedure TForm1.Button1Click(Sender: TObject); //播放奥运主题歌
const
  t = 800;
begin
  Windows.Beep(330, t);
  Windows.Beep(392, t);
  Windows.Beep(262, t*2);
  Windows.Beep(294, t);
  Windows.Beep(330, t);
  Windows.Beep(196, t*2);
  Windows.Beep(262, t);
  Windows.Beep(294, t);
  Windows.Beep(330, t);
  Windows.Beep(392, t);
  Windows.Beep(294, t*4);
end;例3:procedure TForm1.OnClick(Sender: TObject);
begin
  MessageBeep($0040);
 // 也可以写成 MessageBeep(64);
 // 否者 MessageBeep(MB_ICONASTERISK)
end;注: 如果MessageBeep里面有播放不出声音的时候大家请到控制面板里同声音选项进行设置