Модуль WinDos
Создает новый подкаталог.
Объявление:
Procedure CreateDir(Dir : PChar);
Режим:
Windows, Protected, Real
Замечание:
Выполняет те же функции, что и MkDir, но использует строку стиля Pascal, а не строку с завершающим нулем.
Пример:
{CreateDr.PAS}
{ Пример программы для процедуры CreateDir }
Uses WinDos;
Const Create : PChar = 'C:\NEWDIR';
Begin
CreateDir(Create);
WriteLn('Создана директория :', Create);
End.