P
patriot
Unregistered / Unconfirmed
GUEST, unregistred user!
var
MyPlayer:TMediaPlayer;
begin
MyPlayer:=TMediaPlayer.Create(Form1);
MyPlayer.Parent:=Form1;
MyPlayer.AutoOpen:=True;
if OpenDialog1.Execute then
MyPlayer.FileName:=OpenDialog1.FileName;
MyPlayer.Play;
end;
错误信息为 No MCI Device Open 各为帮忙,在线等待!谢谢
MyPlayer:TMediaPlayer;
begin
MyPlayer:=TMediaPlayer.Create(Form1);
MyPlayer.Parent:=Form1;
MyPlayer.AutoOpen:=True;
if OpenDialog1.Execute then
MyPlayer.FileName:=OpenDialog1.FileName;
MyPlayer.Play;
end;
错误信息为 No MCI Device Open 各为帮忙,在线等待!谢谢