先在Form6上加上Mediaplayer控件,再做一splashform:
begin
Application.Initialize;
form6:=Tform6.Create(Application);
form6.show;
form6.Mediaplayer1.filename:='1.avi';
form6.Mediaplayer1.open;
form6.Mediaplayer1.DisplayRect:=Rect(80,70,480,310);
form6.Mediaplayer1.Wait:=true;
form6.Mediaplayer1.play;
.
.
.
form6.free;
Application.run;
end.
来分吧！
