ファイルの更新チェック

こちらでウエ紙さんが書いておられるミリ秒単位でのファイルチェックの話。
たとえ100ミリ秒間隔だとしても、ファイル処理を頻繁に行うのはコストが高そうです。サイズチェック＆日時チェックぐらいなら問題にならないかもしれませんが。
しかしWinAPIを見てみると、ファイルの更新チェックのできる関数があるじゃないですか。
というわけで、作ってみました。
ファイルの更新チェックをするSAORIです。
内部でチェック用スレッドを生成して、更新を監視しています。
更新があると、SSTP NOTIFYでイベントを送ります。
詳しい使い方はReadme.txtを読んでください。
　
Delphi6で作ったのですが、TThreadクラスなんてほとんど使ったこと無いので、ちょっと手こずりました。
あと、Classesを使うとサイズふくれますねぇ……
　
追記：
うわぁ、致命的不具合。
FindFirstChangeNotificationは対象をディレクトリにしかできない。
MSDNにも明記してしてあったのに、何というポカミス…
作り直しますorz