Delphi 删除或清空一个目录(包含多级)

clarexxg

//use 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;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if DelDirectory('c:/1') then
   begin
      ForceDirectories('c:/1');
      ShowMessage('Success. ');
   end;
end;