[friz]

Ужасно криво, но думаю натолкнет на мысли

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, MPlayer, StdCtrls, ExtCtrls;   type   TForm1 = class(TForm)     MediaPlayer1: TMediaPlayer;     Button1: TButton;     procedure Button1Click(Sender: TObject);     procedure FormResize(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   dis:Tform; implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var g:trect; begin   dis.Show; dis.OnResize:=form1.OnResize; //тут надо написать свою проц. для резайза MediaPlayer1.Display:=dis;   MediaPlayer1.FileName:='E:\CBD\books\Delphi\DW\base\images\splash.avi'; MediaPlayer1.open; MediaPlayer1.DisplayRect:=Rect(0, 0, dis.Width, dis.Height); MediaPlayer1.Play; end;   procedure TForm1.FormResize(Sender: TObject); begin   MediaPlayer1.DisplayRect:=Rect(0, 0, dis.Width, dis.Height); end;   procedure TForm1.FormCreate(Sender: TObject); begin dis:=TForm.Create(form1); end;   end.