//需要引用单元 shellapi
function DelDirectory(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 := #0#0;
fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;
Delphi 目录及子目录所有文件删除
最新推荐文章于 2023-11-28 18:34:00 发布