| Class TFlyingOp (unit FlyingOp) |
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);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);
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| Events |
| Variables |
FDestinationDirectory : AnsiString;
FFileList : TStringList;
FFileMask : AnsiString;
FRecurseDirectory : Boolean;
FSourceDirectory : AnsiString;
FStringList : TStringList;| 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 : AnsiStringDéclarations publiées
| Events |
| Variables |
FDestinationDirectory : AnsiString;
FFileList : TStringList;
FFileMask : AnsiString;
FRecurseDirectory : Boolean;
FSourceDirectory : AnsiString;
FStringList : TStringList;Déclarations privées