Class TFlyingOp (unit FlyingOp)

Inherits from

TComponent

-----------------------------------------------------------------------------} { TFlyingOp v 1.0 } {-----------------------------------------------------------------------------} { A component to encapsulate the Win95 ShFileOperation } { Copyright 1998, Eric Pedrazzi. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provied this notice is not modified in any way and there is } { no charge for it other than nomial handling fees. Contact me directly for } { modifications to this agreement. } {-----------------------------------------------------------------------------} { Feel free to contact me if you have any questions, comments or suggestions } { at epedrazzi@chez.com } { The lateset version will always be available on the web at: } { http://www.chez.com/epedrazzi/epdelpuk or } { http://www.chez.com/epedrazzi/epdelpfr } { See FlyingOp.txt for notes, known issues, and revision history. } {-----------------------------------------------------------------------------} { Date last modified: May 25, 1998 } {-----------------------------------------------------------------------------} { This unit provides a component to perform file opérations using the ShFileOperation windows API, showing the standard "flying files" dialog box. Properties ---------- SourceDirectory : self explanatory DestinationDirectory : self explanatory FileMask : self explanatory (*.db, *.*, ....) RecurseDirectory : true to recurse directory when calling SearchForFiles methods FileList : TStringList containing the files to process Methods ------- SearchForFiles : Recursive procedure to search files according to the properties, storing result in the FileList property ExecCopy : procedure, no parameter, self explanatory ExecDelete : procedure, no parameter, self explanatory ExecMove : procedure, no parameter, self explanatory

Constructors


constructor Create(AOwner: TComponent);

Déclarations publiques

Fr : Arrivé ici, on ne doit plus traiter les répertoires Eng : Now, we don't treat the directories anymore



Functions

destructor Destroy;


procedure ExecCopy;


procedure ExecDelete;


procedure ExecMove;


procedure SearchForFiles;


procedure SetFileList (Value : TStringList);

Déclarations protégées

procedure FExecuteOp(idOp : UINT);


procedure FSearchForFiles(path, mask : AnsiString; var Value : TStringList; brec : Boolean);


Properties

property DestinationDirectory : AnsiString


property FileList : TStringList


property FileMask : AnsiString


property RecurseDirectory : Boolean


property SourceDirectory : AnsiString

Déclarations publiées

Events

Variables

FDestinationDirectory : AnsiString;


FFileList : TStringList;


FFileMask : AnsiString;


FRecurseDirectory : Boolean;


FSourceDirectory : AnsiString;


FStringList : TStringList;

Déclarations privées


Constructors


constructor Create(AOwner: TComponent);

Déclarations publiques

Fr : Arrivé ici, on ne doit plus traiter les répertoires Eng : Now, we don't treat the directories anymore


Functions


destructor Destroy;


procedure ExecCopy;


procedure ExecDelete;


procedure ExecMove;


procedure SearchForFiles;


procedure SetFileList (Value : TStringList);

Déclarations protégées


procedure FExecuteOp(idOp : UINT);


procedure FSearchForFiles(path, mask : AnsiString; var Value : TStringList; brec : Boolean);


Properties


property DestinationDirectory : AnsiString


property FileList : TStringList


property FileMask : AnsiString


property RecurseDirectory : Boolean


property SourceDirectory : AnsiString

Déclarations publiées


Events


Variables


FDestinationDirectory : AnsiString;


FFileList : TStringList;


FFileMask : AnsiString;


FRecurseDirectory : Boolean;


FSourceDirectory : AnsiString;


FStringList : TStringList;

Déclarations privées