- 博客(0)
- 资源 (5)
- 收藏
- 关注
一个很好用的文件监控控件
找了很久才发现这个控件,很好用。在控件的Change事件中可以根据文件新增、修改等状态获取文件名。来一段简单的代码:
procedure TForm1.Dirmntr1Change(Sender: TObject; FileAction: TFileAction;
FileName: string);
begin
if ExtractFileExt(FileName) = '' then
Exit;
case FileAction of
faAdded:
begin
//文件新增
end;
faModifyed:
begin
//文件修改
end;
end;
end;
2018-02-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人