delphi 播放声音

  • A+
所属分类:[开发技巧]

用mciSendString播放可以收到消息:  
   
  TForm1   =   class(TForm)  
  ...  
  protected  
    procedure   WndProc(var   Message:   TMessage);   override;  
  ...  
  end;  
   
  procedure   TForm1.WndProc(var   Message:   TMessage);  
  begin  
    if   Message.Msg   =   MM_MCINOTIFY   then  
        begin  
            ShowMessage('notify   over!');  
        end  
    else  
        inherited   WndProc(Message);  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      mciSendString('open   "c:\notify.wav"   alias   notifywav',nil,0,0);  
      mciSendString('play   notifywav   notify',nil,0,Handle);     //第4个参数为回调窗口句柄  
  end;   
 

//   中途停止可以用stop  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
      mciSendString('stop   notifywav   notify',nil,0,Handle);  
  end;  

还有很多命令,详细的去查MSDN的mciSendString函数。

另一种方法

uses  
      MMSystem;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      sndPlaySound('C:\WINDOWS\MEDIA\Chimes.wav',   SND_ASYNC);  
  end;  

  • 我的微信
  • 这是我的微信扫一扫
  • weinxin
  • 我的微信公众号
  • 我的微信公众号扫一扫
  • weinxin
广告也精彩
avatar
广告也精彩

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: