Class TInstallAlias (unit Instal)

Inherits from

TBaseHelperComponent

Constructors


constructor Create(AOwner: TComponent);

Constants


Functions

destructor Destroy;


procedure ExpandPaths;


procedure Install;

Initially I thought I should raise an exception here if it was unsuccessful, but Standard aliases will usually not have a db open field , so I think it is better to simply exit.

procedure UnInstall(RestoreToPrevious: Boolean);

If you are going to add the uninstalling information to the alias, then you have to specify the following information: --- 1.

procedure HandleExistingParams(Params: TStrings;var Path: String;ReplaceWithParams: TStrings);

If Params is not nil, then after the call, it will contain the params for the alias in currently under consideration as they appear in the BDE.

procedure OpenBDE(Env: DBIEnv);


procedure SetParams(Value: TStrings);


procedure SetReplacedParams(Value: TStrings);


Properties

property AfterInstall : TNotifyEvent


property AliasExists : TAliasExistsEvent


property AliasName : String


property BeforeInstall : TNotifyEvent


property CannotOpenBDE : TContinueEvent


property Driver : String


property FileGroup :


property Include :


property InstallTypes :


property Options : AliasOptionSet


property Params : TStrings


property ReplaceExisting : Boolean


property ReplacedParams : TStrings


Events

Variables

FAfterInstall : TNotifyEvent;


FAliasExists : TAliasExistsEvent;


FAliasName : String;


FBeforeInstall : TNotifyEvent;


FCannotOpenBDE : TContinueEvent;


FDriver : String;


FOptions : AliasOptionSet;


FParams : TStrings;


FReplacedParams : TStrings;


FReplaceExisting : Boolean;



Constructors


constructor Create(AOwner: TComponent);

Constants


Functions


destructor Destroy;


procedure ExpandPaths;


procedure Install;

Initially I thought I should raise an exception here if it was unsuccessful, but Standard aliases will usually not have a db open field , so I think it is better to simply exit.


procedure UnInstall(RestoreToPrevious: Boolean);

If you are going to add the uninstalling information to the alias, then you have to specify the following information: --- 1. Fill in the AliasName property. 2. Fill the ReplacedParams property with the information about the previous alias. The lines must have the following format: BDE paramater name:parameter value


procedure HandleExistingParams(Params: TStrings;var Path: String;ReplaceWithParams: TStrings);

If Params is not nil, then after the call, it will contain the params for the alias in currently under consideration as they appear in the BDE. Also, Path will contain the value for the path of the alias. If you set Params to nil, and then specify values in the ReplaceWithParams parameter, then the values in the BDE will be modified.


procedure OpenBDE(Env: DBIEnv);


procedure SetParams(Value: TStrings);


procedure SetReplacedParams(Value: TStrings);


Properties


property AfterInstall : TNotifyEvent


property AliasExists : TAliasExistsEvent


property AliasName : String


property BeforeInstall : TNotifyEvent


property CannotOpenBDE : TContinueEvent


property Driver : String


property FileGroup :


property Include :


property InstallTypes :


property Options : AliasOptionSet


property Params : TStrings


property ReplaceExisting : Boolean


property ReplacedParams : TStrings


Events


Variables


FAfterInstall : TNotifyEvent;


FAliasExists : TAliasExistsEvent;


FAliasName : String;


FBeforeInstall : TNotifyEvent;


FCannotOpenBDE : TContinueEvent;


FDriver : String;


FOptions : AliasOptionSet;


FParams : TStrings;


FReplacedParams : TStrings;


FReplaceExisting : Boolean;