Naja, gelöst in dem Sinn habe ich es nicht; ich habe nur geglaubt, dass mein Code nicht funktioniert (der Fehler ist dann aber wo anders gelegen).
Also hier der Code
Delphi-Quellcode:
MediaPlayer1.FileName := '...'; //Dateiname zuweisen
MediaPlayer1.Open; //Datei laden
ShowMessage(IntToStr(MediaPlayer1.DisplayRect.Right)); //Breite
ShowMessage(IntToStr(MediaPlayer1.DisplayRect.Bottom)); //Höhe
//standardmäßig sind Left und Top auf 0 gesetzt -> dadurch ist Right die Breite und Bottom die Höhe
Schöne Grüße