Unit FindFile |
Classes |
Functions |
Register -
Types |
TAttrOption
TAttrOptions
TNewPathEvent
Constants |
Variables |
Functions |
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 |