about.~pas

来自「这是用Delphi编写的车辆管理系统。主要功能有档案管理」· ~PAS 代码 · 共 43 行

unit About;

interface

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

type
  TAboutform = class(TForm)
    ShockwaveFlash1: TShockwaveFlash;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Aboutform: TAboutform;

implementation
uses unit1;

{$R *.dfm}

procedure TAboutform.FormCreate(Sender: TObject);
var
dir1:string;
begin
getdir(0,dir1);
shockwaveflash1.Movie:=dir1+'\about.swf';
end;

procedure TAboutform.FormShow(Sender: TObject);
begin
shockwaveflash1.Play;
shockwaveflash1.Loop:=false;
end;

end.