Delphi 播放指定avi-mid-wav文件
代码说明:
Delphi 播放指定avi-mid-wav文件,这几种都是音频格式,因此这个可以说是播放音频文件的例子,控制面板中包括了常用的播放控制按钮,在此基础上,可写出一个Delphi音乐播放器,当然本源码比较早了,适合学习一些简单的Delphi音频编程技巧。 procedure TForm1.N2Click(Sender: TObject); begin if OpenDialog1.Execute then begin with MediaPlayer1 do begin Filename := OpenDialog1.FileName ; Open; DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height ); Notify := true; end; end; end;
下载说明:请别用迅雷下载,失败请重下,重下不扣分!