一个很好用的文件监控控件

找了很久才发现这个控件，很好用。在控件的Change事件中可以根据文件新增、修改等状态获取文件名。来一段简单的代码：procedureTForm1.Dirmntr1Change(Sender:TObject;FileAction:TFileAction;FileName:string);beginifExtractFileExt(FileName)=''thenExit;caseFileActionoffaAdded:begin//文件新增end;faModifyed:begin//文件修