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