Как контролировать каталог для файлов в Delphi XE?

В прошлом году у меня была такая же потребность, и я попробовал Iztok Kacin's Directory Watch. Он ответил на электронную почту и был очень полезным в ответах на мои вопросы.

Его код работал, но мне нужно было получить уведомление в тот момент, когда файл в определенной папке был закрыт, что по какой-то странной причине API ReadDirectoryChanges (от которого это зависит) от Microsoft (безумно) не не обеспечивают. Я также, кажется, припоминаю, что код Iztok использовал потоки и не казался достаточно легким для моих нужд.

В итоге я использовал удивительно простой подход, который прекрасно сработал для меня. В событии TTimer, которое срабатывает каждые несколько секунд, я использую FindFirst для отслеживаемой папки. Все найденные файлы помещаются в постоянный список TStringList. Любой найденный файл, которого еще нет в StringList из предыдущих событий TTimer, является новым. (Чтобы определить, закрыт ли файл, я пытаюсь открыть файл в монопольном режиме. Если я не могу его открыть, значит, он не добавляется в TStringList, поэтому он проверяется при следующем событии.)

Я очень не решался использовать этот подход, думая, что это слишком грубая сила. Но для нужд, которые у меня были, это решение прекрасно сработало и, к счастью, включает в себя небольшое количество очень простого кода, который легко понять и поддерживать.

ХТН

Вы можете ознакомиться с этой статьей (класс монитора каталогов для Delphi) , а также у этой функции из Windows API: ReadDirectoryChanges

Вам также следует взглянуть на этот вопрос SO, поскольку он может соответствовать вашим потребностям: Delphi уведомление при обновлении файла