main.~pas

delphi调用flash做为欢迎界面附flash及delphi源码

unit main;

{********************************************************
***                                                   ***
***                        破天惊工作室
***  名称:Flash界面演示
***  日期:2.4.2005
***  环境:Delphi6+WinXP
***  作者:破天惊
***  E-Mail:[e-mail]
***  个人主页:Http://tresss.go.nease.net
***  说明:
***      刚看到一个VC演示---Flash界面;
***      简单,整洁;好像没发现有此类的Delphi代码;
***      所以立即使用其所带Flash资源做了一个简单的演示;
***  注: 确保系统中存在并在Delphi组件中添加Flash.ocx
***                                                   ***
*********************************************************}



interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, ShockwaveFlashObjects_TLB;

type
  TFrmMain = class(TForm)
    Flash1: TShockwaveFlash;
    procedure FormCreate(Sender: TObject);
    procedure Flash1FSCommand(Sender: TObject; const command,
      args: WideString);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}

procedure TFrmMain.FormCreate(Sender: TObject);
Var
  TmpStr:String;
begin
  TmpStr:=ExtractFileDir(ParamStr(0));
  if TmpStr[Length(TmpStr)]<>'\' Then TmpStr:=TmpStr+'\';
  Flash1.LoadMovie(0,TmpStr+'startup.swf');
  Flash1.Play;
end;

procedure TFrmMain.Flash1FSCommand(Sender: TObject; const command,
  args: WideString);
begin
  If Command='bt' Then
  Begin
    if args='enter' Then
      ShowMessage('点击"进入系统",请加入自定义功能!');
  End
  Else
  if Command='quit' Then
  Begin
    {ShowMessage('点击"退出",程序将关闭!');    }
    Close;
  End;
end;

end.