delphi 简单播放mp3


本文整理自网络,侵删。

 代码文件:
--------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;

type
TForm1 = class(TForm)
Button1: TButton;
MediaPlayer1: TMediaPlayer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Visible := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := 'c:\temp\Test.mp3';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

end.

相关阅读 >>

Delphi dateutils.ispm - 判断时间是否是下午

Delphi的webbrowser改造,对网页中alter等对话框的改造方法

Delphi 字符串与内存流和文件的快速转换函数

Delphi 十进制转十六进制

Delphi 重启启动计算机的代码

Delphi 透明窗体

Delphi下的纯pascal的十六进制转十进制

Delphi 获取当前目录下的.txt文本不要带后缀扩展名

Delphi xe5 android 发短信以及目录

Delphi 感染u盘

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...