跪求:用delphi编写小程序______________________
项目:循环播放背景音乐本实验要求开发一个小程序,界面如图16所示。图16实验十六程序界面功能说明如下:点击“打开文件”按钮,在对话框中选取要打开的文件,这时文件会显示在空...
项目:循环播放背景音乐
本实验要求开发一个小程序,界面如图16所示。
图16 实验十六程序界面
功能说明如下:
点击“打开文件”按钮,在对话框中选取要打开的文件,这时文件会显示在空白处,并且有背景音乐在播放,点击“停止”按钮,就可以停止背景音乐的播放了。
.... 展开
本实验要求开发一个小程序,界面如图16所示。
图16 实验十六程序界面
功能说明如下:
点击“打开文件”按钮,在对话框中选取要打开的文件,这时文件会显示在空白处,并且有背景音乐在播放,点击“停止”按钮,就可以停止背景音乐的播放了。
.... 展开
3个回答
展开全部
delphi 有个控件 名字叫mediaplayer 在system选项卡中 那个就是专门用来播放MP3或者电影文件的
大概方法是这样的 mediaplayer 简称mp
procedure TForm1.btn1Click(Sender: TObject);
begin
mp1.Close;
if opendiag.execture then
begin
mp1.FileName:=opendiag.filename;
end;
mp1.Open;
mp1.Play;
end; 还有希望你别直接复制我的代码 去找找资料 理解意思才是关键。这代码都是基础中的基础,如果你只是想混一混的吧 当我没说
大概方法是这样的 mediaplayer 简称mp
procedure TForm1.btn1Click(Sender: TObject);
begin
mp1.Close;
if opendiag.execture then
begin
mp1.FileName:=opendiag.filename;
end;
mp1.Open;
mp1.Play;
end; 还有希望你别直接复制我的代码 去找找资料 理解意思才是关键。这代码都是基础中的基础,如果你只是想混一混的吧 当我没说
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询