Отслеживаем изменения файловой системы

Delphi , Файловая система , Файлы

В API есть несколько функций, позволяющих осуществлять контроль за файловой системой. Так же необходимо подключить компонент TDirWatcher, который содержиться в демонстрационно проекте.

Следующий цикл показывает, как можно получать сообщения о изменениях файловой системы:

var
  ChangeHandle: THandle;
...

ChangeHandle:= FindFirstChangeNotification(PChar(WatchPath),
               false, hNotifyFilter);

if ChangeHandle <> INVALID_HANDLE_VALUE then
  while true do
  begin
    if WaitForSingleObject(ChangeHandle,500) = WAIT_OBJECT_0 then
    begin
      // Событие...
    end;
    FindNextChangeNotification(ChangeHandle);
  end;

Компонент TDirWatcher http://www.sources.ru/delphi/DirWatcher.zip, используемый в этом цикле, запускается в собственном потоке. При изменениях в указанной дирректории или поддирректории возникает событие OnChange.

В статье описано использование API для отслеживания изменений файловой системы и подключение компонента TDirWatcher, который позволяет получать сообщения о изменениях в указанной директории или поддирректории.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Файлы ::