我要详细的代码，最好每句都有注解
非原创不采纳...
如何用delphi删除非空文件夹？
答案:1 悬赏:10 手机版
解决时间 2021-04-27 11:09
- 提问者网友：不要迷恋哥
- 2021-04-26 14:46
最佳答案
- 五星知识达人网友：罪歌
- 2021-04-26 16:22
function TData1.DeleteDirectory(const Source:String): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(source+#0); pTo := PChar(source+#0); fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ; end; Result := (SHFileOperation(fo) = 0);end;这个
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯