Отслеживаение изменений на предмет переименования файла(-ов)

ReadDirectoryChangesW()

Global hPath, File_Action.s
; #FILE_NOTIFY_CHANGE_FILE_NAME = 1
; #FILE_NOTIFY_CHANGE_DIR_NAME = 2
; #FILE_NOTIFY_CHANGE_ATTRIBUTES = 4
; #FILE_NOTIFY_CHANGE_SIZE = 8
; #FILE_NOTIFY_CHANGE_LAST_WRITE = $10
; #FILE_NOTIFY_CHANGE_LAST_ACCESS = $20
; #FILE_NOTIFY_CHANGE_CREATION = $40
; #FILE_NOTIFY_CHANGE_SECURITY = $100
#FILE_NOTIFY_CHANGE_ALL = $17F
#FILE_SHARE_DELETE = 4
 
#FILE_ACTION_ADDED = $1
#FILE_ACTION_REMOVED = $2
#FILE_ACTION_MODIFIED = $3
#FILE_ACTION_RENAMED_OLD_NAME = $4
#FILE_ACTION_RENAMED_NEW_NAME = $5
 
Structure FILE_NOTIFY_INFORMATION
  NextEntryOffset.l
  Action.l
  FileNameLength.l
  Filename.s{255}
EndStructure
Global Buffer.FILE_NOTIFY_INFORMATION, Overl.OVERLAPPED
 
Import "Kernel32.Lib"
  ReadDirectoryChangesW(hDirecotry, IpBuffer, nBufferLength, bWathSubTree, dwNotifyFilter, IpBytesReturned, IpOverlapped, lpCompletionRoutine)
EndImport
 
hPath = CreateFile_(GetPathPart(ProgramFilename()), #FILE_LIST_DIRECTORY, #FILE_SHARE_READ | #FILE_SHARE_WRITE | #FILE_SHARE_DELETE, #Null, #OPEN_EXISTING, #FILE_FLAG_BACKUP_SEMANTICS, #Null)
 
While ReadDirectoryChangesW(hPath, @Buffer, SizeOf(FILE_NOTIFY_INFORMATION), #True, #FILE_NOTIFY_CHANGE_ALL, BytesRead, Overl, 0)
  File_Action = PeekS(@Buffer\Filename, -1, #PB_Unicode)
  Debug Str(Buffer\Action) + "  " + File_Action
  ClearStructure(@Buffer, FILE_NOTIFY_INFORMATION)
Wend