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;
|