Delphi

Вопрос

Как удалить непустой каталог?

Ответ

procedure TForm1.Button1Click(Sender: TObject);
var
    lpFileOp: TSHFileOpStruct;
begin
  FillChar(lpFileOp,SizeOf(lpFileOp),0);
      lpFileOp.Wnd := Handle;
      lpFileOp.wFunc := FO_DELETE;
  lpFileOp.pFrom := PChar(Edit1.Text);
  lpFileOp.fFlags := FOF_NOCONFIRMATION;
      SHFileOperation(lpFileOp);
end;

Ivan Daniloff