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

[zvygin1964]

Нужно превратить сообщение #40 Alex11223 в работающий для всех Windows код. Или предложить другой вариант.

[Smitt&Wesson]

Сообщение от zvygin1964

Нужно превратить сообщение #40 Alex11223 в работающий для всех Windows код. Или предложить другой вариант.

Ну, так предложи. В чём вопрос? Или мозгов нет? Тогда, встречный вопрос - кого х..а, ты тут делаешь?
Пригласи девку в ресторан, ну, или просто прогуляться. Полезнее будет для здоровья и для демографии.

[zvygin1964]

Методом многократного тыка определил, что видео .wmv из файла играются и на Windows 7.
Но TMediaPlayer перестал делать:

if MediaPlayer1.Mode= mpStopped then

,- именно на файлах с таким расширением.
Перед использованием TMediaPlayer включал так:

MediaPlayer1.Notify:= True;//установить это свойство в инспекторе объектов
                   // теперь при изменении статуса медиаплеера будет вызываться
                   // обработчик onNotify, в котором надо будет прочитать статус
                   // и, если этот статус = mpStopped, то значит, видео закончилось

Лекарство от этого есть ?

[zvygin1964]

По окончании проигрывания файла MediaPlayer1.Mode выдает такие результаты по:

procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin                                      //Определяю состояние  MediaPlayer
  case mediaplayer1.Mode of
    mpNotReady :CheckBox1.Checked :=True ; // не готово
    mpStopped:CheckBox2.Checked   :=True ; // остановился
    mpPlaying:CheckBox3.Checked   :=True ; // играет
    mpRecording:CheckBox4.Checked :=True ; // запись
    mpSeeking :CheckBox5.Checked  :=True ; // ищет
    mpPaused :CheckBox6.Checked   :=True ; // пауза
    mpOpen :CheckBox7.Checked     :=True ; // открыт
  else Form1.Noop;
  end;
end;

Скрин №1 для файла .avi
Скрин №2 для файла .wmv .
События mpStopped не произошло !

[zvygin1964]

Проблему: В Delphi7 не закрывается MediaPlayer после видео с расширением .wmv

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin  //Определяю состояние  MediaPlayer
  if mediaplayer1.Mode = mpStopped then
    begin // статус = mpStopped, то значит, видео закончилось
      MediaPlayer1.Stop;
      MediaPlayer1.Close;
end;

Разместил на конкурирующем форуме...

[min@y™]

Ну и как? Помог кто-нибудь?

[zvygin1964]

. .

[zvygin1964]

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

пока не попробуешь

Очевидно, что на Delphi XE8 у вас не получилось. Поэтому вы и предложили пробовать на Delphi XE10 seattle.
Похоже мне стоит отказаться от использование видео, но уж если уж очень захочется, то заменять на анимацию.

То, что предлагали в других местах, непосильно :

Прошу перенести эту тему в раздел Delphi...

[min@y™]

Очевидно, что на Delphi XE8 у вас не получилось.

Чего не получилось-то?

[zvygin1964]

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