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