Просто проиграть его на другой форме, развернутой на весь экран
{Code for Form 1} usesUnit2; 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} procedureTForm2.MediaPlayer1Notify(Sender: TObject); begin
if
MediaPlayer1.NotifyValue = nvSuccessful then
Form2.Close; end
;