Процедура RmDir – видалення каталогу

Процедура RmDir в Delphi – видалення каталогу.

Процедура RmDir: Створення каталогу, а потім його видалення

var
  error : Integer;

begin
  // Спроба створити новий підкаталог у поточному каталозі
  // Вимкнення перевірок помилок I/O
  {$IOChecks off}
  MkDir('TempDirectory');

  // Каталог створився успішно?
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог створено')
  else ShowMessageFmt('Створення каталогу викликало помилку %d',[error]);

  // Видалення каталогу для очищення
  RmDir('TempDirectory');

  // Каталог видалено успішно?
  error := IOResult;
  if error = 0
  then ShowMessage('Каталог видалено')
  else ShowMessageFmt('Видалення каталогу сталося з помилкою %d',[error]);
end;