win10文件粉碎机 怎样用delphi删除一个文件夹(文件夹中含多层文件)？
怎样用delphi删除一个文件夹(文件夹中含多层文件)？函数TData1.DeleteDirectory（const来源：String)：booleanvar fo:tshfileopstructbe
怎样用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这