cover.pas

计算机房管理系统

unit cover;

interface

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

type
  Tf_cover = class(TForm)
    Timer1: TTimer;
    mmp: TMediaPlayer;
    image1: TPanel;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_cover: Tf_cover;

implementation

uses mmxn;

{$R *.DFM}

procedure Tf_cover.FormShow(Sender: TObject);
var dRect : TRect;
begin
  //调整窗口大小
  f_cover.Width:=image1.Width;
  f_cover.Height:=image1.Height;

  //播放AVI
  mmp.Close;
  mmp.Display:=image1;
  dRect.Left:=image1.Left; dRect.Right:=image1.Width;
  dRect.Top:=image1.Top; dRect.Bottom:=image1.Height;
//  mmp.FileName:='avi\jfos.avi';
  mmp.Open;
  mmp.DisplayRect:=dRect;
  mmp.Play;

  Timer1.Enabled:=True;
end;

procedure Tf_cover.Timer1Timer(Sender: TObject);
begin
  //封面显示拖延时间
  Timer1.Enabled:=false;
  mmp.Close;
  f_cover.Close;
end;

procedure Tf_cover.Image1Click(Sender: TObject);
begin
  //点击关闭封面
  Timer1Timer(nil);
end;

procedure Tf_cover.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //询问口令
  f_mmxn.Show;
end;

end.