Class TDirMon (unit DirMon)

Inherits from

TComponent

Constructors


constructor Create(AOwner : TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Start;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Stop;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetNotifyFilter : TDirMonType;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetDirectory(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SetNotifyFilter(newValue : TDirMonType);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TriggerDirChangeEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TriggerStartEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure TriggerStopEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WMDirChange(var aMsg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WndProc(var MsgRec: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property Directory : String

Published properties and events

property Handle : HWND


property NotifyFilter : TDirMonType


Events

event OnDirChange : TNotifyEvent


event OnStart : TNotifyEvent


event OnStop : TNotifyEvent


Variables

FDirectory : String;


FMutexHandle : THandle;


FNotifyFilter : DWORD;


FOnDirChange : TNotifyEvent;


FOnStart : TNotifyEvent;


FOnStop : TNotifyEvent;


FParamPtr : Pointer;


FThreadHandle : THandle;


FThreadID : DWORD;


FWindowHandle : HWND;



Constructors


constructor Create(AOwner : TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Start;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Stop;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetNotifyFilter : TDirMonType;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetDirectory(newValue : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SetNotifyFilter(newValue : TDirMonType);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TriggerDirChangeEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TriggerStartEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure TriggerStopEvent;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WMDirChange(var aMsg: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WndProc(var MsgRec: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property Directory : String

Published properties and events


property Handle : HWND


property NotifyFilter : TDirMonType


Events


event OnDirChange : TNotifyEvent


event OnStart : TNotifyEvent


event OnStop : TNotifyEvent


Variables


FDirectory : String;


FMutexHandle : THandle;


FNotifyFilter : DWORD;


FOnDirChange : TNotifyEvent;


FOnStart : TNotifyEvent;


FOnStop : TNotifyEvent;


FParamPtr : Pointer;


FThreadHandle : THandle;


FThreadID : DWORD;


FWindowHandle : HWND;