blob: e82e738b633a690e6d73f0263b293a1d4122dc66 (
plain) (
tree)
|
|
# �# ��b7�^� DirWatch� <plib\other\DirWatch.pas��b7 dSystem fBoolean��ef
AnsiString�+{�fstring�+{�gTObject.AfterConstruction�
ĄgTObject.Dispatch�
ĄgTObject.DefaultHandler�
ĄgTObject.NewInstance�
ĄgTObject.FreeInstance�
ĄfLongBool;��gTObject.SafeCallException�
ĄgTObject.BeforeDestruction�
ĄfInteger �f�fPChar�u�Rg@LStrToPChar$��g@ClassCreate�V�g@LStrAsg�Ԝg@AfterConstruction��KgFalsesɚ�g@BeforeDestruction�S�g
@ClassDestroy����gAssigned gExit gTruevɚ�gLength g@LStrLenr�X��[�
g
LoadResString[WbfPLongintˊ�g@LStrAddRef�`Eg@LStrClr\��>g@LStrCat�`p�g@LStrCmp�`p�g@RaiseExcept�`p�g
@LStrArrayClr���g@HandleFinally�`p�fCardinalI��KgBreak cdSysInit g HInstanceW6�KcdWindows fTHandleI��KfDWORDI��KgGetFileAttributesxN�%gFILE_ATTRIBUTE_DIRECTORY�}�1g
DefWindowProc��EYgFILE_NOTIFY_CHANGE_FILE_NAME�}�1gFILE_NOTIFY_CHANGE_DIR_NAME�}�1gFILE_NOTIFY_CHANGE_ATTRIBUTES�}�1gFILE_NOTIFY_CHANGE_SIZE�}�1gFILE_NOTIFY_CHANGE_LAST_WRITE�}�1gFILE_NOTIFY_CHANGE_SECURITY-��1gCreateEvent��BgCloseHandle��BgSetEvent��BgFindFirstChangeNotification�ўggINVALID_HANDLE_VALUE�y��gWaitForSingleObject��-�gINFINITE�y��gFindCloseChangeNotification��BgWaitForMultipleObjects�W��g
WAIT_OBJECT_0�}�1gFindNextChangeNotification��BgPostMessage�U�cdMessages fTMessage�=5gWM_USER-��1cdSysUtils f Exception���!g
.Exception�ΪsgException.Create��gSleeprF�jcdForms cdClasses f
TComponent�AffTNotifyEvent��g.TComponentf��gTComponent.DefineProperties�a0�gTComponent.Loaded�a0�gTComponent.Notification�a0�gTComponent.ReadState�a0�gTComponent.SetName�a0�gTComponent.UpdateRegistry�a0�gTComponent.ValidateRename�a0�gTComponent.WriteState�a0�gTComponent.QueryInterface�a0�gTComponent.BeforeDestruction�a0�gTComponent.SafeCallException�a0�gTPersistent.AssignTo�!FqgTPersistent.Assign�!FqfTThread�|�`g.TThread�Pt�gTThread.DoTerminate䜫�gTThread.AfterConstruction윫�gRegisterComponentsw�}gTComponent.Create�a0�f.35�@�XgcsDesigningM���gAllocateHWnd�o/�gDeallocateHWnd�B�jgTComponent.Destroy�a0�gTThread.Createꜫ�gTThread.SetPriority����fTThreadPriorityZtgtpLowest��gTThread.Resume휫�gTThread.Destroy뜫�gTThread.Terminate�c5DirWatch� _���c5System c5SysInit Nc5Windows Rc5Messages �c5SysUtils �c5Forms �c5Classes �c%
nfFilename� ����$ % nfDirname� ����$ %nfAttrib� ����$ %nfSize� ����$ %nfLastWrite� ����$ %
nfSecurity� ����$
*.1� U@�X$*TNotifyFilters� t�=1&&.TDirectoryWatch� 06}( *TDirectoryWatch� Mb'+*&
.TWatchThread� �P�w, *TWatchThread� }&.7.4F 0 %NOTIFYCHANGE_MESSAGE
2 3sInvalidDir %. 8���� Invalid Directory: (Register� �`p� X4 c(DirectoryExists B !Name Result Code
c(TDirectoryWatch.Create� ~�<� �4*!Self *!. 6!aOwner c�) *(TDirectoryWatch.Destroy� �<� x14*!Self *!. 6c�9 *(TDirectoryWatch.WndProc� }�<� v�4*!Self *"aMsg c�E *( TDirectoryWatch.SetNotifyFilters� |�<� d�4*!Self *!aNotifyFiltersf &
|