Odtwarzanie pliku *.avi w trybie fullscreen

Aby po kliknięciu przycisku Button1 plik animacja.avi był odtwarzany na pełnym ekranie (fullscreen mode) należy umieścić na formularzu komponent MediaPlayer z zakładki System, następnie w funkcji obsługującej zdarzenie OnClick dla przycisku Button1 tworzymy obiekt TRect, który zawiera współrzędne obszaru, na którym będzie odtwarzana animacja, przypisujemy ten obszar właściwości DisplayRect, właściwości FileName przypisujemy nazwę pliku animacji (należy zwrócić uwagę na podwójny backslash oddzielający katalogi), na koniec otwieramy i odtwarzamy animację:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TRect Rectangle;
   Rectangle.Left = 0;
   Rectangle.Top = 0;
   Rectangle.Right = Screen->Width;
   Rectangle.Bottom = Screen->Height;
   MediaPlayer1->DisplayRect = Rectangle;
   MediaPlayer1->FileName = "c:\\katalog\\animacja.avi";
   MediaPlayer1->Open();
   MediaPlayer1->Play();
}