這篇文章主要介紹了如何在全屏幕顯示一個AVI文件，具有一定借鑒價值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

創(chuàng)新互聯(lián)：公司2013年成立為各行業(yè)開拓出企業(yè)自己的“網(wǎng)站建設(shè)”服務(wù)，為千余家公司企業(yè)提供了專業(yè)的成都網(wǎng)站設(shè)計、做網(wǎng)站、網(wǎng)頁設(shè)計和網(wǎng)站推廣服務(wù)， 按需開發(fā)網(wǎng)站由設(shè)計師親自精心設(shè)計，設(shè)計的效果完全按照客戶的要求，并適當(dāng)?shù)奶岢龊侠淼慕ㄗh，擁有的視覺效果，策劃師分析客戶的同行競爭對手，根據(jù)客戶的實(shí)際情況給出合理的網(wǎng)站構(gòu)架，制作客戶同行業(yè)具有領(lǐng)先地位的。

（1）創(chuàng)建一個工程文件
（2）選擇File|New Form創(chuàng)建一個窗體，設(shè)置其Name := Form2
（3）設(shè)置Form2.BorderStyle := bsNone
（4）在Form2上放置一個MedialPlayer構(gòu)件
（5）在Form2上放置一個Panel構(gòu)件，設(shè)置其Name := Panel1
（6）設(shè)置Panel1.Align := alClient
（7）在Form1的Button1中增添以下的代碼：

procedure TForm1.Button1Click(Sender: TObject);
begin
with Form2 do 
begin 
Show; WindowState := wsMaximized;
MediaPlayer1.Notify := false;
MediaPlayer1.Display := Panel1;
MediaPlayer1.FileName := 'C:\Temp\cool.avi'; 
MediaPlayer1.Open;
MediaPlayer1.DisplayRect := Form2.ClientRect;
MediaPlayer1.Play;
end;
end;

（8）在Form2的MediaPlayer1的OnNotify事件中添加以下的代碼

procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.NotifyValue = nvSuccessful
then Form2.Close; end;

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“如何在全屏幕顯示一個AVI文件”這篇文章對大家有幫助，同時也希望大家多多支持創(chuàng)新互聯(lián)，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識等著你來學(xué)習(xí)!