Class TFnugryDirWatch (unit FngDirWatch)

Inherits from

TComponent

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;



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;