| Class TCCopyBoxDlg (unit CCopydlg) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure CopyMultipleFiles;
procedure CopySingleFile;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
function CheckDir(sDir: string): string;
procedure CustCopyFiles(sSrce, sDest: string);
procedure CustInitialise(strSourceDir_l,strTargetDir_l: string; bOverwritePrompt: boolean);
function DiskInDrive(i: integer): boolean;
function GetFileInfo(sFile: string): TFileInfo;
function IsDir(sDrive: string): boolean;
function IsSpace(sDestination: string): longint;
procedure SetUpFiles;| Properties |
| Events |
| Variables |
FList : TStringList;
strSourceDir : string;
strSourceFile : string;
strTargetDir : string;
strTargetFile : string;
FCancel : boolean;
FDir : string;
FOkToAll : boolean;| 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