rmdir.pas

 {RmDir.PAS}
 
 { Пример программы для процедуры RmDir }
 
 Begin
  {$I-}
  { Получаем имя директории из командной строки }
  RmDir(ParamStr(1));
  If IOResult<>0 Then WriteLn('Не могу удалить директорию.')
                 Else WriteLn('Директория удалена.');
 End.