//引用IOUtils单元
procedure TForm1.Button1Click(Sender: TObject);
begin
TDirectory.delete('D:\123', True); //为True时删除非空文件夹
end;
//引用IOUtils单元
procedure TForm1.Button1Click(Sender: TObject);
begin
TDirectory.delete('D:\123', True); //为True时删除非空文件夹
end;