_abinfo.pas

著名的虚拟仪表控件,包含全部源码, 可以在,delphi2007 下安装运行

unit _AbInfo;

{******************************************************************************}
{ Abakus VCL                                                                   }
{                       the AbInfo property                                    }
{                                                                              }
{******************************************************************************}
{        e-Mail: [e-mail] , Web: http://www.abaecker.com            }
{------------------------------------------------------------------------------}
{          (c) Copyright 1998..2000 A.Baecker, All rights Reserved             }
{******************************************************************************}

{$I abks.inc}

interface
uses
  Windows,
  SysUtils,
  Classes,
  Controls,
  Forms,
  Dialogs,
  extctrls,
  Inifiles,
 {****** Abakus VCL - Units ******}
  _AbProc;

type


  TAbInfo = class(TPersistent)
  private
    FpName: string;                     {Prg-Name}
    FpVersion: string;                  {Prg-Version}
    FCopyright: string;                 {copyright}
    FMail: string;                      {eMail}
    FWWW: string;                       {Web Adr}
    NoComp: Integer;
  public
    constructor Create;
    destructor Destroy; override;

  published
    property pName: string read FpName write FpName stored false;
    property pVersion: string read FpVersion write FpVersion stored false;
    property Copyright: string read FCopyright write FCopyright stored false;
    property Mail: string read FMail write FMail stored false;
    property WWW: string read FWWW write FWWW stored false;
  end;

function LoadAbakusInfo: TAbInfo;
function tn:Boolean;

var
  AbInfo            : TAbInfo;

const
  Reg               : string = 'Registered';

implementation

function tn:Boolean;    // one sec timer calls
begin
  result := false;
end;

function LoadAbakusInfo: TAbInfo;
begin
  result := AbInfo;
end;


constructor TAbInfo.Create;
begin
  inherited Create;
  NoComp := 0;
end;

destructor TAbInfo.Destroy;
begin
  inherited Destroy;
end;


initialization
  AbInfo := TAbInfo.Create;

  with AbInfo do
  begin
    pName := _AbProc.pName;
    pVersion := _AbProc.pVersion;
    Copyright := _AbProc.Copyright;
    Mail := _AbProc.Mail;
    WWW := _AbProc.WWW;
  end;

finalization
  AbInfo.Free;

end.