guanyu.pas

一个项目工程监理系统的全部源码

unit GuanYu;

interface

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

type
  TGuanYuForm = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GuanYuForm: TGuanYuForm;

implementation
 uses project;
{$R *.DFM}

procedure TGuanYuForm.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TGuanYuForm.FormShow(Sender: TObject);
begin
  MediaPlayer1.play;
end;

procedure TGuanYuForm.FormCreate(Sender: TObject);
begin
  if FileExists(projectform.AppPath+'\data\About.avi') then
    begin
    MediaPlayer1.FileName:=projectform.AppPath+'\data\About.avi';
    MediaPlayer1.Open;
    end
  else
    showmessage('没有发现视频文件'+projectform.AppPath+'\data\About.avi。');
end;

end.