Unit backup

Classes

TBackupFile -

Functions

Register -

Types

TBackupMode
TNeedDiskEvent
TPercentage
TProgressEvent
TRestoreFileEvent
TRestoreMode

Constants

cVersion
errCantreadArchive
errCantreadFile
errCantwriteArchive
errCantwriteFile
errInvalidfiletype
fSignature

Variables


Functions


procedure Register;


Types


TBackupMode       = (bmAll, bmIncremental);

TNeedDiskEvent    = procedure(Sender : TObject; DiskID: word; var Continue: Boolean) of object

TPercentage       = 0..100

TProgressEvent    = procedure(Sender : TObject; Filename: String; Percent: TPercentage; var Continue: Boolean) of object

TRestoreFileEvent = procedure(Sender : TObject; var Filename: String; var DoRestore: Boolean) of object

TRestoreMode      = (rmAll, rmNoOverwrite, rmNewer, rmExisting, rmExistingNewer);

Constants

cVersion = '1.30'

errCantreadArchive = 'Cannot read archive'

errCantreadFile = 'Cannot read file'

errCantwriteArchive = 'Cannot write to archive'

errCantwriteFile = 'Overwriting file failed'

errInvalidfiletype = 'Invalid archive type'

fSignature = 'ECS'


Variables