about.pas

厦新 E8手机 ROM 编辑工具源码 编译平台Delphi7

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    Comments: TLabel;
    OKButton: TButton;
    StaticText1: TStaticText;
    procedure OKButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;

implementation

{   该软件用于夏新E8手机ROM的修改
　　著作权所有(c) 2007 HAM
    [e-mail]

　　本程序为自由软件；
    您可依据自由软件基金会所发表的GNU通用公共授权条款规定，就本程序再为散布与／或修改；
    无论您依据的是本授权的第二版(GNU GPL v2)或（您自行选择的）任一日后发行的版本。
　　本程序系基于使用目的而加以散布，然而不负任何担保责任；
    亦无对适售性或特定目的适用性所为的默示性担保。详情请参照GNU通用公共授权。
　　您应已收到附随于本程序的GNU通用公共授权的副本；
　　如无，请写信至自由软件基金会：59 Temple Place ?C Suite 330, Boston, Ma 02111-1307, USA。


再次说明：遵循GNU通用公共授权条款规定,修改再发布须附带更新说明且有义务提供源码，
          不得用于有偿服务}

uses Unit1;

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);
begin
aboutbox.Hide;
end;

procedure TAboutBox.FormCreate(Sender: TObject);
begin
Version.Caption:=form1.get_version;
end;

end.