flash.pas

来自「使用delphi语言」· PAS 代码 · 共 68 行

unit Flash;

interface

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

type
  TFlashMY = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure onmymessage(var Msg: TMsg; var Handled: Boolean);
    { Private declarations }
  public
    SFShow: TShockwaveFlash;
    { Public declarations }
  end;

var
  FlashMY: TFlashMY;

implementation

{$R *.dfm}
procedure TFlashMY.onmymessage(var Msg: TMsg; var Handled: Boolean);
begin
  if msg.hwnd = SFshow.Handle then
  begin
    if msg.message=WM_KEYDown then
    begin
      SFshow.Stop;
      close;
    end
    else
      if msg.message=WM_LBUTTONDOWN then
      begin
        SFshow.Stop;
        close;
      end;
  end;
end;

procedure TFlashMY.FormCreate(Sender: TObject);
begin
SFShow:=TShockwaveFlash.Create(self);
sfshow.Parent:=self;
sfshow.Align:=alNone;
SFShow.Loop:=false;
application.OnMessage:=onmymessage;
end;

procedure TFlashMY.FormShow(Sender: TObject);
var
 dir:string;
begin
getdir(0,dir);
sfshow.Height:=screen.Height;
sfshow.Width:=screen.Width;
sfshow.Show;
SFShow.Movie:=dir+'\a.swf';
sfshow.Update;
Sfshow.Play;
end;

end.