Unit FngDirWatch

fngdirwatch.pas FnugryDirWatch Component Copyright (C) 1998 Gleb Yourchenko Version 1.0.0.1 Revision History: 1.0.0.1 EvWatchNotify modified. Record chain processing bug fixed. {$A-,B-,I-,R-,X+} {$define PlatformCheck} // Check platform before allocating // DirWatch instance.

Classes

TFnugryDirWatch -

Functions

Register -

Types

TDirWatchOption
TDirWatchOptions
TFileChangeNotifyEvent

Constants

FILE_ACTION_ADDED
FILE_ACTION_MODIFIED
FILE_ACTION_REMOVED
FILE_ACTION_RENAMED_NEW_NAME
FILE_ACTION_RENAMED_OLD_NAME

Variables


Functions


procedure Register;


Types


TDirWatchOption = (
      dw_file_name,
      dw_dir_name,
      dw_file_attr,
      dw_file_size,
      dw_file_write_date,
      dw_file_access_date,
      dw_file_creation_date,
      dw_file_security
   );

TDirWatchOptions = set of TDirWatchOption

TFileChangeNotifyEvent = procedure(Sender :TObject;
      Action :Integer; const FileName :string) of object

Constants

FILE_ACTION_ADDED = $00000001

FILE_ACTION_MODIFIED = $00000003

FILE_ACTION_REMOVED = $00000002

FILE_ACTION_RENAMED_NEW_NAME = $00000005

FILE_ACTION_RENAMED_OLD_NAME = $00000004


Variables