Заморачиваться ли дальше.

[min@y™]

Показывать видео из .ехе на разных Windows без вмешательства в систему. Если бы получилось, вы похвастались бы, обязательно.

так я и не пробовал. зачем оно мне?

[zvygin1964]

If (на экране пиксели не изменятся за 0,3 секунды) and (не изменился сигнал звуковой карты) then (видео окончилось и можно закрывать окно) else (видео продолжается).

Это как написать в Delphi 7 ?
Кажется таким способом я смогу закрыть окно по окончании проигрывания.

Да. Появились сомнения, что во время воспроизведения видео, все процессы остановились и ничего проверять на мониторе не могут. Хотя..., таймер ведь не остановить. На красный крестик жму и форма закрывается. Значит программа не зависает. Живёт своей, не задокументированной жизнью.

[min@y™]

If (на экране пиксели не изменятся за 0,3 секунды) and (не изменился сигнал звуковой карты) then .

Это как написать в Delphi 7 ?

дядьмиш, ты белены объелся? делай так:

if (№кадра >= Кол-во_кадров - 1)
  then (видео окончилось и можно закрывать окно) 
  else (видео продолжается, обновить ProgressBar);

[zvygin1964]

Сообщение от min@y™

(№кадра >= Кол-во_кадров - 1);

А номер кадра это:

MediaPlayer1.TimeFormat := tfFrames;
the_frame_number:=IntToStr(MediaPlayer1.Length);

или

the_frame_number:=MediaPlayer1.Position;

В смысле, сколько кадров всего?

the_frame_number_max:=MediaPlayer1.Length; // ?

"ProgressBar",- это подсказка? Компонент не используется.

[min@y™]

дядьмиш, а нафига ты это на форуме спрашиваешь? всё ж в хэлпе написано, ёмаё!
чтобы читать этот хэлп, нужен только интернет.