Сообщество Чайников

Вопрос

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

Ответ

Непустой каталог можно удалить следующим образом:
Создайте на форме кнопку с именем Button1, и вставьте в обработчик события клика мыши следующий код:

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