delphi 删除文件夹

我主沉浮^^
2020-08-27
  1. 　　直接在uses shellapi之后，调用SHMyDelDirectory去删除你的目录bai.
  2. functionSHMyDelDirectory(const Source: string): boolean;
  3. var
  4. fo: TSHFILEOPSTRUCT;
  5. begin
  6.   FillChar(fo, SizeOf(fo), 0);
  7. with fo do
  8. begin
  9.     Wnd := 0;
  10.     wFunc := FO_Delete;
  11.     pFrom := PChar(Source + #0);
  12.     pTo := #0#0;
  13.     fFlags := FOF_NOCONFIRMATION + FOF_SILENT;
  14. end;
  15. Result := (SHFileOperation(fo) = 0);
  16. end;


最新资讯
阅读67