скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Как проиграть AVI на полный экран



Автор: Олег Кулабухов

Специалист компьютерной фирмы консультирует по телефону клиентку, только что купившую компьютер. Для начала он проводит разведку - типа что за машина.
- Откройте инструкцию..., посмотрите, что написано с обратной стороны монитора...
Наконец, он говорит:
- Так, я вижу что у вас компьютер - Apple.
Вдруг в трубке:
- Ой.. (и тишина).
Через некоторое время появляется голос клиентки:
- Ой, простите, если бы я знала, что вы меня видите, я бы сразу накинула халат.

Просто проиграть его на другой форме, развернутой на весь экран


{Code for Form 1}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form2.WindowState := wsMaximized;
  Form2.MediaPlayer1.Notify := false;
  Form2.MediaPlayer1.Display := Form2.Panel1;
  Form2.MediaPlayer1.FileName := 'C:\TheWall\DELCAR2.AVI';
  Form2.MediaPlayer1.Open;
  Form2.MediaPlayer1.DisplayRect := Form2.ClientRect;
  Form2.MediaPlayer1.Play;
end;

{Code for Form 2}

procedure TForm2.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.NotifyValue = nvSuccessful then
    Form2.Close;
end;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook