|
procedure RmDir ( const DirectoryName : string ) ;
Процедура 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;
|
Справочник 
