怎样用delphi 删除一个文件夹(文件夹中含多层文件)
答案:2 悬赏:80 手机版
解决时间 2021-04-03 00:54
- 提问者网友：火车头
- 2021-04-02 13:09
怎样用delphi 删除一个文件夹(文件夹中含多层文件)
最佳答案
- 五星知识达人网友：笑迎怀羞
- 2021-04-02 13:16
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;
这个
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;
这个
全部回答
- 1楼网友：酒安江南
- 2021-04-02 14:34
中毒
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯