delphi 删除文件夹

闪闪棉花糖

于 2020-08-13 09:24:52 发布

阅读量460

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/hsqchdn/article/details/107972166

版权

delphi 专栏收录该内容

39 篇文章 5 订阅

订阅专栏

直接在uses shellapi之后，调用SHMyDelDirectory去删除你的目录bai.
function SHMyDelDirectory(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;