Правила форума
RmDir.PASЯзык:
Русский
English
{ Пример программы для процедуры RmDir }
begin
{$I-}
{ Получаем имя директории из командной строки }
RmDir(ParamStr(1));
if IOResult <> 0 then
WriteLn('Не могу удалить директорию.')
else
WriteLn('Директория удалена.');
end.
{$I-}
{ Получаем имя директории из командной строки }
RmDir(ParamStr(1));
if IOResult <> 0 then
WriteLn('Не могу удалить директорию.')
else
WriteLn('Директория удалена.');
end.
::
::
::
