Модуль 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.