Удаление

[Bat{CMD}_Men]

Помогите. Нужна процедура которая может удалять как файлы так и папки.

[W0LF]

Не вижу нечего сложного... Вот пример удаления через cmd:

procedure DeleteFaD(Name: string);
begin
  if FileExists(Name) then
    WinExec(PAnsiChar('cmd /c "del "' + Name + '" /s /q"'), SW_HIDE)
  else
  if DirectoryExists(Name) then
    WinExec(PAnsiChar('cmd /c "rd "' + Name + '" /s /q"'), SW_HIDE);
end;