Как узнать время проигрывания AVI файла?
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName := 'FileName.avi';
MediaPlayer1.Open;
MediaPlayer1.TimeFormat := tfMilliseconds;
ShowMessage( 'Время в милисекундах = ' + IntToStr( MediaPlayer1.Length ) ); end; |
