win10文件粉碎机 怎样用delphi删除一个文件夹(文件夹中含多层文件)？

怎样用delphi删除一个文件夹(文件夹中含多层文件)？

函数TData1.DeleteDirectory（const来源：String)：booleanvar fo:tshfileopstructbeing FillChar（fo，SizeOf（fo），0）with fo do begin Wnd:=0 wFunc:=foŠu DELETE pFrom:=PChar（sourceŠ0）pTo:=PChar（sourceŠ0）fFlags:=FOFŠu NOCONFIRMMKDIR end Result:=（SHFileOperation（fo）=0）end这

win10文件粉碎机 delphi过时了吗 部署前安装搜狗输入法

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。