Class TCCopyBoxDlg (unit CCopydlg) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
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
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
constructor Create(AOwner: TComponent);
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
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