unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, MPlayer, PicShow;

type
  TForm1 = class(TForm)
    PicShow: TPicShow;
    MediaPlayer1: TMediaPlayer;
    procedure MediaPlayer1Notify(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SetFullScreen(Active: Boolean);
    procedure PicShowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetFullScreen(Active: Boolean);
begin
  if Active and (PicShow.Align = alClient) then
  begin
    PicShow.SetFocus;
    PicShow.Align := alNone;
    PicShow.BgMode := bmNone;
    PicShow.FrameWidth := 0;
    Windows.SetParent(PicShow.Handle, 0);
    PicShow.SetBounds(0, 0, Screen.Width, Screen.Height);
    SetWindowPos(PicShow.Handle, HWND_TOPMOST, 0, 0, Screen.Width, Screen.Height, SWP_SHOWWINDOW);
    ShowCursor(False);
  end
  else if not Active and (PicShow.Align = alNone) then
  begin
    Windows.SetParent(PicShow.Handle, Self.Handle);
    PicShow.Align := alClient;
    ShowCursor(True);
  end;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if MediaPlayer1.Position=MediaPlayer1.Length then ShowMessage('Finish');
end;

procedure TForm1.FormActivate(Sender: TObject);
label 1;
begin

1:

Application.ProcessMessages;

MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'main22.mov';
MediaPlayer1.Display := PicShow;
MediaPlayer1.Open;
MediaPlayer1.Play;

MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'main22.mov';
MediaPlayer1.Display := PicShow;
MediaPlayer1.Open;
MediaPlayer1.Play;

MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'main22.mov';
MediaPlayer1.Display := PicShow;
MediaPlayer1.Open;
MediaPlayer1.Play;

MediaPlayer1.FileName:=ExtractFilePath(Application.ExeName)+'main22.mov';
MediaPlayer1.Display := PicShow;
MediaPlayer1.Open;
MediaPlayer1.Play;

goto 1

end;

procedure TForm1.PicShowClick(Sender: TObject);
begin
SetFullScreen(PicShow.Align <> alNone);
end;

end.