windows media player怎么创建一个播放列表,且能自动播放下一首 windows media player怎么创建一个播放列表,且能自动播放下一首 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 创建一个播放列表用listbox,自动播放下一首看 mediaplayer.position是否=mediaplayer.length或者播放完会有个消息,通过消息判断也可以 mediaplayer1.Notify:=true;procedure TForm1.MediaPlayer1Notify(Sender: TObject);begincase mediaplayer1.NotifyValue of //对Notifyvalue的值进行判断Nvsuccessful:messagedlg('播放成功',mtinformation,[mbok],0);//控制命令成功。这样当播放完多媒体文件以后,就会弹出一个对话框,告诉“播放成功”。nvSuperseded:messagedlg('命令被代替',mtinformation,[mbok],0);//控制命令被其他命令所代替。Nvaborted:messagedlg('命令被终止',mtinformation,[mbok],0);//控制命令被用户所终止。nvFailure:messagedlg('命令失败',mtinformation,[mbok],0);//控制命令失败。end;end; msn安装MSN Shell之后,会增加一个音乐播放器。那个就是新浪的MSN Shell播放器。可以参考一下 SQL语句...头疼. 关于edit控件限制输入 对于用穷举法来实现找到QQ的密码的程序,还可以详细点吗? [问题]有关神龙卡,有经验的请告知! 简单问题,在线等待... 请问:点击窗体最大化、最小化按钮激发什么事件? 程序里面如何从Internet上面获得实时的外汇牌价信息? 中国队没有希望了,心情不好! 散分! 急,如何单独控制卡拉OK节目的伴唱音量? 一个奇怪的问题!!!有那位可以帮忙???? 请delphi高人来帮忙看看,这个怎么实现。100分。 DEPHI7下的特快专递
或者播放完会有个消息,通过消息判断也可以
begin
case mediaplayer1.NotifyValue of //对Notifyvalue的值进行判断
Nvsuccessful:messagedlg('播放成功',mtinformation,[mbok],0);
//控制命令成功。这样当播放完多媒体文件以后,就会弹出一个对话框,告诉“播放成功”。nvSuperseded:messagedlg('命令被代替',mtinformation,[mbok],0);
//控制命令被其他命令所代替。
Nvaborted:messagedlg('命令被终止',mtinformation,[mbok],0);
//控制命令被用户所终止。
nvFailure:messagedlg('命令失败',mtinformation,[mbok],0);
//控制命令失败。
end;
end;
可以参考一下