ORTOL

В Delphi есть компонент MediaPlayer из вкладки System ...
Загрузите в него Видео/Аудио и смотрите на его длину в MediaPlayer1.Length ...

Это самый простой способ ...

function SecInTime(Sec:Integer):String;
var
 H, M, S: Integer;
 Hs, Ms, Ss: String;
begin
 H := sec div 3600;
 M := (sec - H * 3600) div 60;
 S := sec - H * 3600 - M * 60;

 Hs:=IntToStr(H);
 Ms:=IntToStr(M);
 Ss:=IntToStr(S);

 If (Length(IntToStr(H))=1) Then Hs:='0'+IntToStr(H);
 If (Length(IntToStr(M))=1) Then Ms:='0'+IntToStr(M);
 If (Length(IntToStr(S))=1) Then Ss:='0'+IntToStr(S);

 Result := Hs+':'+Ms+':'+Ss;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
begin
 MediaPlayer1.FileName := 'C:\Todd Rundgren - Can We Still Be Friends (1978).mp4'; // Присваиваем имя файла ...
 MediaPlayer1.Open; // Открываем плеер ...
 str := IntToStr(MediaPlayer1.Length); // Присваиваем миле секунды в переменную str
 ShowMessage('Sec: '+(str)); // Показываем миле секунды ...
 str:=Copy(str,0,(Length(str)-3)); // Удаляем последние 3 символа из строки (это миле секунды) ...
 ShowMessage('Min: '+SecInTime(StrToInt(str))); // Нормальный показ времени ...
end;

"Нет плохого языка программирования есть плохой программист"

Люди которые говорят что "Delphi мёртв" делают свои выводы из объявлений по приёму на работу ...
Да согласен, это так. Но суть не в этом. Приходит на работу дубина и пишет программу на С++ далее по не понятным причинам увольняется или увольняют и на его место ищут такого же С++ программиста а не другого .... Вот и всё дело, большинство фирм сами даже понятии не имеют об языках программирования, смотрят на другие объявления и копируют ....

Что на счёт Delphi на нём можно написать всё что душе угодно ....
Начиная от простых задач заканчивая сложными задачами.
Для какого дела какой язык ЛУЧШЕ подходит ? Вопрос другой.

И в завершение скажу ... Опять же, не важен ЯЗЫК программирования важен ОПЫТ программирования, ведь зная 1 язык хорошо (пусть будет Delphi) ты легко сможешь перейти и на другие языки, ведь по сути все они одинаковы ...

Ну если на пальцах, посмотри фильмы как там работают.
Социальная сеть
Джобс: Империя соблазна