Class TCCopyBoxDlg (unit CCopydlg)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

procedure CopyMultipleFiles;

procedure TCCopyBoxDlg.

procedure CopySingleFile;

**********************************************************}

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

**********************************************************}

function CheckDir(sDir: string): string;

check directory - this routine amends the string passed so that all directory labels don't end in a backslash, then checks that the directory is valid by calling isDir

procedure CustCopyFiles(sSrce, sDest: string);

copy routine

procedure CustInitialise(strSourceDir_l,strTargetDir_l: string; bOverwritePrompt: boolean);

set environment

function DiskInDrive(i: integer): boolean;

check for floppy disk in drive

function GetFileInfo(sFile: string): TFileInfo;

routine returns file information - called in the case of overwrites

function IsDir(sDrive: string): boolean;

check for directory, or drive

function IsSpace(sDestination: string): longint;

return free space, plus size of existing file.

procedure SetUpFiles;

*Copy procs******************************************************************} {setup copying

Properties

Events

Variables

FList : TStringList;


strSourceDir : string;


strSourceFile : string;


strTargetDir : string;


strTargetFile : string;


FCancel : boolean;

stores initial value passed for overwrite prompt

FDir : string;


FOkToAll : boolean;

stores current directory


Constructors


constructor Create(AOwner: TComponent);


Functions


procedure CopyMultipleFiles;

procedure TCCopyBoxDlg.CustInitialise(pSource,pDestination: pChar; bOverwritePrompt: boolean); } { procedure TCCopyBoxDlg.SetUpFiles;


procedure CopySingleFile;

**********************************************************}


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

**********************************************************}


function CheckDir(sDir: string): string;

check directory - this routine amends the string passed so that all directory labels don't end in a backslash, then checks that the directory is valid by calling isDir


procedure CustCopyFiles(sSrce, sDest: string);

copy routine


procedure CustInitialise(strSourceDir_l,strTargetDir_l: string; bOverwritePrompt: boolean);

set environment


function DiskInDrive(i: integer): boolean;

check for floppy disk in drive


function GetFileInfo(sFile: string): TFileInfo;

routine returns file information - called in the case of overwrites


function IsDir(sDrive: string): boolean;

check for directory, or drive


function IsSpace(sDestination: string): longint;

return free space, plus size of existing file. This routine is only called by CustCopyFiles


procedure SetUpFiles;

*Copy procs******************************************************************} {setup copying


Properties


Events


Variables


FList : TStringList;


strSourceDir : string;


strSourceFile : string;


strTargetDir : string;


strTargetFile : string;


FCancel : boolean;

stores initial value passed for overwrite prompt


FDir : string;


FOkToAll : boolean;

stores current directory