一定是驱动的问题,不知道如何解决? 我已经重启动台式机了,还不行.不知道到了用户手里是不是也这样?大致的代码是这样,应该不会有错的:
MediaPlayer1.filename:=ShellTreeView1.Path+'\'+ListBoxaudio.Items.Strings[ListBoxaudio.itemindex]+'.mp3';
mediaplayer1.AutoOpen:=true;
mediaplayer1.open;
trackbar1.min:=0;
trackbar1.max:=30;
Self.MediaPlayer1.TimeFormat := tfMilliseconds;
Labelmedailength.caption:='媒体长度:'+IntToStr(Self.MediaPlayer1.Length DIV 1000)+'秒';
mediaplayer1.Play;
timer1.Enabled:=true;
MediaPlayer1.filename:=ShellTreeView1.Path+'\'+ListBoxaudio.Items.Strings[ListBoxaudio.itemindex]+'.mp3';
mediaplayer1.AutoOpen:=true;
mediaplayer1.open;
trackbar1.min:=0;
trackbar1.max:=30;
Self.MediaPlayer1.TimeFormat := tfMilliseconds;
Labelmedailength.caption:='媒体长度:'+IntToStr(Self.MediaPlayer1.Length DIV 1000)+'秒';
mediaplayer1.Play;
timer1.Enabled:=true;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货