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 serial number of an usb flash drive 获取u盘硬件序列号

Delphi异常处理的基本原则和方法

Delphi 生成可以控制最大32位随机英文数字字符串

Delphi 使用 tedgebrowser 组件

Delphi 链接文件名合并

Delphi 10分钟10行代码开发app(Delphi 应用案例)

Delphi打印timage图片

Delphi tms web core 获取url 参数

Delphi tstringlist utf8编码保存并开启bom

Delphi 获取汉字拼音首字母

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

转载请注明出处：木庄网络博客 » delphi 简单播放mp3