Процедура RmDir удаляет каталог из текущего каталога.
Если каталог не существует, то выбрасывается исключение EInOutError.
Вы можете избежать такого исключения, предотвращая ошибки IO, используя директива компилятора {$IOChecks Off}. Вы должны тогда проверять значение IOResult, чтобы видеть результат вашей операции IO (помните, что использование IOResult сбрасывает значение).
Пример кода : Создание каталога, и затем его удаление
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;
