Правила форума
CreateDr.PASЯзык:
Русский
English
{ Пример программы для процедуры CreateDir }
uses WinDos;
const Create : PChar = 'Y:\NEWDIR';
begin
CreateDir(Create);
WriteLn('Создана директория :', Create);
end.
const Create : PChar = 'Y:\NEWDIR';
begin
CreateDir(Create);
WriteLn('Создана директория :', Create);
end.
::
::
::
