Spieldauer einer avi oder mpeg Datei

[-=IOI=-]

In meinem Programm ist ein MediaPlayer, der Filme abspielen soll. Nun möchte ich eine Playlist programmieren, in der unter anderem auch die Spieldauer angezeigt wird.

Nach der Suche hier im Forum dachte ich mir, dass die beste Methode wohl das laden jeder einzelnen Datei ist und über MediaPlayer.Length die Zeit auszulesen.

Habe das dann so umgesetzt:

Delphi-Quellcode:

try
 ListBox1.Items.LoadFromFile(ProgDir+'\Media.txt.');      //Playlist laden
 for y := 0 to ListBox1.Count -1 do
 begin
   ListBox6.Items.Add(ExtractFileName(ListBox1.Items[y]));
   ListBox9.Items.Add(IntToStr(y+1));
   MediaPlayer.FileName := ListBox1.Items[y];
   MediaPlayer.Open;
   ListBox10.Items.Add(IntToStr(MediaPlayer.Length));
   MediaPlayer.Close;
 end;
except
end;

Das Umrechnen der zeit mach ich dann, wenn es so funktioniert.
Das Problem ist, dass beim Programmstart so ein CPU Fenster aufgeht und das Programm nicht mehr weiter ausgeführt wird.

Was mach ich da falsch?

Gruß Flo