Unit Install

*****************************************************} { Youseful Delphi Components 2.0.2 } { Copyright (c) 1996 Bill White } {*******************************************************} { Note: You will get strange things if the idapinst.dll is not in the system subdirectory of the windows directory.

Classes

TBaseHelperComponent -
TDiskParameter -
TInstall -
TInstallFile -
TInstallFileGroup -

Functions

ExpandBDE16Dir - Search user's computer for odapi.
ExpandFileGroupDir -
ExpandWindowsAndSystemDir -
GetInstallBDE16Dir - An object for handling writing/reading to information about the installation.

Types

InstallOptionSet
InstallTypeSet
TAfterReadSetupInfoEvent
TContinueEvent
TCopyFileStatusEvent
TCustomInstallTypeDlgEvent
TCustomNewDiskDlgEvent
TCustomVerifyCancelDlgEvent
TExternalComponentCall
TInstallFileNotifyEvent
TInstallOptions
TInstallType
TMetaVariableString
TStandardUnInstallOptions
TStandardUnInstallOptionSet

Constants

Variables

MainInstall
SystemDir
WindowsDir
YsflCompress


Functions


procedure ExpandBDE16Dir(var Str: String;CallingComponent: TComponent);

Search user's computer for odapi.cfg

procedure ExpandFileGroupDir(var Str: String;FileGroup: TInstallFileGroup;CallingComponent: TComponent);


procedure ExpandWindowsAndSystemDir(var Str: String);


procedure GetInstallBDE16Dir(var ToInstallCfgPath,ExistingCfgPath: String);

An object for handling writing/reading to information about the installation.

Types


InstallOptionSet = set of TInstallOptions

InstallTypeSet = set of TInstallType

TAfterReadSetupInfoEvent = procedure(Install: TInstall;var SourceDir,RunningDir: string) of Object
Event classes
TContinueEvent = procedure(Sender: TObject;var Continue: Boolean) of Object

TCopyFileStatusEvent = procedure(Sender:TObject;InstallFile:TInstallFile;FilePercentDone,TotalPercentDone:Integer) of Object

TCustomInstallTypeDlgEvent = procedure(Install: TInstall;var SelectInstallType: TInstallType) of Object

TCustomNewDiskDlgEvent = procedure(Sender: TObject;NewDisk: Integer;var Path: String) of Object

TCustomVerifyCancelDlgEvent = procedure(Install: TInstall;var QuitOut: Boolean) of Object

TExternalComponentCall = procedure(Install: TInstall;ComponentCall: String;PO: TObject) of Object

TInstallFileNotifyEvent = procedure(Sender: TObject;InstallFile: TInstallFile) of Object

TInstallOptions = (ioRaiseExceptions,ioRaiseUserAbort);

TInstallType = (itTypical,itCompact,itCustom);

TMetaVariableString = String[128]
Exception handling classes
TStandardUnInstallOptions = (fguoAllowIndividual,fguoInclude);

TStandardUnInstallOptionSet = set of TStandardUnInstallOptions

Constants


Variables

MainInstall : TInstall

SystemDir : String

WindowsDir : String

YsflCompress : TYsflCompress