Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Как проиграть 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS