实现avi全屏播放
点击次数：38 次 发布日期：2008-11-09 08:40:35 作者：源代码网
源代码网推荐 源代码网推荐 procedure TForm1.Button1Click(Sender: TObject); 源代码网推荐 begin 源代码网推荐 Form2.Show; 源代码网推荐 Form2.WindowState := wsMaximized; 源代码网推荐 Form2.MediaPlayer1.Notify := false; 源代码网推荐 Form2.MediaPlayer1.Display := Form2.Panel1; 源代码网推荐 Form2.MediaPlayer1.FileName := "C:TheWallDELCAR2.AVI"; 源代码网推荐 Form2.MediaPlayer1.Open; 源代码网推荐 Form2.MediaPlayer1.DisplayRect := Form2.ClientRect; 源代码网推荐 Form2.MediaPlayer1.Play; 源代码网推荐 end; 源代码网推荐 源代码网推荐 {Code for Form 2} 源代码网推荐 源代码网推荐 procedure TForm2.MediaPlayer1Notify(Sender: TObject); 源代码网推荐 begin 源代码网推荐 if MediaPlayer1.NotifyValue = nvSuccessful then 源代码网推荐 Form2.Close; 源代码网推荐 end; 源代码网推荐 ////////////////////////////////////////////////////// 源代码网推荐 源代码网推荐 public 源代码网推荐 { Public-Deklarationen } 源代码网推荐 procedure MMNotify(var Message: TMessage); message MM_MCINOTIFY; 源代码网推荐 end; 源代码网推荐 源代码网推荐 var 源代码网推荐 Form1 : TForm1; 源代码网推荐 源代码网推荐 implementation 源代码网推荐 源代码网推荐 {$R *.DFM} 源代码网推荐 源代码网推荐 procedure TForm1.Button1Click(Sender: TObject); 源代码网推荐 begin 源代码网推荐 mciSendString("open j:video.avi alias film", nil, 0, 0); 源代码网推荐 mciSendString("window film handle 0", nil, 0, 0); 源代码网推荐 mciSendString("window film state show maximized", nil, 0, 0); 源代码网推荐 mciSendString("play film notify", nil, 0, Form1.Handle); 源代码网推荐 end; 源代码网推荐 源代码网推荐 procedure TForm1.MMNotify(var Message: TMessage); 源代码网推荐 begin 源代码网推荐 mciSendString("close film", nil, 0, 0); 源代码网推荐 end; 软件开发网 www.mscto.com 源代码网推荐 源代码网供稿. |
