Class TAMShareware (unit AMReg)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure Loaded;

Beginning of AMShareware-component implementation.

procedure Notification(AComponent: TComponent; Operation: TOperation);


Properties

property AMReg : TAMReg


property ID : string


property TrialPeriod : integer


Events

event OnExpired : TOnExpired


Variables

FAMReg : TAMReg;


FID : string;


FOnExpired : TOnExpired;


FTrialPeriod : integer;



Constructors


constructor Create(AOwner: TComponent);


Functions


procedure Loaded;

Beginning of AMShareware-component implementation...


procedure Notification(AComponent: TComponent; Operation: TOperation);


Properties


property AMReg : TAMReg


property ID : string


property TrialPeriod : integer


Events


event OnExpired : TOnExpired


Variables


FAMReg : TAMReg;


FID : string;


FOnExpired : TOnExpired;


FTrialPeriod : integer;