Unit FindFile

Classes

TFindFile -

Functions

Register -

Types

TAttrOption
TAttrOptions
TNewPathEvent

Constants

Variables


Functions


procedure Register;


Types


TAttrOption = (ffReadOnly, ffHidden, ffSystem, ffVolumeID, ffDirectory, ffArchive);
FindFile version 1.0.1 // Copyright (C) September 1997 Walter Dorawa // Everyone is free to use this code as they wish, but if you use it commercially then I wouldn't mind a little something. // Please submit suggestions, bugs, or any improvements to walterd@gte.net // Improvements: 10-21-97 Attributes property TotalFile Abort property TotalSpace OnNewPath event TotalDir // thanks to: Howard Harvey, Jim Keatley and Dale Derix for suggestions and code improvements //
TAttrOptions = set of TAttrOption

TNewPathEvent = procedure(Sender: TObject; NewPath: string; var Abort: boolean) of object

Constants


Variables