© 1999-2048 dssz.net 粤ICP备11031372号
[Delphi] 一个很好用的文件监控控件
说明: 找了很久才发现这个控件,很好用。在控件的Change事件中可以根据文件新增、修改等状态获取文件名。来一段简单的代码: procedure TForm1.Dirmntr1Change(Sender: TObject; FileAction: TFileAction; FileName: string); begin if ExtractFileExt(FileName) = '' then Exit; case FileAction of faAdded: begin //文件新增 end; f<laimama> 上传 | 大小:3kb