TCustomDirwatch

type TCustomDirwatch = class(TComponent)

protected

  DefaultDriverClass: TDirWatchDriverClass;

  procedure DoChangeEvent();

  procedure DoIdle; virtual;

  function DoCheck; virtual;

  procedure DoStartWatch; virtual;

  procedure Loaded; override;

  function DirectoryEntryForFileName();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure InitWatch; virtual;

  procedure DoneWatch; virtual;

  function Check;

  procedure StartLoop;

  procedure AddWatch();

  procedure Terminate;

protected

  property Terminated: Boolean; [r]

  property Enabled: Boolean; [rw]

  property Threaded: Boolean; [rw]

  property BaseDir: string; [rw]

  property CheckTimeout: Cardinal; [rw]

  property LoopInterval: Cardinal; [rw]

  property Watches: TWatchDirectoryEntries; [rw]

  property OnChange: TWatchFileEventHandler; [rw]

  property OnIdle: TNotifyEvent; [rw]

  property OnCheck: TNotifyCheckEvent; [rw]

end;

TCustomDirwatch

TObject