about.pas

来自「我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面」· PAS 代码 · 共 44 行

unit about;

interface

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

type
  TAboutForm = class(TForm)
    OKButton: TButton;
    ProgramIcon: TImage;
    ProductName: TLabel;
    lblVersion: TLabel;
    Copyright: TLabel;
    lblMail: TLabel;
    bvlRegister: TBevel;
    lblUser: TStaticText;
    lblCompany: TStaticText;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation

uses xVersion;

{$R *.DFM}

procedure TAboutForm.FormCreate(Sender: TObject);
begin
    lblVersion.caption :='版本：'+RegisteredVersion;
    lblUser.Caption    :='用户：'+RegisteredUser;
    lblCompany.Caption :='公司：'+RegisteredCompany;
end;

end.