| Class TFnugryDirWatch (unit FngDirWatch) |
TComponent
| Constructors |
constructor Create(AOwner :TComponent);| Functions |
function ActionName(Action :Integer):String;
destructor Destroy;
procedure AllocWatchThread;
procedure CHange;
procedure Notify(Action :Integer; const FileName :String);
procedure ReleaseWatchThread;
procedure RestartWatchThread;
procedure EvWatchError(Sender :TObject);
procedure EvWatchNotify(Sender :TObject);
function GetDirectory :String;
function GetEnabled :Boolean;
function MakeFilter :Cardinal;
procedure SetDirectory(const Value :String);
procedure SetEnabled(const Value :Boolean);
procedure SetOptions(const Value :TDirWatchOptions);
procedure SetWatchSubTree(const Value :Boolean);
procedure WatchWndProc(var M :TMessage);| Properties |
property Directory : String
property Enabled : Boolean
property Options : TDirWatchOptions
property WatchSubTree : Boolean
property ErrorMsg : String| Events |
event OnChange : TNotifyEvent
event OnNotify : TFileChangeNotifyEvent| Variables |
FDirectory : String;
FErrorMsg : String;
FOnChange : TNotifyEvent;
FOnNotify : TFileChangeNotifyEvent;
FOptions : TDirWatchOptions;
FWatchSubtree : Boolean;
FWatchThread : TThread;
FWndHandle : HWND;| Constructors |
constructor Create(AOwner :TComponent);| Functions |
function ActionName(Action :Integer):String;
destructor Destroy;
procedure AllocWatchThread;TFnugryDirWatch
procedure CHange;
procedure Notify(Action :Integer; const FileName :String);
procedure ReleaseWatchThread;
procedure RestartWatchThread;
procedure EvWatchError(Sender :TObject);
procedure EvWatchNotify(Sender :TObject);
function GetDirectory :String;
function GetEnabled :Boolean;
function MakeFilter :Cardinal;Disable dir watch and re-raise exception on error //
procedure SetDirectory(const Value :String);
procedure SetEnabled(const Value :Boolean);
procedure SetOptions(const Value :TDirWatchOptions);
procedure SetWatchSubTree(const Value :Boolean);
procedure WatchWndProc(var M :TMessage);| Properties |
property Directory : String
property Enabled : Boolean
property Options : TDirWatchOptions
property WatchSubTree : Boolean
property ErrorMsg : String| Events |
event OnChange : TNotifyEvent
event OnNotify : TFileChangeNotifyEvent| Variables |
FDirectory : String;
FErrorMsg : String;
FOnChange : TNotifyEvent;
FOnNotify : TFileChangeNotifyEvent;
FOptions : TDirWatchOptions;
FWatchSubtree : Boolean;
FWatchThread : TThread;
FWndHandle : HWND;