main.pas

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

unit main;

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.